Discussion :

[mcorvaisier]

Bonjour,
Je dispose d'un fichier texte : monfichier.cfg.
Je voudrais l'ouvrir en mode lecture et récupéré la valeure qui se trouve a la deuxieme ligne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Open CheminMonFichier for Input as #fich

Apres je vois pas comment aller a la ligne 2 et récupérer la valeur.

Merci.

[iclic]

Bonjour,

Apres je vois pas comment aller a la ligne 2 et récupérer la valeur.

En lisant d'abord la 1ère ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Line input#fich, variable   'tu mets la 1ère ligne dans ta variable

Puis en lisant la 2e ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Line input#fich, variable   'tu mets la 2e ligne dans ta variable

Et Lapalisse en aurait dit autant...

A+

[mcorvaisier]

J'ai solutionné mon probleme je met ici le code si quelqu'un a un jour le meme probleme:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
'Ligne ou se situe le mdp
        ligne = 2
        i = 0
 
        Open "C:\monfichier.CFG" For Input As #1
         While Not EOF(1)
            i = i + 1
            Input #1, mavaleur
                If i = ligne Then
                    If mdp = mavaleur Then
                       End
                    Else
                        ok = MsgBox("Mot de passe incorrect", vbOKOnly, "Impossible de fermer")
                        Cancel = True
                    End If
                End If
           Wend