Problema convirtiendo nombre de archivo. Código de página

Código:

Private cuentafilas As Integer



Public Sub Form_Open()

 

  With grdTabla

    .Header = GridView.Both

    .Columns.Count = 3

    .Rows.Count = 0

    .Columns[0].Title = "Texto original"

    .Columns[0].W = 350

    .Columns[1].Title = "Codificación"

    .Columns[1].w = 150    

    .Columns[1].Alignment = Align.Center

    .Columns[2].Title = "Texto convertido a UTF-8"

    .Columns[2].W = 350

    .Columns[2].Alignment = Align.Center

  End With

 

End



Public Sub rellenarGridView(nombrefichero As String, datos As String[])

 

  Dim jc As String

  Dim conversion As String

 

  For Each jc In datos

    grdTabla.Rows.Count = cuentafilas + 1

    grdTabla[cuentafilas, 0].Alignment = Align.Left

    grdTabla[cuentafilas, 0].Text = nombrefichero

    grdTabla[cuentafilas, 1].Alignment = Align.Center

    grdTabla[cuentafilas, 1].Text = jc

    grdTabla[cuentafilas, 2].Alignment = Align.Center    

    Try conversion = Conv(nombrefichero, jc, "UTF-8")

    If Not IsNull(conversion) Then grdTabla[cuentafilas, 2].Text = conversion        

    If Error Then

      'No cuentes fila

      Continue

    Else

      cuentafilas += 1

    Endif    

  Next

  Label1.Text = "Total de conversiones: " & Str(cuentafilas + 1)

 

End



Public Sub Button1_Click()

 

  Dim archivo As String

  Dim juegodec As New String[]

  Dim tiposdecodificacion As String  

 

  'conv de gambas es un intermediario del comando iconv del sistema  

  'pasamos todos los códigos de página que existe a la variable

  Try Exec ["iconv", "--list"] To tiposdecodificacion

 

  'Copiado y pegado directamente el nombre del archivo en el editor de Gambas

  'No puedo pasar el archivo, ya que no tengo seguridad si es libre

  archivo = "Benito Prerz Gald¢s - Los Ayacuchos.epub"

 

  juegodec = Split(tiposdecodificacion, "\n", "//", True)    

  rellenarGridView(archivo, juegodec)

   

   'Esto salta siempre al final. No sé si es un error que viene del relleno del gridview

   'He tenido que anular su ejecución

  'If Error Then Message.Warning("No tienes instalado iconv en tu sistema!")

 

End

Código:

Private cuentafilas As Integer



Public Sub Form_Open()



  With grdTabla

    .Header = GridView.Both

    .Columns.Count = 3

    .Rows.Count = 0

    .Columns[0].Title = "Texto original"

    .Columns[0].Alignment = Align.Left

    .Columns[0].W = 350

    .Columns[1].Title = "Codificación"

    .Columns[1].w = 150

    .Columns[1].Alignment = Align.Center

    .Columns[2].Title = "Texto convertido a UTF-8"

    .Columns[2].W = 350

    .Columns[2].Alignment = Align.Center

  End With



End



Public Sub rellenarGridView(nombrefichero As String, datos As String[])



  Dim jc As String

  Dim conversion, s As String

  Dim n As Integer



  grdTabla.Rows.Count = datos.count

  For n = 0 To datos.max

    grdTabla[n, 0].Text = nombrefichero

    grdTabla[n, 1].Text = datos[n]

    Try conversion = Conv(nombrefichero, datos[n], "UTF-8")

    If Error Then

      conversion = Error.Text

    Else

      Inc cuentafilas

    Endif

    grdTabla[cuentafilas, 2].Text = conversion

  Next

  Label1.Text = "Total de conversiones: " & Str(cuentafilas + 1)



End



Public Sub Button1_Click()



  Dim archivo As String

  Dim juegodec As New String[]

  Dim tiposdecodificacion As String



  'conv de gambas es un intermediario del comando iconv del sistema

  'pasamos todos los códigos de página que existe a la variable

  Try Exec ["iconv", "--list"] To tiposdecodificacion



  'Copiado y pegado directamente el nombre del archivo en el editor de Gambas

  'No puedo pasar el archivo, ya que no tengo seguridad si es libre

  archivo = "Benito Prerz Gald¢s - Los Ayacuchos.epub"



  juegodec = Split(tiposdecodificacion, "\n", "//", True)

  rellenarGridView(archivo, juegodec)



  'Esto salta siempre al final. No sé si es un error que viene del relleno del gridview

  'He tenido que anular su ejecución

  'If Error Then Message.Warning("No tienes instalado iconv en tu sistema!")



End