Formatando A Saída De Um Arquivo Txt

[Señor Smoke]

Fala pessoal,

Gostaria que a saída do meu arquivo txt, tivesse um formato específico.

Tenho um datagrid carregado com o resultado de uma consulta. Então apartir deste datagrid eu gero o arquivo txt. Só que ele tá ficando assim:

61             3997695                24/02/2005                  BRT
61             3997695                24/02/2005                  BRT
61             3997695                24/02/2005                  BRT

E eu queria que ele ficasse assim:

61;3997695;24/02/2005;BRT
61;4794684;24/02/2005;BRT
61;6271082;24/02/2005;BRT

alguém tem alguma sugestão?

Desde já agradeço.

[]s

[Decio]

Como você esta salvando o arquivo?

[Señor Smoke]

Estou fazendo assim para salvar o arquivo :

Private Sub Gera_Click()
Open "c:\nome.txt" For Output As #1
Do Until Rs2.EOF
 Print #1, Rs2.GetString(, 100, vbTab, vbCrLf, "");
Loop
MsgBox "Arquivo -  - gerado com sucesso !!"
End Sub

Onde Rs2 é um recordset associado ao conteudo de um datagrid.

[cyberalexxx]

Eu costumo usar FSO pra gerar textos:

Private Sub Gera_Click()
     Dim fso As New FileSystemObject
     dim arquivo as textstream
     Set arquivo = fso.CreateTextFile("arquivo.txt", True)
     Do Until Rs2.EOF
          arquivo.writeline Rs2("campo1") & ";" & Rs2("campo2") & ";" & Rs2("campo3") & ";" & Rs3("campo4")
     Loop
     MsgBox "Arquivo -  - gerado com sucesso !!"
End Sub

[Decio]

Você pode fazer de três formas:

Open "c:\nome.txt" For Output As #1
  Write #1, "100", "200", "300", "400"
Close #1

Que vai salvar neste formato: "100","200","300","400" ou

Open "c:\nome.txt" For Output As #1
  Print #1, "100" & ";" & "200" & ";" & "300" & ";" & "400"
Close #1

Que vai salvar neste formato:

100;200;300;400

ou

usar a forma que o cyberalexxx sugeriu, usando o FSO.

[Señor Smoke]

Eu costumo usar FSO pra gerar textos:

Private Sub Gera_Click()
     Dim fso As New FileSystemObject
     dim arquivo as textstream
     Set arquivo = fso.CreateTextFile("arquivo.txt", True)
     Do Until Rs2.EOF
          arquivo.writeline Rs2("campo1") & ";" & Rs2("campo2") & ";" & Rs2("campo3") & ";" & Rs3("campo4")
     Loop
     MsgBox "Arquivo -  - gerado com sucesso !!"
End Sub

Ok, mas cyberalexxx aonde esse arquvo tá sendo gerado?

Como controlamos isso?

[]s

[cyberalexxx]

aki:

Private Sub Gera_Click()

    Dim fso As New FileSystemObject

    dim arquivo as textstream

    Set arquivo = fso.CreateTextFile("c:\temp\arquivo.txt", True)

    Do Until Rs2.EOF

        arquivo.writeline Rs2("campo1") & ";" & Rs2("campo2") & ";" & Rs2("campo3") & ";" & Rs3("campo4")

    Loop

    MsgBox "Arquivo -  - gerado com sucesso !!"

End Sub

[Señor Smoke]

É verdade, percebi agora vendo aqui srsrs

Agora o processo de geração tá um pouco lento, tipo eu tenho muitos registros vai ver é por isso