VB6 Lire un Fichier avec conditionRésolu

Question

Salut à tous...


Je lis un fichier ligne par ligne avec VB6... Si je rencontre tel condition, je met de l'information dans un tableau.

frmCogo.txtFichier.Text = "C:\bug" & frmCogo.txtFichier.Text
iFile = FreeFile
Open frmCogo.txtFichier.Text For Input As iFile

Do Until EOF(iFile)
Line Input #iFile, Fichier_Entier

If InStr(NewStation, ".") > 0 Then
      Création d'un Tableau
End If

Jusqi'ici ca va tres bien...

Mon Problème...

Je veux créer une seconde condition lorsque le fichier est lu.

    If InStr(Mid(Instalation, 37, 10), ".") > 0 Then
        
        Station_Instalation = Trim(Mid(Fichier_Entier, 37, 10))
        ICI, Je veux aller voir la ligne en dessous et prendre l'information de cette ligne pour la mettre dans un Tableau. Je ne veux pas lire le fichier au complet et ensuite le traiter...

   End If
Loop

Comment est-il possible de coder cela.... Si possible, Donner moi un exemple

Merci d'avance

cs_Exploreur · Accepted Answer

Re,

Voici le code :

Option Explicit 
Type  Record    ' Désigne un type défini par l'utilisateur. 
   ID As Integer
   Name As String * 20
End Type


Private Sub Form_Load()
    Dim MyRecord As Record, Position   ' Déclare les variables.
    ' Ouvre l'exemple de fichier en accès aléatoire.
    Open "FICHTEST" For Random As #1 Len = Len(MyRecord)
        ' Lit l'exemple de fichier à l'aide de l'instruction Get.
        Position = 3   ' Définit le numéro d'enregistrement.
        Get #1, Position, MyRecord   ' Lit le troisième enregistrement.
    Close #1   ' Ferme le fichier.
End Sub


A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Exploreur · Answer

Salut,

Regarde sur codyx, il y a un code de PCPT, pour lire une certaine ligne dans une fichier...

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_JeffC1977 · Answer

Merci à toi

cs_Exploreur · Answer

Salut,

De rien...++

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_khila · Answer

salut:
je suis un PFE et mon projet "panneau d'affichage" et je travaille avec visual basic 6.0
et mon question c'est:
Comment envoyer des messages sous forme d'une tramme des données dans un panneau d'affichage.

cs_Exploreur · Answer

Salut khila ,

Ne "prend" pas le message d'un autre pour poser ta question, de plus le topic est clos...

Repose une nouvelle question dans le forum....

A+
Exploreur

 Linux a un noyau, Windows un pépin

jmfmarques · Answer

Salut Khila,

Et la réponse est : lis ceci d'abord :
http://www.vbfrance.com/reglement.aspx
puis :
1)  relis-le pour déterminer si oui ou non, ta question est accompagnée de ton code d'essai et si elle traite bien d'un point particulier et bien détaillé de la difficulté rencontrée.
2) ouvre TA PROPRE discussion

VB6 Lire un Fichier avec condition

7 réponses

Votre réponse

Discussions similaires