É possivel fazer com VB?

[Jacobson]

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

Qual linguagem é mais facil fazer isso?

OBS: Claro que o arquivo não tem somente 3 linhas.

Qualquer ajuda é bem vinda.

Obrigado.

[lobismano]

E ai beleza.

Tenta algo assim.

Dim char, vetor, aux

char = "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"

aux = ""

vetor = Split(char, ";", -1, 1)

For a = 0 To 17

If a < 16 Then

aux = aux & vetor(a) & ";"

Else

aux = aux & "seuvalor" & ";"

aux = aux & vetor(a + 2)

a = 17

End If

Next

MsgBox aux

at.