[XL-2003] Chercher un string dans un fichier texte [Résolu]

[apnw7931]

Bonjour,

Sur une feuille excel (cellule B2), j'ai un mot (p.ex "bobo007").

Sur mon PC, j'ai aussi un fichier texte (C:\log.txt) qui comprend des milliers de lignes.
Une seule de ses lignes comprends le mot "bobo007" (p. ex "salut bobo007, ca va?")

J'aimerai donc, via excel et VBA, créer une macro qui me cherche dans le fichier texte la ligne exacte (le plus rapidement, vu la taille de mon fichier texte),pour ensuite l'enregistrer dans une variable. Une sorte de Ctrl + F en gros..

Pourriez-vous m'aiguiller ?
Merci d'avance.

[jfontaine]

Bonjour,

A tester pour le temps d'exécution

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Dim strLigne As String
 
Open "C:\log.txt" For Input As #1
 
Do While Not EOF(1)
 
    Line Input #1, strLigne
    If InStr(1, strLigne, "bobo007") > 0 Then
        MsgBox strLigne
    End If
 
Loop
 
Close #1

[apnw7931]

Merci pour ce code.
Néanmoins, avec un "Do While Not", il n'arrête pas la boucle après avoir trouvé l'occurence. Sauriez-vous comment faire alors ?

[jfontaine]

Comme cela

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim strLigne As String
 
Open "C:\log.txt" For Input As #1
 
Do While Not EOF(1)
 
    Line Input #1, strLigne
    If InStr(1, strLigne, "bobo007") > 0 Then
        MsgBox strLigne
        Close #1
        Exit Sub
    End If
 
Loop
 
Close #1

[apnw7931]

Je n'avais pas pensé au "Exit Sub" ...

Merci pour l'aide, et une excellente journée.

[el_slapper]

Un exit for aurait suffi, non? Il me semble qu'avec le exit sub, le fichier ouvert n'est pas fermé.

[jfontaine]

Un exit for aurait suffi, non? Il me semble qu'avec le exit sub, le fichier ouvert n'est pas fermé.

un Exit For dans un boucle Do While !!

Le fichier est bien fermé via le close #1 avant de sortir

[el_slapper]

ooops, j'ai dit une connerie.

Mais, pour le coup, on code 2 fois le close.... c'est ce genre de trucs qui me gène, je préfère rajouter un booleen pour sortir proprement. Question d'habitude, probablement.