Comment détecté une chaine de chr ds une string

Question

bonsoir,

jaimeré savoir comment détecté une chaine de caractère dans un string?
If ("ma chaine" est_présente_dans String) Then

m'ci davance  ;)

cs_Aspect · Answer

Bon je croit ke g trouver comment faire mais ja n'arrive po a se que faire  :sad) 
dsl je débute :\

g List1 kié la liste des fichier mp3 et jaimeré faire une recherche dune chaine dedans et lister toutes les réponse dans List2, aprè ouvrir un form pr ke lutilisateur sélectionne manuelment le bon fichier.

g fé sa:

Function search()
Dim zik
Dim w
Dim v
Dim X
zik = "bla"
X = 1
v = 1
w = List1.ListCount
While v < w + 1
List1.ListIndex = List1.ListIndex + 1
While Not X > len(List1.ListIndex)
If InStr(X, List1.ListIndex, zik) Then
List2.AddItem List1.ListIndex
MsgBox List1.ListIndex
End If
X = X + 1
Wend
v = v + 1
Wend
End Function

Private Sub Command1_Click()
Call search
End Sub

mais sa ne marche pas  :sad) 

I need help!!!  :) 

thx!  ;) 
+³
@$p3©t

pelw · Answer

Private Sub Command1_Click()

zik = "bla"
Call Search(zik)

End Sub

Private Sub Search(ByVal zik As String)

Dim i As Integer

For i = 0 To List1.ListCount - 1
   If InStr(1, List1.List(i), zik) > 0 Then
      List2.AddItem List1.List(i)
   End If
Next

End Sub

Slts

pelw

cs_Aspect · Answer

Comment détecté une chaine de chr ds une string

3 réponses

Discussions similaires