LEITURA ARQUIVO TEXTO

KERPLUNK 14/06/2011 14:28:04
#376721

Esse arquivo é vc quem gera? Se for, melhor gerar como XML, fica muuuito mais fácil pra carregar... se não for, vai ter que ser uma gambiarra...

LEONARDOSILVEIR 14/06/2011 14:36:53
#376722

Entao, eu resgato o html da pagina e faço um regex.replace e limpo os caracteres especiais do html, geralmente ele vai ficar dessa forma como coloquei no exemplo, se for possivel gerar o xml tbem axo mais facil de trabalhar. aguardo seus comentários.

ALELUIZ 14/06/2011 14:45:54
#376723

Um exemplo que utilizo, abrindo texto , espero que ajude.......

Dim fs, f



Set fs = CreateObject([Ô]Scripting.FileSystemObject[Ô])
vdirfile = ThisWorkbook.Path & [Ô]\RecusasTXT\property\[Ô] & vCPF & [Ô]_[Ô] & vCarteira & [Ô]_[Ô] & vProposta & [Ô].txt[Ô]
Set adoc = fs.CreateTextFile(vdirfile, True)
Set f = fs.OpenTextFile(vdirfile)
While Not f.AtEndOfStream
lin = f.readline

[ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô]ENDEREÇO[ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô]ENDEREÇO[ô]

If Mid(lin, 1, 8) = [Ô]Endereço[Ô] Then [ô] Endereco<<<<
cont = Len(lin)
For B = 1 To cont
testete = Mid(lin, B, 8)
If Mid(lin, B, 8) = [Ô]Telefone[Ô] Then
VarEndereco = Trim(Mid(lin, 11, B - 11))
B = cont
End If
Next B
End If
wend

ALELUIZ 14/06/2011 14:52:28
#376725

Agora que vi que é .net não sei se funciona .........

LEONARDOSILVEIR 14/06/2011 22:28:03
#376786

KERPLUNK, como posso fazer pra gerar o xml deste arquivo txt?

PEGUDO 15/06/2011 08:38:34
#376800 Resposta escolhida

Cara, eu fiz este exemplo baseado no texto que você postou aqui no tópico.
Execute o programa e clique no botão [Ô]buscar dados[Ô].

Espero que tenha ajudado.