Discussion :

[Elstak]

coucou,

j'essaye d'ecrire un code de 2 facon différentes voici la premiere qui ne fonctionne pas

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
 
Open NomFic For Input As #1    ' Ouvre le fichier.
Do While Not EOF(1)    ' Effectue la boucle jusqu'à la fin du fichier.
    Line Input #1, TextLine        ' Lit la ligne dans la variable.
    Do While Trouve = False
        If (Mid(TextLine, i, 8) = "INDICBAT") Then
            stLu = TextLine
            Debug.Print "<" & stLu & ">"   
            Trouve = True
            Exit Do
        Else
            i = i + 1
        End If
    Loop
Loop

et voici la seconde qui fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Open NomFic For Input As #1    ' Ouvre le fichier.
Do While Not EOF(1)    ' Effectue la boucle jusqu'à la fin du fichier.
    Line Input #1, TextLine        ' Lit la ligne dans la variable.
    For i = 1 To 200
        If (Mid(TextLine, i, 8) = "INDICBAT") Then
            stLu = TextLine
            Debug.Print "<" & stLu & ">"    ' Affiche dans la fenêtre Exécution.
        End If
    Next
Loop

pour le premier cas j'initialise mon i à 1 et mon Trouve à false et pourtant j'ai une erreur là :

Code :

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

1
2
 
i = i + 1

"depassement de capacité". Je comprend pas pourquoi, je voudrais utiliser le premeir cas car je ne sait pas combien de caractere a la ligne dans laquelle je cherche "indicbat"

Une idée la dessus?

[ouskel'n'or]

Dans le premier cas, tu fais i = i + 1 et je suppose que tu ne sors jamais de ta boucle. Auquel cas, cela dépend de i... ou de sa déclaration.
Reste à voir pourquoi tu ne sors pas de ta boucle mais là j'ai une idée.
Plutôt que te l'exposer, comme ta solution ne me semble pas orthodoxe, plutôt que ton mid, j'utiliserais instr(TextLine,"INDICBAT") qui te donnerait la position de INDICBAT dans Textline
En outre, une autre façon d'utiliser les boolean :

Code :

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

1
2
 
Trouve = instr(TextLine,"INDICBAT") <> 0

A+

[Theocourant]

coucou,

j'essaye d'ecrire un code de 2 facon différentes voici la premiere qui ne fonctionne pas

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
 
Open NomFic For Input As #1    ' Ouvre le fichier.
Do While Not EOF(1)    ' Effectue la boucle jusqu'à la fin du fichier.
    Line Input #1, TextLine        ' Lit la ligne dans la variable.
    Do While Trouve = False
        If (Mid(TextLine, i, 8) = "INDICBAT") Then
            stLu = TextLine
            Debug.Print "<" & stLu & ">"   
            Trouve = True
            Exit Do
        Else
            i = i + 1
        End If
    Loop
Loop

et voici la seconde qui fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Open NomFic For Input As #1    ' Ouvre le fichier.
Do While Not EOF(1)    ' Effectue la boucle jusqu'à la fin du fichier.
    Line Input #1, TextLine        ' Lit la ligne dans la variable.
    For i = 1 To 200
        If (Mid(TextLine, i, 8) = "INDICBAT") Then
            stLu = TextLine
            Debug.Print "<" & stLu & ">"    ' Affiche dans la fenêtre Exécution.
        End If
    Next
Loop

pour le premier cas j'initialise mon i à 1 et mon Trouve à false et pourtant j'ai une erreur là :

Code :

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

1
2
 
i = i + 1

"depassement de capacité". Je comprend pas pourquoi, je voudrais utiliser le premeir cas car je ne sait pas combien de caractere a la ligne dans laquelle je cherche "indicbat"

Une idée la dessus?

Salut,

Alors le problème vient certainement du fait que tu dépasses la longueur de la ligne avec la première méthode... Et en plus tu as une boucle infinie car tu boucles toujours sur la même ligne tant que tu n'as pas trouvé "indicbat"... et si tu ne l'as pas sur la 1ère ligne : c'est rapé.

La solution serait d'utiliser la fonction len pour calculer la longueur de la ligne que tu récupères.

D'autre part, tu as de la chance de ne pas avoir d'erreur pour la 2ème méthode car c'est le même problème. Là tu dois avoir une ligne de plus de 208 caractères ... donc le code passe...

Alors voilà un début de solution:

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
Open NomFic For Input As #1    ' Ouvre le fichier.
Do While Not EOF(1)    ' Effectue la boucle jusqu'à la fin du fichier.
    Line Input #1, TextLine        ' Lit la ligne dans la variable.
    Do While Trouve = False
       If i+8<len(TextLine) Then 'Contrôle de non dépassement de la limite
            If (Mid(TextLine, i, 8) = "INDICBAT")Then
                stLu = TextLine
                Debug.Print "<" & stLu & ">"   
                Trouve = True
                Exit Do
            Else
                i = i + 1
            End If
       Else
           Exit Do 'Sortie de la boucle pour commencer une nouvelle ligne
       End If
    Loop
Loop

+

Théo

[Elstak]

Ok pour ta solution Théo

à part un ptit truc que j'ai du rajouter

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
 
