Ler arquivo txt

[silas_i 0]

Olá pessoal,

 

estou tentando ler um arquivo TXT só que não tem separador (virgula ou ponto-e-vírgula) somente espaços, como eu poderia fazer pra ler essas linhsa !?

 

 

a linha abaixo é uma das linhas do meu arquivo e onde esta em negrito é o que preciso ler e verificar no meu banco de dados....

 

10206206887000155026300296741 006206887000155000000499400000276 176000002762 I06050107000000027600000276 060107000000000414034130098DM000000000029000000000000000000000000000000000000000

000000000000000000000000000000000000385000000000000000000000000000 08010700000000000000000000000NOME CLIENTE BL000009

[silas_i 0]

Galera a solução ta mais perto do que eu imagino.rs

 

usei isto :

 

Set FSO = Server.CreateObject("Scripting.FileSystemObject")arquivo = Server.Mappath("nomearquivo.txt") Set texto = fso.OpenTextFile(arquivo & "",1,false,0) while (not texto.AtEndOfStream)linha = texto.ReadLineresponse.Write(linha)'na variavel linha esta cada linha ai é so montar seu menu aquiwend

a informação que eu preciso pegar começa sempre com 176, acho que se usar a função mid resolve....vou testar e posto aqui....

[dimarcinho 0]

hm

vou ti dar a idéia +ou- (ultimamente to preguiçoso pra escrever o código, hauahua)

 

Pega a string inteira vinda do arquivo de texto e quebra num array, separando por espaços

 

vStr = Split(str, " ") 'separa em espaços'agora q você separou pelos espaços, procura qual valor ficou com o início 176Find = Falsei = 0While not Find = True	k = vStr(i)	If Cint(Left(k,3)) = 176 Then 		'pega o código o q você ker do Split(i-1)		Find = True	End If	i = i + 1Wend

como pode-se perceber, se não houver o tal 176 no inicio de nada, você vai cair num Loop infinito

 

bom, mas acho q isso ti ajuda!!!

 

[]s