Rechercher une sous chaine ds une chaine

0/5 (3 avis)

Snippet vu 4 049 fois - Téléchargée 44 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
cs_processus Messages postés 360 Date d'inscription vendredi 24 août 2001 Statut Membre Dernière intervention 9 juillet 2008 3
16 sept. 2002 à 10:59
Ouhais enfin bon... J'appelle ca "réinventer l'eau tiède".
celiphane Messages postés 466 Date d'inscription samedi 16 février 2002 Statut Membre Dernière intervention 20 avril 2007
14 sept. 2002 à 18:50
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'
babeuk Messages postés 47 Date d'inscription jeudi 21 février 2002 Statut Membre Dernière intervention 30 septembre 2003
14 sept. 2002 à 15:52
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.