Substituir caracter na string
Olá.
Boa noite a todos.
como faço para substituir um caracter na string.
Exemplo:
Tenho a string ´vaca´.
Quero substituir a letra ´a´ por ´b´. ficaria assim, após executado o código: ´Vbcb´
Obrigado.
Boa noite a todos.
como faço para substituir um caracter na string.
Exemplo:
Tenho a string ´vaca´.
Quero substituir a letra ´a´ por ´b´. ficaria assim, após executado o código: ´Vbcb´
Obrigado.
Dbergkamps10
Curtidas 0
Melhor post
Huidemar Costa
02/02/2016
é a mesma ideia, uma forma seria utilizar o StringList.
var
Arquivo : TStringList;
begin
try
Arquivo.LoadFromFile('arquivo.txt');
Arquivo.Text := StringReplace(Arquivo.Text, 'cnpj', 'novoconteudo', [rfReplaceAll]);
finally
Arquivo.Free;
end;
end;GOSTEI 1
Mais Respostas
Madcat
16/07/2006
Procura e substituição de string num campo memo
Procedure TForm1.Button1Click (Sender: TObject);
Begin
FindReplace(Edit1.Text,Edit2.Text, Memo1);
end;
Procedure FindReplace (const Enc, subs: String; Var Texto: TMemo);
Var
i, Posicao: Integer;
Linha: string;
Begin
For i:= 0 to Texto.Lines.count - 1 do
begin
Linha := Texto. Lines[i];
Repeat
Posicao:=Pos(Enc,Linha);
If Posicao > 0 then
Begin
Delete(Linha,Posicao,Length(Enc));
Insert(Subs,Linha,Posicao);
Texto.Lines[i]:=Linha;
end;
until Posicao = 0;
end;
end;
Procedure TForm1.Button1Click (Sender: TObject);
Begin
FindReplace(Edit1.Text,Edit2.Text, Memo1);
end;
Procedure FindReplace (const Enc, subs: String; Var Texto: TMemo);
Var
i, Posicao: Integer;
Linha: string;
Begin
For i:= 0 to Texto.Lines.count - 1 do
begin
Linha := Texto. Lines[i];
Repeat
Posicao:=Pos(Enc,Linha);
If Posicao > 0 then
Begin
Delete(Linha,Posicao,Length(Enc));
Insert(Subs,Linha,Posicao);
Texto.Lines[i]:=Linha;
end;
until Posicao = 0;
end;
end;
GOSTEI 0
Micheus
16/07/2006
Se vc utiliza D7, pode utilizar a função StringReplace (SysUtils). Ex.:Observe que é possível definir se será substituida apenas a 1ª ocorrência ou todas, bem como se serão diferenciadas maiúsculas de minúsculas.
Texto := ´vaca´; Texto := StringReplace(Texto, ´a´, ´b´, [rfReplaceAll, rfIgnoreCase]);
GOSTEI 0
Dbergkamps10
16/07/2006
Obrigado aos dois companheiros que responderam. Funcionou perfeitamente.
Atenciosamente,
Dalton
Atenciosamente,
Dalton
GOSTEI 0
Marcos Cruz
16/07/2006
ola como eu faria isso para usar em arquivo txt quero pegar determinado valor tipo um CNPJ e trocar
GOSTEI 0
Marcos Cruz
16/07/2006
ola como eu faria isso para usar em arquivo txt quero pegar determinado valor tipo um CNPJ e trocar
GOSTEI 0