Lo q deberías hacer es concatenar un vbNewLine al final de la variable CADENA cuando no sea él último y en lugar de usar la instrucción Print, utilizar la instrucción Put que no agrega el fin de línea automáticamente.
Cristian. -----Mensaje original----- De: [email protected] [mailto:[EMAIL PROTECTED] En nombre de Carina V. Barca Enviado el: Miércoles, 29 de Noviembre de 2006 12:25 Para: vbusers List Member Asunto: [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. HYPERLINK "http://g.msn.com/8HMAESES/2731??PS=47575"Descárgalo y pruébalo 2 meses gratis. -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.430 / Virus Database: 268.14.19/556 - Release Date: 28/11/2006 15:22 -- No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.430 / Virus Database: 268.14.19/556 - Release Date: 28/11/2006 15:22
image001.gif
Description: GIF image
