Hola que tal !!! Me he estado quebrando la cabeza para escribir en un archivo de texto campos con texto y sin texto.


Estoy utilizando el siguiente codigo


OPEN "C:\Archivo.txt" for output as #1


write #1, Campo1, Campo2, Campo3; Campo4;


Quiero que el campo3 y campo4lo escriba sin comillas en el archivo de texto dejando una longitud de 15 por lo que necesito que quede en el archivo de texto de la siguiente manera


"Campo1", "Campo2",&nb sp; 15.00, 25.00


Gracias por su apoyo si necesitan el codigo original para que me apoyen se los envio solo pidanmelo a este email jeambriz@yahoo.com.mx

hola KIKe


te comento que uso mucho archivos .txt en mi proyectos pero no con la sentencia write ni comas, lo que utilizo es la sentencia print #, tab(??),


ej:


Open "archivo.txt" For Output As #1
Print #1, Tab(1); campo1; _
Tab(10); campo2; _
Tab(20); campo3; _
Tab(30); campo4


los tab(??) son de acuerdo a la longitud del campo que tengas, con esta forma cuando habras unarchivo con cualquier editor de texto vasa tener un archivo encolumnado y facil de leer


poetea si necesitas mas ayuda


saludicimos

Muchas gracias CALITO me sirvio de mucho tu sintaxis ahora solo necesito que me heches la mano diciendome como le pongo comllas a un campo y a otros nop

Iniciado por calito

hola KIKe


te comento que uso mucho archivos .txt en mi proyectos pero no con la sentencia write ni comas, lo que utilizo es la sentencia print #, tab(??),


ej:


Open "archivo.txt" For Output As #1
Print #1, Tab(1); campo1; _
Tab(10); campo2; _
Tab(20); campo3; _
Tab(30); campo4


los tab(??) son de acuerdo a la longitud del campo que tengas, con esta forma cuando habras unarchivo con cualquier editor de texto vasa tener un archivo encolumnado y facil de leer


poetea si necesitas mas ayuda


saludicimos



Muchas gracias CALITO me sirvio de mucho tu sintaxis ahora solo necesito que me heches la mano diciendome como le pongo comllas a un campo y a otros nop

Hola


perdon por la tardansa


Private Sub Form_Load()
Dim campo1 As String, campo2 As String, campo3 As String, campo4 As String

campo1 = "HOLA MUNDO"
campo2 = "COMO ESTAN"
campo3 = "ESTE FORO ES MUY BUENO"
campo4 = "MI NOMBRE ES CARLOS"

Open "e:\programm\archivo.txt" For Output As #1
Print #1, Tab(1); campo1; _
Tab(15); Chr(34); campo2; Chr(34); _
Tab(30); campo3; _
Tab(60); Chr(34); campo4; Chr(34)



End Sub





el chr(34) es el equivalente a las comillas


saludicimos