Récupérer le premier mot d'une variable

nickoos Messages postés 9 Date d'inscription lundi 19 décembre 2005 Statut Membre Dernière intervention 9 juillet 2009 - 9 juil. 2009 à 03:39
nickoos Messages postés 9 Date d'inscription lundi 19 décembre 2005 Statut Membre Dernière intervention 9 juillet 2009 - 9 juil. 2009 à 16:09
Salut a tous.


A l'aide d'un timer, je récupère une conversation d'un chat (Camfrog). Le problème est que je récupère TOUTES les phrases.

J'aimerais récupérer que un certain mot des phrases.

Exemple :

NiCkOoS : ceci est un test

NiCkOoS : $aide


J'aimerais donc récupérer juste le mot ceci ou $aide :)


Voici mon code source actuel :


procedure TForm3.Timer1Timer(Sender: TObject);

begin

  Timer1.Enabled := False;

  longueur := SendMessage(aa, WM_GETTEXTLENGTH, 0, 0);

  SetLength(texte, longueur);

  SendMessage(aa, WM_GETTEXT, longueur - 1, LParam(PChar(texte)));

  Memo1.Lines.Add(texte);

end;


Merci pour votre aide !

2 réponses

L_art_ment Messages postés 302 Date d'inscription vendredi 21 septembre 2007 Statut Membre Dernière intervention 6 février 2013
9 juil. 2009 à 09:18
Salut !
Tu peux utiliser la fonction pos, qui te retourne la position d'une sous-chaine dans une chaine
par exemple :

var i:integer;
i:=pos(' ',text); //on place dans la variable i la position du premier caractére espace, i vaudrat 0 si il n'y a pas d'espace dans la chaine
if i<>0 then memo1.lines.add(copy(0,i-1)) else memo1.lines.add(text) //ici je fais le test, si i<>0 (si il y a un espace dans la chaine), j'utilise la fonction copy qui va "couper" la chaine du caractére 0 (le début) au caractére i-1 (juste avant l'espace), sinon si i=0 on a pas d'espace donc on a un seul mot donc j'ajoute le tout dans le memo

<hr />
L'Armand joue, l'arme en joug... www.art-ment.com
0
nickoos Messages postés 9 Date d'inscription lundi 19 décembre 2005 Statut Membre Dernière intervention 9 juillet 2009
9 juil. 2009 à 16:09
Salut.


J'ai testé ta solution, le seul problème, c'est qu'il ne récupère que le premier mot de la première phrase !

J'aurais aimé qu'il récupère de toutes les phrases :/


Une ptite solution ?


Merci encore !
0
Rejoignez-nous