[VBA-E]Depassement de capacité

Version imprimable

coucou,

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

Code:

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:

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:

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?

16/05/2006, 10h03
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:

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

Citation:
Envoyé par Elstak
coucou,

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

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:

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:

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 8O 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:

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

Ok pour ta solution Théo ;)

à part un ptit truc que j'ai du rajouter

Code:

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:

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 <= :?

16/05/2006, 11h04
Theocourant

Re,

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

Code:

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
16/05/2006, 11h11
jmfmarques

Et quand je pense qu'Ouskel'n'or a parfaitement répondu... et de façon simple et claire... j'en pleurerais !:cry:
16/05/2006, 11h17
Elstak

Citation:

Envoyé par jmfmarques

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

ç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:

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

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. :evil: Je vais finir par croire que tu n'as pas la souplesse d'esprit que je te prêtais :rire:

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:

1 2 If trouve then exit do
Pas besoin de connaître la longueur de la chaîne TextLine
Code:

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+

ok ouskel

Code:

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 ;)

Citation:

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

C'est justement ce que je voulais !
merci :D