Rechercher une sous chaine ds une chaine

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 809 fois - Téléchargée 42 fois

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

Ajouter un commentaire

Commentaires

Messages postés
360
Date d'inscription
vendredi 24 août 2001
Statut
Membre
Dernière intervention
9 juillet 2008
3
Ouhais enfin bon... J'appelle ca "réinventer l'eau tiède".
Messages postés
466
Date d'inscription
samedi 16 février 2002
Statut
Membre
Dernière intervention
20 avril 2007

C clair, Instr( ApartirDe , ch1 , ch2) fait pareil, mieux et plus vite...
Cependant, même si j'ai pas testé ton code paske j'en ai vrmt pa envie, c bien de détaillé des fonctions existantes... Ca fait du bon algorithmique pour les déb'
Messages postés
47
Date d'inscription
jeudi 21 février 2002
Statut
Membre
Dernière intervention
30 septembre 2003

y a une commande instr() qui fait très bien ca :)

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.