[vbusers] Archivo de texto

Wed, 29 Nov 2006 10:01:24 -0800

Encontre la solucion-->

Para que no mande un enter y un avance de línea al final de una Print #, hay que poner un punto y coma después del dato. En tu caso sería:

Print #1, CADENA;

Aclaremos que así no los mandrá en ningún caso y te quedará todo el texto corrido. Si querés elegir cuando lo manda o cuando no, tendría que hacer un If que consulte a algún otro control.

Gracias Alberto!!!!

From: Daniel Pinto <[EMAIL PROTECTED]>
Reply-To: [email protected]
To: "vbusers List Member" <[email protected]>
Subject: [vbusers] Archivo de texto
Date: Wed, 29 Nov 2006 09:48:54 -0800 (PST)

m.. recuerdo algo de eso, yo le ponia el viejo char(10) con chr(13), esto es fin de linea y regreso de carro, la cosa es que para diferentes lenguajes trabajan de manera diferente, pero intenta con estos caracteres, uno de ellos es.
 
La música es el lenguaje que me permite comunicarme con el más allá. -- Robert Schumann


----- Original Message ----
From: Carina V. Barca <[EMAIL PROTECTED]>
To: vbusers List Member <[email protected]>
Sent: Wednesday, November 29, 2006 10:24:46 AM
Subject: [vbusers] Archivo de texto

Hola a todos: tengo una aplicacion que toma datos de una base de datos y crea un archivo de texto, el problema es que despues del ultimo dato me hace un enter y pasa a la linea siguiente. Como puedo hacer para que al final de cada linea no haga el enter a no ser que yo quiera o eliminar esa linea del archivo? Busque y probe de varias formas y no pude solucionarlo.
 
 
El codigo que utilizo para generar el archivo es el siguiente:
 
    Open "c:\XXXX.txt" For Output As #1   ' Abre el archivo para operaciones de salida.
    Do While Not rsGrid.EOF
        EMPLEADO = rsGrid.Fields(0)
        FECHA = rsGrid.Fields(1)
        HORA = Format(rsGrid.Fields(2), "hh:mm")
        CADENA = " " & EMPLEADO & " " & FECHA & " " & HORA & " 1 2"
        Print #1, CADENA
        rsGrid.MoveNext
    Loop
'cierra archivo
Close #1
 
Gracias!!!!!

Acepta el reto MSN Premium: incluye Antivirus y Firewall de McAffee. Descárgalo y pruébalo 2 meses gratis.


Do You Yahoo!? La mejor conexión a Internet y 2GB extra a tu correo por $100 al mes. http://net.yahoo.com.mx

Encuentra una aventura, un romance o al amor de tu vida. Date de alta gratis.

Responder a