Alterar linhas arquivo .txt


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Alterar linhas arquivo .txt

Ricardo
não registrado

Postada em 09/03/2011 10:42 hs

Pessoal,Preciso fazer um código que altere as linhas abaixo;Linhas originaisXR;SKNRT;2011;F7PSTE00-01;NR26;Ruptura apos solda;há 124;Ruptura da capa;320;180;kgf;1;1x/lote;-;2351;4831;4;(1,2,3);244.5XR;SKNRT;2011;F7PSTE00-01;NR26;Ruptura apos solda;há 124;Ruptura da capa;320;180;kgf;1;1x/lote;-;2351;4831;4;(1,2,3);254.5XR;SKNRT;2011;F7PSTE00-01;NR26;Ruptura apos solda;há 124;Ruptura da capa;320;180;kgf;1;1x/lote;-;2351;4831;4;(1,2,3);274.5Linhas AlteradasXR;SKNRT;2011;F7PSTE00-01;NR26;Ruptura apos solda;há 124;Ruptura da capa;320;180;kgf;1;1x/lote;-;2351;4831;201141;244,5XR;SKNRT;2011;F7PSTE00-01;NR26;Ruptura apos solda;há 124;Ruptura da capa;320;180;kgf;1;1x/lote;-;2351;4831;201142;254.5XR;SKNRT;2011;F7PSTE00-01;NR26;Ruptura apos solda;há 124;Ruptura da capa;320;180;kgf;1;1x/lote;-;2351;4831;201143;244,5OBS: O arquivo tem mais de 3 linhas.Qualquer ajuda é bem vinda.Obrigado.

sNniffer

MACEIO
AL - BRASIL

Postada em 09/03/2011 22:36 hs

Cara, não dá pra entender muito bem o que você escreveu, faz o texto novamente.

Feliz aquele que transfere o que sabe e aprende.

Ricardo
não registrado

Postada em 10/03/2011 07:57 hs

Pessoal,Preciso fazer um cÃ³digo que altere as linhas abaixo;Linhas OriginaisXR;SKNRT;2011;F7PSTE00-01;NR26;Ruptura apos solda;hÃ¡ 124;Ruptura da capa;320;180;kgf;1;1x/lote;-;2351;4831;4;(1,2,3);244.5XR;SKNRT;2011;F7PSTE00-01;NR26;Ruptura apos solda;hÃ¡ 124;Ruptura da capa;320;180;kgf;1;1x/lote;-;2351;4831;4;(1,2,3);254.5XR;SKNRT;2011;F7PSTE00-01;NR26;Ruptura apos solda;hÃ¡ 124;Ruptura da capa;320;180;kgf;1;1x/lote;-;2351;4831;4;(1,2,3);274.5Linhas AlteradasXR;SKNRT;2011;F7PSTE00-01;NR26;Ruptura apos solda;hÃ¡ 124;Ruptura da capa;320;180;kgf;1;1x/lote;-;2351;4831;201141;244,5XR;SKNRT;2011;F7PSTE00-01;NR26;Ruptura apos solda;hÃ¡ 124;Ruptura da capa;320;180;kgf;1;1x/lote;-;2351;4831;201142;254.5XR;SKNRT;2011;F7PSTE00-01;NR26;Ruptura apos solda;hÃ¡ 124;Ruptura da capa;320;180;kgf;1;1x/lote;-;2351;4831;201143;244,5

Qualquer ajuda Ã© muito bem vinda...Obrigado.

J.Carlos

PRESIDENTE PRUDENTE
SP - BRASIL

Postada em 10/03/2011 07:59 hs

Dim wCont As Integer
Dim wStrReg As String * 80
wStrReg = ""
Open App.Path & "MeuArqui.txt" For Random As 1 Len = 80 'informe o tamanho do seu registro
wStrReg = "originaisXR;SKNRT;2011;F7PSTE00-01;NR26;Ruptura apos solda;há 124;Ruptura da capa;320;180;kgf;1;1x/lote;-;2351;4831;4;...." 'Conteúdo do seu 1º registroPut #1, 1, wStrReg 'altera o registro 1
wStrReg = "Ruptura apos solda;há 124;Ruptura da capa;320;180;kgf;1;1x/lote;-;2351;4831;4;(1,2,3);274.5Linhas ...." 'Conteúdo do seu 2º registro

Put #1, 2, wStrReg
Close #1
'aí você adapita pro jeito q vc precisar.

Ricardo
não registrado

Postada em 10/03/2011 08:00 hs

Pessoal,

Preciso fazer um cÃ³digo que altere as linhas abaixo;

Linhas Originais

XR;SKNRT;2011;F7PSTE00-01;NR26;Ruptura apos solda;hÃ¡ 124;Ruptura da capa;320;180;kgf;1;1x/lote;-;2351;4831;4;(1,2,3);244.5

XR;SKNRT;2011;F7PSTE00-01;NR26;Ruptura apos solda;hÃ¡ 124;Ruptura da capa;320;180;kgf;1;1x/lote;-;2351;4831;4;(1,2,3);254.5

XR;SKNRT;2011;F7PSTE00-01;NR26;Ruptura apos solda;hÃ¡ 124;Ruptura da capa;320;180;kgf;1;1x/lote;-;2351;4831;4;(1,2,3);274.5

Linhas Alteradas

XR;SKNRT;2011;F7PSTE00-01;NR26;Ruptura apos solda;hÃ¡ 124;Ruptura da capa;320;180;kgf;1;1x/lote;-;2351;4831;201141;244,5

XR;SKNRT;2011;F7PSTE00-01;NR26;Ruptura apos solda;hÃ¡ 124;Ruptura da capa;320;180;kgf;1;1x/lote;-;2351;4831;201142;254.5

XR;SKNRT;2011;F7PSTE00-01;NR26;Ruptura apos solda;hÃ¡ 124;Ruptura da capa;320;180;kgf;1;1x/lote;-;2351;4831;201143;244,5

Obrigado.

Juan Carlos R.A

MACEIO
AL - BRASIL

Postada em 10/03/2011 09:14 hs

essa alteraÃ§Ã£o de 4;(1,2,3) para 201141 depende de que? qual a condiÃ§Ã£o? a funÃ§Ã£o replace pode lhe ajudar dependendo do caso que seja .

Página(s): 1/2 PRÓXIMA »

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR