Visual Basic - usando el comando write #

Life is soft - evento anual de software empresarial
 
Vista:

usando el comando write #

Publicado por nofxito (28 intervenciones) el 29/03/2001 19:56:43
la pregunta es la siguiente, he leido q este comando cuando termina de leer una linea o el recordset imprime en un texto una linea debajo de otra
la cuestion es q lo estoy haciendo asignandole un archivo pero no me lo pone como quisiera q saliera
aqui esta el codigo q estoy usando
si no me explique mejor si por lo menos el primer campo es codigo de pais, deberia salir algo asi en el txt
ar ....
ar ....
ar ....
aqui esta mi codigo
Dim strRegistros As String
Dim FichLibre As Long
Dim adorst As ADODB.Recordset
Dim j As Integer
ProgressBar1.Min = 0
ProgressBar1.Max = 1000
Set adoCon = New ADODB.Connection
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Cia\Entrada\Argen.mdb;Persist Security Info=False"
Set adorst = New ADODB.Recordset

adorst.CursorLocation = adUseClient
adorst.Open "SELECT * FROM CENSOS ORDER BY CINUMID asc", adoCon, adOpenDynamic, adLockPessimistic

If Not adorst.State = adStateClosed Then
strRegistros = adorst.GetString(adClipString)
FichLibre = FreeFile
Open App.Path & "\censos.txt" For Output As #FichLibre
Write #FichLibre, strRegistros
Close FichLibre
adorst.MoveFirst
Else
MsgBox "Recordset cerrado", vbCritical, "Export Database"
End If
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:usando el comando write #

Publicado por Daniel (10 intervenciones) el 31/03/2001 05:21:41
Hola:
Fijate lo que dice la ayuda de VB6.
A diferencia de la instrucción Print #, la instrucción Write # inserta puntos y coma entre elementos y comillas alrededor de cadenas, cuando se escriben en el archivo. No es necesario colocar delimitadores en la lista. Write # inserta un carácter de nueva línea, que es un retorno de carro y un avance de línea (Chr(13) + Chr (10)), después de que se ha escrito el último carácter de listasalida en el archivo.

Utiliza Print#, en cambio de Write...
Incluso creo que la opcion Print# acepta el using
Ej. Print#11, using "####.## / /",Precio, Descripción

Espero que sirva ...
Saludos desde Córdoba
Daniel

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:usando el comando write #

Publicado por Adán (39 intervenciones) el 31/03/2001 05:21:57
Utiliza
Print #FichLibre, strRegistros
en lugar de Write
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar