Rechercher 1 caractere ds tt 1 texte

Commenter

Contenu du snippet

Rechercher 1 chr ds tt 1 texte et en connaitre toutes les positions ds ce meme texte

Source / Exemple : 


Dim nbelement As Integer
Dim element(1000) As Integer    ' 1000 correspond o nombre max du nombre de positions trouvées lors de la recherche

Private Sub Command1_Click()
' text1.text est textbox contenant le texte de base
' text2.text est textbox contenant le texte a rechercher
rechtxt Text1.Text, Text2.Text
' pr afficher ttes les positions
' dim j
' for j=1 to nbelement
' .... = element(j)
' nextj
' pr afficher le nombre d'element
' ... = nbelement
End Sub

Private Sub rechtxt(txtbase As String, txtrech As String)
Dim dep
Dim i
Dim pos
dep = 1
nbelement = 0
For i = 1 To 1000    ' 1000 correspond o nombre max du nombre de positions trouvées lors de la recherche
element(1000) = 0
Next i
For i = 1 To Len(txtbase)
pos = InStr(dep, txtbase, txtrech)       ' recherche txtrech dans txtbase en debutant a la position dep ds la chaine de caractere de txtbase
If pos = 0 Then Exit For
nbelement = nbelement + 1
element(nbelement) = pos
dep = pos + 1
Next i
End Sub

Conclusion :


il fo text1 (textbox) et text2 (textbox) et d labels pr l'affichage d infos ...
c tout !

PS: cette source n'est ka titre informatif ! elle pt etre surement simplifiée mais pr 1 tt debutant cela pt etre utile d'aprendre la fonction instr.
'

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (lumesh)