- Form1.Rich1.SelLength = 0
- Vs = 0
- Backup = 0
- For t = 0 To Len(Form1.Rich1.Text)
- Form1.Rich1.Find "net_", Vs, Len(Form1.Rich1.Text) 'Recherche de "net_", il est tjs situé en début de ligne
- Vs = Form1.Rich1.SelStart + Form1.Rich1.SelLength 'on vient de trouver un "net_", le recherche devra reprendre après la fin du mot
- If Vs = Backup Or Form1.Rich1.SelLength = 0 Then Exit For 'on vérifie que ce n'est pas la deuxième fois que l'ont passe sur ce mot ou si il n'en existe pas dans le texte , sinon on se casse de la boucle
- TempIChar = Vs 'Préparation de la variable TempIChar
- LinNb1 = Form1.Rich1.GetLineFromChar(Vs) 'Le N° de ligne qui va chager dasn le do loop
- LinNb = Form1.Rich1.GetLineFromChar(Vs) 'Le N° de ligne qui va servir pour la comparaison
- Do While LinNb = LinNb1 'Do loop tant que la ligne ne change pas (ne pas utiliser : Do While LinNb = Rich1.GetLineFromChar(Vs), le Do ne fonctionnera pas !!!)
- LinNb1 = Form1.Rich1.GetLineFromChar(TempIChar) 'on cherche la prochaine ligne caractère par caractère
- TempIChar = TempIChar + 1 'Tempichar correspondait vs qui équivaut à la fin du mot rechercher
- DoEvents 'Très important, en cas de Problème on peut qd mm Quitter
- Loop
- LinVerif = Form1.Rich1.GetLineFromChar(Form1.Rich1.SelStart - 1)
- If LinVerif <> LinNb Then ' juste un petit truc pour vérifier si on est en début de ligne
- TempIChar = TempIChar - 1 'on est sortit de la boucle, donc on a changé de ligne, donc la fin de la ligne précédente correspond au caractère pécédent
- Form1.Rich1.SelLength = TempIChar - Form1.Rich1.SelStart 'Rich1.SelStart n'a pas changé, il ne rest qu'à changé la longueur de la sélection
- Form1.Rich1.SelColor = &HC000& 'Un peu de couleur, ici du vert
- End If
- Vs = Form1.Rich1.SelStart + Form1.Rich1.SelLength 'Je sais qu'on déjà mis ça plus haut, mais vs à changé
- Backup = Vs 'Un petit Backup de vs pour pouvoir vérifier la condition située un peu plus haut au prochain passage
- DoEvents 'DoEvents pour le cas où le fichier serai long, ou la boucle ne finisse pas
- Next t
Form1.Rich1.SelLength = 0
Vs = 0
Backup = 0
For t = 0 To Len(Form1.Rich1.Text)
Form1.Rich1.Find "net_", Vs, Len(Form1.Rich1.Text) 'Recherche de "net_", il est tjs situé en début de ligne
Vs = Form1.Rich1.SelStart + Form1.Rich1.SelLength 'on vient de trouver un "net_", le recherche devra reprendre après la fin du mot
If Vs = Backup Or Form1.Rich1.SelLength = 0 Then Exit For 'on vérifie que ce n'est pas la deuxième fois que l'ont passe sur ce mot ou si il n'en existe pas dans le texte , sinon on se casse de la boucle
TempIChar = Vs 'Préparation de la variable TempIChar
LinNb1 = Form1.Rich1.GetLineFromChar(Vs) 'Le N° de ligne qui va chager dasn le do loop
LinNb = Form1.Rich1.GetLineFromChar(Vs) 'Le N° de ligne qui va servir pour la comparaison
Do While LinNb = LinNb1 'Do loop tant que la ligne ne change pas (ne pas utiliser : Do While LinNb = Rich1.GetLineFromChar(Vs), le Do ne fonctionnera pas !!!)
LinNb1 = Form1.Rich1.GetLineFromChar(TempIChar) 'on cherche la prochaine ligne caractère par caractère
TempIChar = TempIChar + 1 'Tempichar correspondait vs qui équivaut à la fin du mot rechercher
DoEvents 'Très important, en cas de Problème on peut qd mm Quitter
Loop
LinVerif = Form1.Rich1.GetLineFromChar(Form1.Rich1.SelStart - 1)
If LinVerif <> LinNb Then ' juste un petit truc pour vérifier si on est en début de ligne
TempIChar = TempIChar - 1 'on est sortit de la boucle, donc on a changé de ligne, donc la fin de la ligne précédente correspond au caractère pécédent
Form1.Rich1.SelLength = TempIChar - Form1.Rich1.SelStart 'Rich1.SelStart n'a pas changé, il ne rest qu'à changé la longueur de la sélection
Form1.Rich1.SelColor = &HC000& 'Un peu de couleur, ici du vert
End If
Vs = Form1.Rich1.SelStart + Form1.Rich1.SelLength 'Je sais qu'on déjà mis ça plus haut, mais vs à changé
Backup = Vs 'Un petit Backup de vs pour pouvoir vérifier la condition située un peu plus haut au prochain passage
DoEvents 'DoEvents pour le cas où le fichier serai long, ou la boucle ne finisse pas
Next t