Lire un fichier ...
elharrouchi
Messages postés
27
Date d'inscription
dimanche 10 juillet 2005
Statut
Membre
Dernière intervention
14 avril 2007
-
5 févr. 2006 à 17:19
shlen2 Messages postés 8 Date d'inscription samedi 28 mai 2005 Statut Membre Dernière intervention 8 avril 2006 - 8 avril 2006 à 15:21
shlen2 Messages postés 8 Date d'inscription samedi 28 mai 2005 Statut Membre Dernière intervention 8 avril 2006 - 8 avril 2006 à 15:21
A voir également:
- Lire un fichier ...
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Application pour lire fichier pdf sur android ✓ - Forum Java
- Javascript lire fichier texte local - Forum Javascript / DHTML
- Fichier class ✓ - Forum Java
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
3 réponses
titi035
Messages postés
173
Date d'inscription
vendredi 13 janvier 2006
Statut
Membre
Dernière intervention
10 mai 2010
5 févr. 2006 à 17:27
5 févr. 2006 à 17:27
Salut,
Tu devrait essayer la fonction "Input" pour mettre chaque ligne dans un string (ici, chainelu) et tu peux traiter ensuite ta chaine avec une fonction à toi..
Dim chainelu as string
Open G_NomfichConfig For Input As #1
Do While Not EOF(1) ' Effectue la boucle jusqu'à la fin du fichier.
Input #1, chainelue ' Lit les données dans deux variables.
' Ici, tu fait ce que tu veux ....
Loop
Close #numfile
A+,
Titi035
Tu devrait essayer la fonction "Input" pour mettre chaque ligne dans un string (ici, chainelu) et tu peux traiter ensuite ta chaine avec une fonction à toi..
Dim chainelu as string
Open G_NomfichConfig For Input As #1
Do While Not EOF(1) ' Effectue la boucle jusqu'à la fin du fichier.
Input #1, chainelue ' Lit les données dans deux variables.
' Ici, tu fait ce que tu veux ....
Loop
Close #numfile
A+,
Titi035
ScSami
Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
24
6 févr. 2006 à 05:06
6 févr. 2006 à 05:06
Petites précisions...
Dim varChaineLue As String
Dim varCanal As Integer
Dim varPathFichier As String
...
varPathFichier = "C:\mon Dossier\Mon Fichier.ext"
...
varCanal = FreeFile
Open varPathFichier For Input As varCanal
... 'Comme Titi.
Close varCanal
Note cependant que si tu t'étais donné de faire une toute petite recherche avant de poser la question tu aurais trouvé tout de suite!
Bref. Ici, on ouvre un fichier (instruction Open) en mode "Input". C'est à dire, pour la lecture (Input) [et non pour l'écriture {Output}]) en séquentiel donc (c'est à dire, lecture des infos les unes après les autres dans l'ordre... uniquement [autrement dit, on peut pas pointer directement sur une info via ce mode!]).
L'instruction :
[Line] Input #varCanal, varChaineLue
permet donc de lire une ligne entière du fichier et de la placer dans la variable "varChaineLue".
Et la boucle Do/Loop, ici, permet de lire le fichier (du début) jusqu'a la fin (sa fin : EOF(varCanal) True, donc, EOF Fin de fichier atteinte.)
Enjoy
<hr size="2" width="100%">
( Si une réponse vous convient, cliquez sur le bouton "Réponse acceptée". )
Dim varChaineLue As String
Dim varCanal As Integer
Dim varPathFichier As String
...
varPathFichier = "C:\mon Dossier\Mon Fichier.ext"
...
varCanal = FreeFile
Open varPathFichier For Input As varCanal
... 'Comme Titi.
Close varCanal
Note cependant que si tu t'étais donné de faire une toute petite recherche avant de poser la question tu aurais trouvé tout de suite!
Bref. Ici, on ouvre un fichier (instruction Open) en mode "Input". C'est à dire, pour la lecture (Input) [et non pour l'écriture {Output}]) en séquentiel donc (c'est à dire, lecture des infos les unes après les autres dans l'ordre... uniquement [autrement dit, on peut pas pointer directement sur une info via ce mode!]).
L'instruction :
[Line] Input #varCanal, varChaineLue
permet donc de lire une ligne entière du fichier et de la placer dans la variable "varChaineLue".
Et la boucle Do/Loop, ici, permet de lire le fichier (du début) jusqu'a la fin (sa fin : EOF(varCanal) True, donc, EOF Fin de fichier atteinte.)
Enjoy
<hr size="2" width="100%">
( Si une réponse vous convient, cliquez sur le bouton "Réponse acceptée". )
shlen2
Messages postés
8
Date d'inscription
samedi 28 mai 2005
Statut
Membre
Dernière intervention
8 avril 2006
8 avril 2006 à 15:21
8 avril 2006 à 15:21
Tu as juste a faire:
Dim Ligne() as string 'variable qui contiendra les valeur des lignes
a=0 'compteur
Open 'fichier' For Input As #1 'fichier = le nom du chemin et du fichier
Do While Not EOF(1) ' Effectue la boucle jusqu'à la fin du fichier.
Redim Preserve Ligne(a) As String
Line Input #1,Ligne(a) ' Ici, tu fait ce que tu veux ....
a=a+1
Loop
Close #1
puis tu n'a plus qu'a te servir de la variable Ligne(index), A+
Dim Ligne() as string 'variable qui contiendra les valeur des lignes
a=0 'compteur
Open 'fichier' For Input As #1 'fichier = le nom du chemin et du fichier
Do While Not EOF(1) ' Effectue la boucle jusqu'à la fin du fichier.
Redim Preserve Ligne(a) As String
Line Input #1,Ligne(a) ' Ici, tu fait ce que tu veux ....
a=a+1
Loop
Close #1
puis tu n'a plus qu'a te servir de la variable Ligne(index), A+