Rechercher une sous chaine ds une chaine

Commenter

Contenu du snippet

Ce petit bout de code recherche une sous chaine dans une chaine, et vous renvoit l'emplacement de cette sous chaine autant de fois qu'il la trouvera

Source / Exemple : 


'<Pub>
' <Psykocrash SearchString>
' By Psykocrash
'</Pub>

'Begin
'1 Form, 1 Bouton, 1 Liste

Private Sub Form_Load()
TextChaine.Text = ""
TextSousChaine = ""
End Sub

Private Sub Search_Click()
If Len(TextSousChaine.Text) > Len(TextChaine.Text) Then Exit Sub
Dim SSLong As Long, ChLong As Long
SSLong = Len(TextSousChaine.Text)
ChLong = Len(TextChaine.Text)
List1.AddItem "Début"
For i = 1 To ChLong
If Right$(Left$(TextCHaine.Text, i), SSLong) Then
List1.AddItem "Debut : " & (i - SSLong) & " Fin : " & i
Else
End If
Next
List1.AddItem "Fin"
End Sub

Conclusion :


Je sais pas si sa marche psk je l'ai pas essayé :o) mais je crois pas qu'il y ais de pb (s'il y en a dite les moi svp)
@+
Psykocrash

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 (psykocrash)