Localizando e Substituiando somente se Tiver [xxxxx]
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...
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...
Sremulador
Curtidas 0
Respostas
Edineidaniel
13/07/2005
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
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
GOSTEI 0
Cabelo
13/07/2005
A função StringReplace não ajudaria????
GOSTEI 0
Sremulador
13/07/2005
A função StringReplace não ajudaria????
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...
GOSTEI 0
Sremulador
13/07/2005
helllllpppp......
CABEÇALHO
NomeCliente: @NOMExxxxxxxxxxxxxxxxxxxxxx
Endereço: @ENDERxxxxxxxxxxxxxxxxx Nº xxxxxxxx
Quero 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....
CABEÇALHO
NomeCliente: @NOMExxxxxxxxxxxxxxxxxxxxxx
Endereço: @ENDERxxxxxxxxxxxxxxxxx Nº xxxxxxxx
Quero 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....
GOSTEI 0
Sremulador
13/07/2005
helpppppp.............
GOSTEI 0
Beppe
13/07/2005
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.
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.
GOSTEI 0