[VB6] Creazione file di testo ed evitare inserimento di ritorno a capo

[19matteo78]

ciao a tutti.sto creando un file txt loppando dentro un ciclo di recordset presi da db.
il problema è che alla fine mi lasci sempre un "a capo" che non mi fa funzioanre un altra procedura.
posto il codice

set fso = createObject("Scripting.FileSystemObject")
set flog = fso.openTextFile("test.txt",8,1)
--istanzio connessione
--istanzio recordset
do until recordset.EOF
flog.writeline rs!campo
rs.movenext
loop
set flog = nothing

il file viene creato,viene scritto tutto in maniera corretta ma lla fine mi compare un a capo

sapete mica come risolvere?

ciao e grazie

matteo

[oregon]

Puo' darsi che l'ultimo record del recordset sia vuoto e quindi viene scritto solamente l' "a campo". Prova ad effettuare una validazione del dato prima di scriverlo su file, ad esempio per un campo di tipo stringa

Dim s as String

...

s=rs!campo
If Len(s)>0 Then
  flog.writeline s
End If