Selectionner plusieur Chaines
Résolu
louiwahl
Messages postés
103
Date d'inscription
vendredi 20 février 2004
Statut
Membre
Dernière intervention
16 mai 2019
-
5 sept. 2005 à 23:48
louiwahl Messages postés 103 Date d'inscription vendredi 20 février 2004 Statut Membre Dernière intervention 16 mai 2019 - 6 sept. 2005 à 00:23
louiwahl Messages postés 103 Date d'inscription vendredi 20 février 2004 Statut Membre Dernière intervention 16 mai 2019 - 6 sept. 2005 à 00:23
A voir également:
- Selectionner plusieur Chaines
- Selectionner la derniere cellule non vide d'une colonne excel vba - Forum Visual Basic 6
- Derniere cellule remplie d'une colonne - Forum Visual Basic 6
- Vba dernière cellule non vide (Ignorer les formules résultat "") - Forum VBA Office (Excel, Word ...)
- Determiner la première cellule non vide d'une feuille excel vb.n ✓ - Forum VB.NET
- Analyse syntaxique des chaînes de caractères - Forum Java
2 réponses
ni69
Messages postés
1418
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2010
12
6 sept. 2005 à 00:16
6 sept. 2005 à 00:16
Voici le code qu'il te faut :
procedure TForm1.chercheMots;
var
i, StartPos,ToEnd: Integer;
begin
with MemoEleve do begin
For i := 0 to ListBox1.Items.Count-1 do begin
Edit1.Text: = ListBox1.Items.Strings[i];
StartPos := -1;
repeat // ON REPETE CE CODE...
ToEnd : = Length(Text) - StartPos;
StartPos := FindText(Edit1.Text,StartPos+1,ToEnd,[stMatchCase]); // Recherche le mot contenu dans Edit1.Text dans le Memo à partir du (StartPos+1)ème caractère
if StartPos <> -1 then begin // Si on a trouvé quelque-chose
SelStart : = StartPos;
SelLength := Length(Edit1.Text);
SelAttributes.Color := clRed; // On colore le texte
end;
until StartPos =-1; // ...JUSQU'A CE QUE StartPos VAILLE -1, C'EST A DIRE QUE LE MOT N'A PAS (OU PLUS) ETE TROUVE DANS LE MEMO
end;
end;
end;
@+
Bonne Prog'
Nico [www.ni69.new.fr]
<hr size="2" width="100%">
N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !
procedure TForm1.chercheMots;
var
i, StartPos,ToEnd: Integer;
begin
with MemoEleve do begin
For i := 0 to ListBox1.Items.Count-1 do begin
Edit1.Text: = ListBox1.Items.Strings[i];
StartPos := -1;
repeat // ON REPETE CE CODE...
ToEnd : = Length(Text) - StartPos;
StartPos := FindText(Edit1.Text,StartPos+1,ToEnd,[stMatchCase]); // Recherche le mot contenu dans Edit1.Text dans le Memo à partir du (StartPos+1)ème caractère
if StartPos <> -1 then begin // Si on a trouvé quelque-chose
SelStart : = StartPos;
SelLength := Length(Edit1.Text);
SelAttributes.Color := clRed; // On colore le texte
end;
until StartPos =-1; // ...JUSQU'A CE QUE StartPos VAILLE -1, C'EST A DIRE QUE LE MOT N'A PAS (OU PLUS) ETE TROUVE DANS LE MEMO
end;
end;
end;
@+
Bonne Prog'
Nico [www.ni69.new.fr]
<hr size="2" width="100%">
N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !
louiwahl
Messages postés
103
Date d'inscription
vendredi 20 février 2004
Statut
Membre
Dernière intervention
16 mai 2019
6 sept. 2005 à 00:23
6 sept. 2005 à 00:23
Merci beaucoup cela marche tres bien
je vais regarder ce a quoi je n'est pas pense
Merci encore et A+
Louis
je vais regarder ce a quoi je n'est pas pense
Merci encore et A+
Louis
