Fórum corrigir string p/ Script #57354
01/12/2006
0
Galera estou percorrendo uma tabela e montando uma Script até ai blz só que quando encontro um campo string e ele usa ( ´ ) da erro pois a string fica aberta. assim:
´´ABCD_EFGHI´´´ ai eu teria que percorer ela e deixar
assim: ´´´´´ABCD_EFGHI´´´´´ para que ela ficasse certa
e se eu tiver ( ´ ) no meio ´´ABCD_´EFGHI´´´ ficaria diferente
assim: ´´´´´ABCD_´´EFGHI´´´
aguém que já passou por isso tem alguma coisa já feita???
estou qbrando a cabeça nisso,rss
Thanks
´´ABCD_EFGHI´´´ ai eu teria que percorer ela e deixar
assim: ´´´´´ABCD_EFGHI´´´´´ para que ela ficasse certa
e se eu tiver ( ´ ) no meio ´´ABCD_´EFGHI´´´ ficaria diferente
assim: ´´´´´ABCD_´´EFGHI´´´
aguém que já passou por isso tem alguma coisa já feita???
estou qbrando a cabeça nisso,rss
Thanks
Marcos Fernando
Curtir tópico
+ 0
Responder
Posts
01/12/2006
Marcos Fernando
Eu fiz assim e resolvi tudo.rsss
thanks
function ArrumaScript (Campo: String ): string;
var t: string;
i,c : integer;
begin
c := 0;
for I := 1 to Length(Campo) do
begin
if campo[I] = ´´´´
then
begin
c := c+1;
t:=t+´´´´;
end;
t := t+ campo[I];
end;
campo := t;
if c <> 0 then
if (c div 2) = (c/2) then t := t+´´´´´´;
Result := campo;
end;
thanks
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)