Manipulação de strings - alterar valor

[Diegomega]

eaí pessoal, beleza? Será se alguém poderia me ajudar com esse quebra cabeça? Estou tentando já algum tempo mas não consegui. Agradeço desde já!


Tenho um arquivo de texto com estas linhas(exemplo) :

1,2,800,4,5,6,7,8,9,10
1,2,600,4,5,6,7,8,9,10
1,2,589,4,5,6,7,8,9,10
1,2,999,4,5,6,7,8,9,10
1,2,888,4,5,6,7,8,9,10
1,2,487,4,5,6,7,8,9,10
1,2,1297,4,5,6,7,8,9,10

Todos os números são aleatórios e estão divididos por vírgulas. Como faço para alterar o terceiro número(depois das 2 primeiras vírgulas) de cada linha para 0? Obrigado!

[Visitante]

Boas, já aprendeu as funções "Copy","Insert","Delete","Lenght" e "Pos"? Aconselho a dar uma vista de olhos. Essas Funções são para manipulação de dados em Pascal, por exemplo se quiser copiar algo:

Program iAz0x ;Var s1,s2:string;       Begins1:= 'ABCDE';s2:=copy(s1,2,3); // O número 2 representa a posição de inicio e o número 3 a do fim.write(s2);End.

se quiser apagar:

Program iAz0x ;Var s:string;Begin  s:= 'Qualquer coisa'; delete(s,5,1); //A letra S é a variavel do tipo String que se pretende manipular, o número 5 é a posição de inicio para deletar e o número 1 a do fim. write(s); End.

para inserir texto:

Program iAz0x ;Var s:string;Begins:='Qual coisa';insert('quer',s,5); //Insere a palavra "quer" na posição 5 da string S completando a palavra. write(s);  End.

para saber a posição de um certo caractere: 

Program iAz0x ;Var s1,s2:string;    n:integer;    Begins1:='string';s2:='Esta string';n:=POS(s1,s2); //A variável N guarda a posição da string "s1" na string "s2".write(s1,' está na posição ', n);End.

por fim, se quiser saber quantos caracteres tem uma palavra/frase (Incluindo o espaço entre as palavras):

Program iAz0x ;Var s:string;    n:integer;									Begin s:='Esta string';n:=length(s); //A variável N guarda o número de caracteres na string "S". write(s,' tem ',n,' caracteres.');End.

Bem.. isso é tudo o que necessita para fazer o que deseja, qualquer dúvida estou a seu dispor.

 

Cumprimentos,

iAz0x