comment le faire en vb6 Résolu/Fermé

Question

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

ksdotnet · Answer

la commande en ms-dos c ça :
*******
@echo off
FINDSTR /I /C:"blabla" x.txt 
exit
*******
comment le faire en vb??????????????????SVP

Polux31 · Answer

Bonjour,


Dim fp As Integer
Dim chaine As String

fp = FreeFile

Open "C:	emp\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)

ksdotnet · Answer

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

ksdotnet · Answer

svp où vous etes mon prof polux31

Polux31 · Answer

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:	emp\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)

ksdotnet · Answer

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

Polux31 · Answer

Content de t'avoir aidé.

Passe également un bon week end.

Merci de mettre le topic en résolu.

;o)

Comment le faire en vb6

7 réponses

Discussions similaires