Vérification qu'un string contient un autre string

Bonjour à tous

Comme l'indique mon Intitulé, je cherche a savoir si l'un de mes strings contient un autre string en VB.6

J'ai essayé avec l'objet InStr mais cela marche pas, ou je l'ai mal employé

Mon but est de récupère tout les fichiers d'un répertoire. Chaque Nom de fichier est composé d'un nom suivi d'un _ puis d'un indice.
Lorsque je veux crée un nouveau fichier je doit rechercher les nom identique puis rechercher le dernier indice afin d'ajouter a mon nom de fichier un indice supérieur de 1

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Private Sub IndiceFichier() Dim NomFichier As String Dim Contenu As New Collection Dim i As Integer Dim Ligne() As String Dim y As Integer Indice = 0 NomFichier = Dir(ChFichier & "*.log")   Do Until NomFichier = "" Contenu.Add (NomFichier) NomFichier = Dir Loop For i = 1 To Contenu.Count y = InStr(NameID, Contenu(i)) If (InStr(0, NameID, Contenu(i)) <> 0) Then Ligne = Split(Contenu(i)) If Indice < CInt(Ligne(1)) Then Indice = CInt(Ligne(1)) End If End If Next i End Sub

---

Merci de votre aide

Je pense avoir compris pourquoi cela marche pas.

En faite cela marche mais vu que je cherche un texte qui commence à la position 0 il me renvoie 0

Il me faudrait une autre fonction.

Citation:

---

Envoyé par megamario

....
En faite cela marche mais vu que je cherche un texte qui commence à la position 0 il me renvoie 0
....

---

pas vraiment clair ...., c'est qui l'inconnu qui te renvoi 0 ?

Le premier caractère d'un String est en position 1
donc

Code:

---

If (InStr(0, NameID, Contenu(i)) <> 0) Then

---

doit être remplacé par

Code:

---

If (InStr(1, NameID, Contenu(i)) <> 0) Then

---

je n'ai pas regardé le reste du code

Bon ba le truc tout bête.

J'ai inversé la chaine recherché et celle contenant. Impardonnable que je suis.:?

Citation:

---

Envoyé par DAUDET78

Le premier caractère d'un String est en position 1
donc

Code:

---

If (InStr(0, NameID, Contenu(i)) <> 0) Then

---

doit être remplacé par

Code:

---

If (InStr(1, NameID, Contenu(i)) <> 0) Then

---

je n'ai pas regardé le reste du code

---

Oui,vous avez raison, il faut bien mettre un 1 et non un 0, j'ai fait un copier collé de mon fichier alors que je faisait des tests, et effectivement cela marche pas avec 0 la ligne commence à 1