Aspas

Question

Tenho uma string assim[b:5fda925afd]�no,me�,�sobre,nome�[/b:5fda925afd]estou usando o StringReplace para substituir a [b:5fda925afd],[/b:5fda925afd] por | mas s� quero substituir o que s� est� fora da...

Marco Salles · Answer

a partir do delphi 7.0 voce pode usar o PosEx

function StringReplaceEx(var Texto:String):String; var P,D:integer; begin P:=pos(��,texto); while p > 0 Do begin D:=PosEx(��,texto,P+1); if D-P=2 then texto[P+1]:=�|�; p:=D; end; result:=Texto; end;

Rud� · Answer

Sim isso eu vi mas fiz outro teste e n�o funcionou
ele nunca vai ser sempre esse que eu falei, pode ser de qualquer jeito!
Coloquei isso [b:fbd8bc2337]�no,me�,,�sobre,nome�[/b:fbd8bc2337] e n�o mudou nada!

Marco Salles · Answer

Ruda meu amigo , vamos com calma...[quote:6fe63ce35f]inicialmete Voce me passou isto[b:6fe63ce35f]�no,me�,�sobre,nome� para ser transF em : �no,me�|�sobre,nome�[/b:6fe63ce35f]Ai eu fiz este algoritmimo que atende a situa��o , para Substituir todas as Virgulas que est�o entre duas aspas seguidas... Porque , pelo que tudo indica era este o seu problema inicialPor�m voce testou com isso:[b:6fe63ce35f]�no,me�,,�sobre,nome� [/b:6fe63ce35f][/quote:6fe63ce35f][color=darkred:6fe63ce35f][b:6fe63ce35f]� claro que n�o vai ocorrer nada , pois pela logica empregada nesse caso n�o vai ter duas Aspas seguidas separadas por uma virgula...[/b:6fe63ce35f][/color:6fe63ce35f]Pra se ter um resposta logica � preciso que set tenha uma pergunta logica.. N�o da para saber a diferen�a de :�no,me�,,�sobre,nome�  de  �no,me�,A,�sobre,nome� OU  �no,me�,AB,�sobre,nome�  OU �no,me�,ABC,�sobre,nome� etc...Sem que se defina algum[b:6fe63ce35f] criet�rio [/b:6fe63ce35f]logico[quote:6fe63ce35f]entende-se que voce esta carregando algo de algum lugar para outro lugar , aonde se usou a virgula para separar as strings... e esta virgula voce na hora da importa��o quer substituir pelo |... Porem o texto ou conteudo que se esta importando deve ter uma l�gica , sen�o n�o tem muito o que fazer , [/quote:6fe63ce35f]Posso te fornecer tamb�m um algoritimo que troque todas as virgulas entre duas aspas por | assim:[quote:6fe63ce35f]�no,me�,,,,,,,,,,,,,,�sobre,nome� por �no,me�|�sobre,nome� ou �no,me�|||||||||||�sobre,nome� ...

Marco Salles · Answer

com eu disse antes um algoritimo para trocar todas as virgulas entre duas aspas pelo | , pode ser :

function StringReplaceEx(var Texto:String):String; var P,D,V,U,i:integer; begin u:=0; P:=pos(��,texto); while p > 0 Do begin D:=PosEx(��,texto,P+1); v:=posEx(�,�,texto,P+1); U:=V; While V-P = 1 do begin P:=V; v:=posEx(�,�,texto,v+1); end; if D - P =1 then for i:=U to D-1 do texto[i]:=�|�; p:=D; end; result:=Texto; end;

Porem , ele so tem condi�oes de trocar se entre essas duas aspas tiver somente o caracter Virgula

Assim por exemplo:

�,�,�,d�,K..,�,��,�,,,,,,,� ele troca por : �|�|�,d�,K..,�|��|�|||||||�

porem caso necessite que no lugar de tantas virgulas aparecre somente
um Unico | , com pouca modifica��o se consegue...

Emfim , no inicio me confundi um pouco quando voce disse que ja tinha tentando com o StringReplace e n�o tinha conseguido...
No caso de querer trocar uma unica virgula entre duas aspas �,� por �|� n�o precisa do algoritimo anterior , a fun��o[b:dd58382603] StringReplace citada por voce , bem como a fun��o AnsiReplaceStr(texto,��,��,��|��)[/b:dd58382603] , dara conta do recado..

F�rum Aspas #333745