Chaine Supprimer des apostrophesRésolu

Question

Bonjour à tous

Je me hurte au problème suivant
j'ai une chaine quit vaut 
'uebgse.bob'
J'aimerais supprimer les apostropes de cette chaine mais je ne trouve pas comment faire.

J'ai essayé avec AnsiReplaceStr(var,chr(27),'');
et d'autres méthodes mais rien n'y fait ...

Peut-être que la solution est devant moi mais je vois vraiment pas

Merci à tous ceux qui pourrons se pencher sur mon problème.

++

Filipe

__________________________________________________
  - Le site sur ogame de référence !
  - Le gén&#

cptpingu · Accepted Answer

function supprimer(const chaine: string):string;
var
  i : integer;
begin
  Result :=  '';
   for  i: =1 to length(chaine) do
    if chaine[i] <> ''''then
      Result := Result + chaine[i];
end;





Sinon ceci fonctionne chez moi.

Filipe35 · Answer

Solution temporaire mais bon

temp:=var;
If AnsiPos('''', temp) > 0 then temp := Copy(temp, 2, length(temp));
If AnsiPos('''', temp) > length(temp)-2 then temp := Copy(temp, 0, length(temp)-1);

__________________________________________________
  - Le site sur ogame de référence !
  - Le gén&#

cptpingu · Answer

Essaie ceci:
AnsiReplaceStr(var,'''','')

Tu est sur que c'est chr(27) ?

Filipe35 · Answer

AnsiReplaceStr(var,'''','')
ne fonctionne pas ;)

mais ta fonction si, en gros tu reprend 'ma technique' (si je peux me permettre :P ) et tu l'appliques à toute la chaine :P

Merci ;)








__________________________________________________
  - Le site sur ogame de référence !
  - Le gén&#

japee · Answer

Il faut faire attention à l'utilisation correcte de la fonction AnsiReplaceStr ! 

uses StrUtils;



var
  NewString, OldString: string;



procedure TForm1.Button1Click(Sender: TObject);
begin
  OldString := 'uebgse.bob';
  NewString :=  AnsiReplaceStr(OldString, '''', '');
  { no problem, on obtient NewString = uebgse.bob }
  Edit1.Text := NewString;
end;


Bonne prog'

f0xi · Answer

ChainePos !!!! regarde les sources.

S := '''blabla''';
NS := ChainePos('''',S,2);

ou sinon tout simplement :

S := copy(S,2,Length(S)-1);

Filipe35 · Answer

Merci à vous 2 ;)

Pour la solution la solution à jappee, j'ai peut être omis var := .....
mais j'ai toujours marché sans oO

Pour la solution à foxi, elle est nikel pour tout faire en une ligne ^^
mais il faut juste vérifier la présence des apostrophes :P

Merci ;)
__________________________________________________
  - Le site sur ogame de référence !
  - Le gén&#

f0xi · Answer

s := stringreplace(S,'''','',[rfReplaceAll]);

pouf.

Chaine Supprimer des apostrophes

8 réponses

Votre réponse

Discussions similaires