Discussion :

[megamario]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[SfJ5Rpw8]

....
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 ?

[DAUDET78]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

doit être remplacé par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

je n'ai pas regardé le reste du code

[megamario]

Bon ba le truc tout bête.

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

[megamario]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

doit être remplacé par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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