Movimentar-se por um arquivo txt

[asp.net 0]

Galera eu tenho um arquivo txt na seguinte estrutura:010063200212231905080000000000000170592510110400000000368 CABO BRANCO, PB RUA MIGUEL COUTO NUM 221 JOAO PESSOA PB000C038586 02DT 9530/PAM 322352 PB0036et001 LEDA MENEZES 216-5319 Hardware/Microcomputador/Microcomputador - Remanej 03existe ponto logico e eletrico.pb0036et001-mod DT9530/PAM-SERIE 322352-PROCOMP / Remanejamento: existe ponto logico e eletrico.pb0036et001-mod DT9530/PAM-SERIE 322352-PROCOMP 03Designação de Grupo mudou de RESUT/JP - Atendimento para TELEMATIC 9900005siate@caixa.gov.br tenho que trata-lo para poder jogar os valores num banco de dados. Seria assim na primeira linha tenho que pegar os primeiros dois dígitos para armazenar num campo, depoi seu tenho que pegar os valores do terceiro caracter até o 7, até ai tudo bem, porem quando eu utilizo o ReadLine para pegar o valor do Terceiro registro até o quinto o cursor passa para a segunda linha, eu tenho que ler toda a linha sem passar para a segunda linha, tem algum move next , ou move line?

[Salgado 4]

você deve armazenar a linha em uma variavel para usar o mid para pegar dentro dela.

 

Pode mostrar como está fazendo?

[asp.net 0]

Resolvi assim:while not objetotexto.AtEndOfStream if objetotexto.line = 1 then texto = objetotexto.readline Session("registro") = Left(texto,2) Session("fornecedor") = Mid(texto,3,4) Session("dataarquivo") = Mid(Mid(texto,7,8),7,2) + "/" + Mid(Mid(texto,7,8),5,2)+ "/" + Left(Mid(texto,7,8),4) Session("horaarquivo") = Left(Mid(texto,15,6),2)&":"&Mid(Mid(texto,15,6),3,2)&":"&Right(Mid(texto,15,6),2)&"" Session("chamado") = Mid(texto,21,20) Session("atividade") = Mid(texto,41,3) Session("banco") = Mid(texto,44,3) Session("unidade") = Right(Mid(texto,47,10) ,4) Session("tipounidade") = Mid(texto,57,30) Session("nomeunidade") = Mid(texto,87,40) Session("enderecounidade") = Mid(texto,127,60) Session("cidadeunidade") = Mid(texto,187,40) Session("ufunidade") = Mid(texto,227,2) Session("codbancario") = Mid(texto,229,10) elseif objetotexto.line = 2 then texto = objetotexto.readline Session("idservico") = Left(texto,2) Session("modeloequipamento") = Mid(texto,3,40) Session("numeroserie") = Mid(texto,43,40) Session("nomenarede") = Mid(texto,83,40) Session("nomenarede") = Mid(texto,83,40) Session("contato") = Mid(texto,123,40) Session("fonecontato") = Mid(texto,163,20) Session("servicocaixa") = Mid(texto,183,50) elseif objetotexto.line = 3 then texto = objetotexto.readline Session("idchamado") = Left(texto,2) Session("descricaochamado") = Mid(texto,3,248) else Objetotexto.ReadLine end ifwendNem sei se é a melhor forma e a mais rápida.