Ler linhas de um arquivo de texto

[mmalainho 0]

Bom dia,

 

Estou com um problema que é seguinte:

 

Tenho um arquivo de texto, tipo txt, com a seguinte estrutura:

PS2157000003300009999999999977EUR200612080000000000000000000000000000000

PS2257000123456789101112131415000000000020020061229 723642 173900

PS2257000123456789101112131415000000000360620061223 673595 174400

PS2257000123456789101112131415000000000111120061233 688610 176300

PS2257000123456789101112131415000000000115220061230 6338 176400

 

 

Neste caso tenho 5 linhas, preciso de pegar cada linha individualmente por tenho que recortar cada linha em várias partes. O Arquivo tem mesmo que ter esta estrutura.

 

Desde já agradeço a quem tentar ajudar.

M Malainho

[arr 0]

Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject")

Set TextoStr= ObjFSO.OpenTextFile("c:\arquivotexto.txt")

 

 

While Not TextoStr.AtEndOfStream

LinhadeTexto = TextoStr.ReadLine

 

'Rotina com a LinhadeTexto

 

Wend

[mmalainho 0]

Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject")

Set TextoStr= ObjFSO.OpenTextFile("c:\arquivotexto.txt")

 

 

While Not TextoStr.AtEndOfStream

LinhadeTexto = TextoStr.ReadLine

 

'Rotina com a LinhadeTexto

 

Wend

Value!

Vou testar com o meu código.

Obrigado