RichTextBox atteindre le mot suivantRésolu

Question

Bonjour,

Voici un code qui fonctionne bien, qui a pour but de rechercher un mot dans une richtextbox . Il trouve bien le premier mot mais je n'arrive pas &#224; atteindre le suivant... Quelqu'un pourrait m'aider &#224; faire fonctionner ce code de mani&#232;re &#224; se qu'il atteigne tout les mots rechercherch&#233;s?
J&#232;ai juste besoin du code compl&#233;mentaire pour atteindre le mot suivant, je m'arrangerai ensuite pour qu'il stock chaque valeur dans un tableau &#224; la suite.


Dim returnValue 
As 
Integer = -1



Dim start 
As 
Integer



Dim fax 
As 
String


Text = "fax:."



If Text.Length > 0 
And start >= 0 
Then



Dim indexToText 
As 
Integer = RichTextBox1.Find(Text, start, _


RichTextBoxFinds.MatchCase)



If indexToText >= 0 
Then


returnValue = indexToText


RichTextBoxtableau.Text = returnValue


fax = Microsoft.VisualBasic.Mid(RichTextBox1.Text, returnValue + 6, 10)


RichTextBoxtableau.Text = fax



End 
If



End 
If

Fran&#231;ois

cs_DARKSIDIOUS · Accepted Answer

Il te suffit de changer l'index de d&#233;part de ta recherche dans la fonction Find, par exemple :



'Premi&#232;re recherche :

Dim indexToText 
As 
Integer =  RichTextBox1.Find(Text, start, _


 RichTextBoxFinds.MatchCase)

 

If indexToText >= 0 
Then


 

returnValue = indexToText


 

RichTextBoxtableau.Text = returnValue


 

fax = Microsoft.VisualBasic.Mid(RichTextBox1.Text, returnValue + 6, 10)


 

RichTextBoxtableau.Text = fax


 

End 
If


'Deuxi&#232;me recherche :

indexToText
 = RichTextBox1.Find(Text, 
 indexToText + 1
 , _



 RichTextBoxFinds.MatchCase)

 

If indexToText > = 0 
Then



 

returnValue = indexToText



 

RichTextBoxtableau.Text = returnValue



 

fax = Microsoft.VisualBasic.Mid(RichTextBox1.Text, returnValue + 6, 10)



 

RichTextBoxtableau.Text = fax



 

End 
If



_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

francoislaba · Answer

Merci, je l'ai ajout&#233; &#224; la suite et ai rajout&#233; un goto pour qu'il recherhce jusqu'&#224; la fin du texte..

Voici mon code quasi d&#233;finitif qui fonctionne mais qui n'ins&#232;re pas les valeurs trouv&#233;es &#224; la ligne de ma seconde RichTextBox...


Dim returnValue 
As 
Integer = -1



Dim start 
As 
Integer



Dim fax 
As 
String



Dim compteur 
As 
String


Text = "fax:."



' Ensure that a search string has been specified and a valid start point.



If Text.Length > 0 
And start >= 0 
Then



' Obtain the location of the search string in richTextBox1.



Dim indexToText 
As 
Integer = RichTextBox1.Find(Text, start, _


RichTextBoxFinds.MatchCase)



' Determine whether the text was found in richTextBox1.



If indexToText >= 0 
Then


returnValue = indexToText


RichTextBoxtableau.Text = returnValue


fax = Microsoft.VisualBasic.Mid(RichTextBox1.Text, returnValue + 6, 10)


RichTextBoxtableau.Text = fax


1:


indexToText = RichTextBox1.Find(Text, indexToText + 1, _


RichTextBoxFinds.MatchCase)



If indexToText >= 0 
Then


returnValue = indexToText


RichTextBoxtableau.Text = returnValue


fax = Microsoft.VisualBasic.Mid(RichTextBox1.Text, returnValue + 6, 10)


RichTextBoxtableau.Text = fax



GoTo 1



End 
If



End 
If



End 
If


Merci

Fran&#231;ois

RichTextBox atteindre le mot suivant

2 réponses

Discussions similaires