Spanish Crear archivo .txt (solucionado)

piramide

Member
Licensed User
Buen dia para todos.
Tengo una app con una base de datos sqlite y quisera crear un archivo .txt con los campos de una tabla
No he podido lograr que me creara por cada registro de la tabla (tabla con 5 campos) una linea diferente en el txt.
Ejemplo: al pasar el archivo del telefono a una pc con window el txt se ve algo asi:
1;2;3;4 5;6;7;8 9;10;11;12
y yo necesito que se vea asi:
1;2;3;4
5;6;7;8
9;10;11;12

Que desde el bloc yo abra el archivo y vea que son 3 lineas y no 1.

¿Alguien trabajo con txt? ¿Como podria solucionarlo?

Desde ya gracias.

adjunto el codiogo de la creacion del txt

B4X:
                    gNombreTextoCabecera = "texto.txt"
                    Writer1.Initialize(File.OpenOutput(File.DirInternal, gNombreTextoCabecera, False))

                    Dim rs As ResultSet = Starter.SQL1.ExecQuery("SELECT ID, IDCLIENTE,FECHA,RESPONSABLE,TIPOVENTA,OBSERVACION FROM CABECERA where ENVIADO is null") 'is null
                    Do While    rs.NextRow
                        'Dim row(1) As Object
                        'locID = rs.GetInt("ID")
    
                        locID = rs.GetInt("ID")
                        locIDCLIENTE = rs.GetString("IDCLIENTE")
                        locFECHA = rs.GetString("FECHA")
                        locRESPONSABLE = rs.GetString("RESPONSABLE")
                        locTIPOVENTA = rs.GetString("TIPOVENTA")
                        locOBSERVACION = rs.GetString("OBSERVACION")
        
                        Writer1.WriteLine(locID&";"&locIDCLIENTE&";"&locFECHA&";"&locRESPONSABLE&";"&locTIPOVENTA&";"&locOBSERVACION)
    
                    Loop
                    rs.Close

                    Writer1.Close
 

José J. Aguilar

Well-Known Member
Licensed User
Prueba a abrirlocon notepad++, o a añadir al final chr(13) & chr(10)


saludos,
 
Top