Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 2 de 2
Ir a la página Anterior  1, 2
 
Abrir Archivo Excel Para Recorrer Contenido [Solucionado]
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Re: Abrir Archivo Excel Para Recorrer Contenido 
 
calcena escribió: [Ver mensaje]

Ahora bien, el problema no lo tengo en la generación del CSV que se crea perfectamente, el problema lo tengo en el split o generación del Grid que se representa mal, he adjuntado captura para que veas que se me crea con "" y se mueve la columna.


sData = Split(File.Load(Application.Path &/ "test.csv"), gb.NewLine, ";", True)


Saludos.


Supongamos que convertimos desde la línea 5 de tu xls. Estaríamos en la cabecera y en la línea 6 los datos.

Lo que dice la ayuda: Split(cadena [, separador, escape, ignorar nulos, mantenerEscape])

Esto es lo que tu deberías haber hecho:

sData = Split(File.Load(Aplication.Path &/ "test.csv"), ";", gb.NewLine, True)

Esto es lo que yo creo, pero ojo, no lo he probado, no tengo experiencia como para saber si tengo razón, ya que soy novato en esto de gambas. Pero comparando lo que dice la ayuda y lo que tu has puesto, pienso que es correcto esto último que te he puesto.

Por favor, pruebalo y me cuentas y sino pues si por favor me pasas tu csv y lo compruebo yo mismo pues 4 ojos ven mas que 2.

Saludos.
 



 
gambafeliz - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Abrir Archivo Excel Para Recorrer Contenido 
 
Buenas, con esto que me has indicado ...no me funciona tampoco ....

este es el resultado obtenido.


 temp1_1569924581_843072

Saludos.
 



 
calcena - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Abrir Archivo Excel Para Recorrer Contenido 
 
calcena escribió: [Ver mensaje]
Buenas, con esto que me has indicado ...no me funciona tampoco ....

este es el resultado obtenido.


 temp1_1569924581_843072

Saludos.


Pasame tu CSV convertido ya. Voy a probar la instrucción para ver un resultado para ambos válido.

Saludos.
 



 
gambafeliz - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Abrir Archivo Excel Para Recorrer Contenido 
 
Hola compañero,
te paso el archivo csv que he generado desde tu código modificado.

Ya me dirás, muchas gracias.

test.csv
Descripción:  
Descargar
Nombre del archivo: test.csv
Tamaño: 3.31 KB
Descargado: 31 veces
test.csv
Descripción:  
Descargar
Nombre del archivo: test.csv
Tamaño: 3.31 KB
Descargado: 31 veces
test.csv
Descripción:  
Descargar
Nombre del archivo: test.csv
Tamaño: 3.31 KB
Descargado: 31 veces

 



 
calcena - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Abrir Archivo Excel Para Recorrer Contenido 
 
calcena escribió: [Ver mensaje]
Hola compañero,
te paso el archivo csv que he generado desde tu código modificado.

Ya me dirás, muchas gracias.


Esta es la solución:

Dim aData As String[] = Split(File.Load("test.csv"), ";", "", True)
 



 
gambafeliz - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Abrir Archivo Excel Para Recorrer Contenido 
 
Mi solución

CSVTest.tar.gz
Descripción:  
Descargar
Nombre del archivo: CSVTest.tar.gz
Tamaño: 25.94 KB
Descargado: 19 veces
CSVTest.tar.gz
Descripción:  
Descargar
Nombre del archivo: CSVTest.tar.gz
Tamaño: 25.94 KB
Descargado: 19 veces
CSVTest.tar.gz
Descripción:  
Descargar
Nombre del archivo: CSVTest.tar.gz
Tamaño: 25.94 KB
Descargado: 19 veces

 



 
cogier - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Abrir Archivo Excel Para Recorrer Contenido 
 
cogier escribió: [Ver mensaje]
Mi solución


Ostras fantástico, con esta solución si que me funciona perfecto, que tipo de clase es CsvFile que incluyes en gb.util, no lo había oido nunca por aqui, es una clase hecha de medida??

Saludo y muchas gracias.
 



 
calcena - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Abrir Archivo Excel Para Recorrer Contenido 
 
gambafeliz escribió: [Ver mensaje]
calcena escribió: [Ver mensaje]
Hola compañero,
te paso el archivo csv que he generado desde tu código modificado.

Ya me dirás, muchas gracias.


Esta es la solución:

Dim aData As String[] = Split(File.Load("test.csv"), ";", "", True)


Gracias por el aporte pero aún me sigue saliendo mal.

voy a utilizar la forma del compañero cogier que va de lujo

Saludos y muchas gracias.
 



 
calcena - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Abrir Archivo Excel Para Recorrer Contenido 
 
calcena escribió: [Ver mensaje]


Gracias por el aporte pero aún me sigue saliendo mal.

voy a utilizar la forma del compañero cogier que va de lujo

Saludos y muchas gracias.


Por supuesto usa la solución de cogier, no la he visto, pero seguro que es mejor, como ya he dicho otras veces, cuando sea grande quiero ser una combinación de shordi, cogier, shell, tincho, vuott, js, .... vamos todo este foro

Es broma, sirve te al gusto, joven.

Saludos.
 



 
gambafeliz - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Abrir Archivo Excel Para Recorrer Contenido 
 
Código mucho mejor

Public Sub Form_Open()

  Dim iCol, iRow As Integer
  Dim hCSVFile As CsvFile             ''+ gb.util ***********************************************
  Dim sCol As String
  Dim cCol As Collection

  Shell "cd " & Application.path & " && " & "libreoffice --headless --convert-to csv test.xls" Wait
  hCSVFile = New CsvFile(Application.Path &/ "test.csv")

  While Not hCSVFile.Eof
    cCol = hCSVFile.Read()
    Inc GridView1.Rows.Count
    For Each sCol In cCol
      If GridView1.Columns.Count < cCol.Count Then GridView1.Columns.Count = cCol.Count
      GridView1[iRow, iCol].Text = sCol
      Inc iCol
    Next
    Inc iRow
    iCol = 0
  Wend

  GridView1.Columns.Width = -1

End

 



 
cogier - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Control Para Abrir Archivo? [SOLUCIONADO] CanihoJR General 2 Miercoles, 16 Septiembre 2009, 15:23 Ver último mensaje
CanihoJR
No hay nuevos mensajes Problemas Para Recorrer Un Columnview [Sol... chaskux Controles/Librerías/Componentes 5 Miercoles, 18 Noviembre 2009, 15:52 Ver último mensaje
soplo
No hay nuevos mensajes Cómo Restaurar Tus Ventanas Y Su Contenid... shordi Aplicaciones/Fragmentos de Código 1 Jueves, 21 Agosto 2014, 13:55 Ver último mensaje
Shell
No hay nuevos mensajes Se Puede Leer Una Linea Especifica De Un A... v3ctor General 23 Sabado, 06 Diciembre 2014, 21:25 Ver último mensaje
shordi
 

Publicar nuevo tema  Responder al tema  Página 2 de 2
Ir a la página Anterior  1, 2

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 0 invitados
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario



  

 

cron