Comment le faire en vb6
Résolu
slt a tt le monde
comment faire en vb6 pour accéder à un fichier x.log et récuperer une seul ligne a l'aide d'une mot clé.
je ss faire ça avec une commande ms-dos mais moi je voulais le faire proprement en vb6
sans l'aide de ms-dos si il est possible si non à l'aide de ce dernier.
et merci bcp
comment faire en vb6 pour accéder à un fichier x.log et récuperer une seul ligne a l'aide d'une mot clé.
je ss faire ça avec une commande ms-dos mais moi je voulais le faire proprement en vb6
sans l'aide de ms-dos si il est possible si non à l'aide de ce dernier.
et merci bcp
7 réponses
-
la commande en ms-dos c ça :
*******
@echo off
FINDSTR /I /C:"blabla" x.txt
exit
*******
comment le faire en vb??????????????????SVP -
Bonjour,
Dim fp As Integer Dim chaine As String fp = FreeFile Open "C:\temp\x.log" For Input As #fp While Not EOF(fp) Line Input #fp, chaine If Instr(1, chaine, "mot clé") <> 0 Then 'Code a exécuter, la chaine contient le mot clé Exit Sub 'Ou Exit Function End If Wend
;o) -
merci merrrci bcp pour ta réponse tu es trés gentille grand monsieur et ton code fonctionne 100%.
mais dans le fichier il se répete le mot clé x fois (3 fois) comment modifier le code pour qu'il puisse obtenu les trois ligne par exemple dans un variable
tt mes respects -
svp où vous etes mon prof polux31
-
Tu enlèves le Exit Sub.
Si tu veux récupérer les valeurs pour les traiter ensuite, tu les stockes dans un tableau.
Option Explicit Public mTableau() 'Variable global pouvant être lu par tous les modules Private ind As Long 'Indice du tableau Sub LireFichier Dim fp As Integer Dim chaine As String fp = FreeFile Open "C:\temp\x.log" For Input As #fp While Not EOF(fp) Line Input #fp, chaine If Instr(1, chaine, "mot clé") <> 0 Then Redim Preserve mTableau(ind) MTableau(ind) = chaine ind = ind + 1 End If Wend Close #fp End Sub
Il suffit ensuite de lire le tableau Mtableau pour récupérer les lignes.
Je ne suis le prof de personne. Je t'aide un peu, ça ne va pas plus loin.
;o) -
je te remercie une autre fois pour ta generosité et la plus belle chose dans une personne c etre modeste.
je te souhaite un beau weekend -
Content de t'avoir aidé.
Passe également un bon week end.
Merci de mettre le topic en résolu.
;o)
