ASPAS EM ARQUIVO DE TEXTO
Ola galera!!!
Preciso de uma ajuda de voces.
Estou gerando um arquivo de texto dessa forma.
Open ("c:\cm052005.txt") For Output As #1
Linha as String
If RegistroDB.RecordCount > 0 Then
With RegistroDB
.MoveFirst
Do While .EOF = False
Linha = "Valor referente a receita de Janeiro"
Write #1, Linha
.MoveNext
Loop
End With
End If
o fato que esta gerando aspas no inicio e no final da linha, e não pode gerar nada.
Como resolver isso.
Meu windows é Xp, será que tem alguma coisa haver?
[S51][S55]
Preciso de uma ajuda de voces.
Estou gerando um arquivo de texto dessa forma.
Open ("c:\cm052005.txt") For Output As #1
Linha as String
If RegistroDB.RecordCount > 0 Then
With RegistroDB
.MoveFirst
Do While .EOF = False
Linha = "Valor referente a receita de Janeiro"
Write #1, Linha
.MoveNext
Loop
End With
End If
o fato que esta gerando aspas no inicio e no final da linha, e não pode gerar nada.
Como resolver isso.
Meu windows é Xp, será que tem alguma coisa haver?
[S51][S55]
Experimente mudar para
Open ("c:\cm052005.txt") For Output As #1
Linha as String
If RegistroDB.RecordCount > 0 Then
With RegistroDB
.MoveFirst
Do While .EOF = False
Linha = "Valor referente a receita de Janeiro"
Print #1, Linha
.MoveNext
Loop
End With
End If
Open ("c:\cm052005.txt") For Output As #1
Linha as String
If RegistroDB.RecordCount > 0 Then
With RegistroDB
.MoveFirst
Do While .EOF = False
Linha = "Valor referente a receita de Janeiro"
Print #1, Linha
.MoveNext
Loop
End With
End If
Funcionou...
Fraqueza minha [S55][S51] nem tinha me lembrado.
Obrigadão
Abraços.
Fraqueza minha [S55][S51] nem tinha me lembrado.
Obrigadão
Abraços.
Tópico encerrado , respostas não são mais permitidas