Open NomFic For Input As #1    ' Ouvre le fichier.
Do While Not EOF(1)    ' Effectue la boucle jusqu'à la fin du fichier.
    Line Input #1, TextLine        ' Lit la ligne dans la variable.
    Do While Trouve = False
       If i + 8 < Len(TextLine) Then 'Contrôle de non dépassement de la limite
            If (Mid(TextLine, i, 8) = "INDICBAT") Then
                stLu = TextLine
                Debug.Print "<" & stLu & ">"
                Trouve = True
                Exit Do
            Else
                i = i + 1
            End If
       Else
           Exit Do 'Sortie de la boucle pour commencer une nouvelle ligne
       End If
    Loop
    i = 1
Loop

le "i=1" sinon jaurai une petite question

Code :

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

1
2
 
If i + 8 < Len(TextLine) Then

J'ai toujours du mal avec les < et les <= là y faut que la ligne fasse au moins 8 caracteres non? enfin qu'il y ai encore 8 caracteres apres le "i" donc j'aurais mis un <=

[Theocourant]

Re,

En y réfléchissant bien, je mettre plutôt

Code :

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

if i+7 <= len(TextLine) Then

car tu lis 8 caractères mais tout bien considéré c'est 1 caractère que tu repères et les 7 suivants... surtout il faut que ton i soit bien initialisé à 1.

+

Théo

[jmfmarques]

Et quand je pense qu'Ouskel'n'or a parfaitement répondu... et de façon simple et claire... j'en pleurerais !

[Elstak]

Et quand je pense qu'Ouskel'n'or a parfaitement répondu...

Possible mais j'ai pas reussi à adapter ce qu'il m'a dit (ca bouclait )
Et la solution de theo est en fait ce que je pensait faire à la base sauf que je l'avait mal ecrite

[jmfmarques]

ça bouclait ?
çà, alors !
Inoui !
ça remplaçait, au contraire, toute ta boucle de recherche à la ... et non seulement allégeait ton code, mais encore l'agilisait considérablement !
Mais, ma foi... si tu passes par Tokyo pour aller de Paris à Asnières, c'est ton choix .......


EDIT :
Voilà :

Code :

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

1
2
3
4
5
6
7
8
9
10
Open NomFic For Input As #1    ' Ouvre le fichier.
Do While Not EOF(1)    ' Effectue la boucle jusqu'à la fin du fichier.
    Line Input #1, TextLine        ' Lit la ligne dans la variable.
     If (instr(TextLine, "INDICBAT") > 0 Then
         Debug.Print "<" & textline & ">"
           Trouve = True
       Exit Do
     End If
  Loop
msgbox trouve & "   " & textline

[ouskel'n'or]

Je m'absente un moment et qu'est-ce que je retrouve ? la pagaille ! Z'avez pas fini tous de vous tirer dans les pattes ? ? Oui, ma solution était la meilleure. Elle évitait une boucle et un test inutiles. Pas là peine d'en faire un placard.
Maintenant, quand une chose n'est pas comprise, on demande.
Ensuite, inutile d'être susceptible, on a tous notre façon de réagir.

Erzatz,
Ce que je donnais était le principe, tu pouvais tout de même essayer de comprendre mon code ou demander une explication.
Bien que "je sois pas aussi bon que ça" tu sais que je vais généralement au bout de mes explications. Je vais finir par croire que tu n'as pas la souplesse d'esprit que je te prêtais

Nos moutons
Trouve = instr(TextLine, "INDICBAT") <> 0 ' = true si INDICBAT est trouvé dans TextLine
Plus besoin de if ceci then cela, ici
et la ligne suivante aurait été

Code :

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

1
2
 
If trouve then exit do

Pas besoin de connaître la longueur de la chaîne TextLine

Code :

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

1
2
3
4
5
6
 Open NomFic For Input As #1    ' Ouvre le fichier.
Do While Not EOF(1)    ' Effectue la boucle jusqu'à la fin du fichier.
    Line Input #1, TextLine        ' Lit la ligne dans la variable.
    Trouve = instr(TextLine, "INDICBAT") <> 0  'trouve si INDICBAT y est
    If trouve then Exit Do
 Loop

illight,
C'est sympa de vouloir aider. J'ai souvent proposé des solutions moins bonnes que celles proposées ensuite par d'autres (tels que SilkyRoad, bbil, jmfmarques, etc...) mais dans ces cas-là j'ai toujours adopté la meilleure. Y'a pas de déshonneur à faire ça et ça permet de progresser.

Maintenant, pour les règlements de compte, passez de préférence par mp.
Enfin, je préviens tout le monde que je vais faire le ménage et supprimerai tous les message ne traitant pas strictement le sujet qui nous occupe.

Erzatz, tu dis

A+

[Elstak]

ok ouskel

Code :

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

1
2
3
4
5
6
 Open NomFic For Input As #1    ' Ouvre le fichier.
Do While Not EOF(1)    ' Effectue la boucle jusqu'à la fin du fichier.
    Line Input #1, TextLine        ' Lit la ligne dans la variable.
    Trouve = instr(TextLine, "INDICBAT") <> 0  'trouve si INDICBAT y est
    If trouve then Exit Do
Loop

ca fonctionne bien

Pas besoin de connaître la longueur de la chaîne TextLine

C'est justement ce que je voulais !
merci