Localizando e Substituiando somente se Tiver [xxxxx]

Question

Eu j� pesquisei muito no forum e na net mas ainda n�o conseguin fazer esta formata��o.

Tipo em um arquivo de texto tenho um variavel #RTEXXXXXXXXX que ser� substituidad por outra inclusive fixando campos em branco caso n�o haja letras a preencher, ser� que alguem tem uma ideia por ai...

Valeu...

Edineidaniel · Answer

Amigo,Acho q isso pode te ajudar...function BuscaTroca(Text, Busca, Troca: String): String;var  n, i: integer;begin  i := length(Busca);  for n := 1 to length(Text) do    begin      if Copy(Text, n, i) = Busca then        begin          Delete(Text, n, i); Insert(Troca, Text, n);        end;    end;  Result:= Text;end;Att,Edinei...

Cabelo · Answer

A fun��o StringReplace n�o ajudaria????...

Sremulador · Answer

[quote:f02396a486]A fun��o StringReplace n�o ajudaria????[/quote:f02396a486]eu j� utilizo esta fun��o por�m tem campos que pode variar os numeros de X alem disso esta fun��o iria desalinhar o texto, teria que retirar os X e adicionar no lugar espa�os at� o temino......

Sremulador · Answer

helllllpppp......CABE�ALHONomeCliente: @NOMExxxxxxxxxxxxxxxxxxxxxxEndere�o: @ENDERxxxxxxxxxxxxxxxxx N� xxxxxxxxQuero que seja feita a substitui��o ate o ultimo x caso n�o tenha letras a substituir ent�o colocar um espa�o em branco.Obrigado pela ajuda.......

Sremulador · Answer

helpppppp................

Beppe · Answer

Siga este modelo:StringReplace(Texto, �@NOME�, Nome + StringOfChar(� �, Nxs - Length(Nome)), []);Retire os x�s no texto que fica mais f�cil. Indique o n�mero de casas dispon�veis com Nxs....

F�rum Localizando e Substituiando somente se Tiver [xxxxx] #287968