Chercher un string dans un fichier texte

Version imprimable

04/10/2011, 08h51
apnw7931

Chercher un string dans un fichier texte

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.

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

04/10/2011, 09h32
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 ?

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

04/10/2011, 09h47
apnw7931

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

Merci pour l'aide, et une excellente journée.
04/10/2011, 13h32
el_slapper

Un exit for aurait suffi, non? Il me semble qu'avec le exit sub, le fichier ouvert n'est pas fermé.
04/10/2011, 13h41
jfontaine

Citation:

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 !! :calim2:

Le fichier est bien fermé via le close #1 avant de sortir
04/10/2011, 16h09
el_slapper

ooops, j'ai dit une connerie. :aie:

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.