AIDEZ MOI !!! SVP ! Lecture ligne par ligne d'un fichier texte...
NeoWerner
Messages postés
11
Date d'inscription
mardi 21 janvier 2003
Statut
Membre
Dernière intervention
1 juillet 2004
-
7 juil. 2003 à 11:23
NeoWerner Messages postés 11 Date d'inscription mardi 21 janvier 2003 Statut Membre Dernière intervention 1 juillet 2004 - 7 juil. 2003 à 12:26
NeoWerner Messages postés 11 Date d'inscription mardi 21 janvier 2003 Statut Membre Dernière intervention 1 juillet 2004 - 7 juil. 2003 à 12:26
A voir également:
- AIDEZ MOI !!! SVP ! Lecture ligne par ligne d'un fichier texte...
- Essayage en ligne ✓ - Forum PHP
- Roulette hasard en ligne - Forum Visual Basic 6
- Saut de ligne \n - Forum PHP
- Revenir à la ligne python - Forum Python
- Integrer paiement en ligne sur son site ✓ - Forum PHP
3 réponses
iviljay
Messages postés
6
Date d'inscription
vendredi 7 février 2003
Statut
Membre
Dernière intervention
15 juillet 2003
7 juil. 2003 à 11:28
7 juil. 2003 à 11:28
Slt,
Dim FileNumber as integer
Dim LineOfFile as string
open Myfile for input as filenumber
do until eof(filenumber)
Line input #FileNumber, LineOfFile
debug.print LineOfFile
loop
Voilà, Enjoy
Dim FileNumber as integer
Dim LineOfFile as string
open Myfile for input as filenumber
do until eof(filenumber)
Line input #FileNumber, LineOfFile
debug.print LineOfFile
loop
Voilà, Enjoy
NeoWerner
Messages postés
11
Date d'inscription
mardi 21 janvier 2003
Statut
Membre
Dernière intervention
1 juillet 2004
7 juil. 2003 à 11:38
7 juil. 2003 à 11:38
lol
ayé jai trouvé !!!
je la met qd mm pour celui qui chercherai ca aussi :
Dim NbrFich As Integer
Dim TABLO(100) 'je prevois un maximum de 100 lignes
NbrFich = FreeFile
Open "FICHIER.TXT" For Input As NbrFich
i = 1
While EOF(NbrFich) = False
Line Input #NbrFich, TABLO(i)
i = i + 1
Wend
Close #NbrFich
merci qd mm !
++
ayé jai trouvé !!!
je la met qd mm pour celui qui chercherai ca aussi :
Dim NbrFich As Integer
Dim TABLO(100) 'je prevois un maximum de 100 lignes
NbrFich = FreeFile
Open "FICHIER.TXT" For Input As NbrFich
i = 1
While EOF(NbrFich) = False
Line Input #NbrFich, TABLO(i)
i = i + 1
Wend
Close #NbrFich
merci qd mm !
++
NeoWerner
Messages postés
11
Date d'inscription
mardi 21 janvier 2003
Statut
Membre
Dernière intervention
1 juillet 2004
7 juil. 2003 à 12:26
7 juil. 2003 à 12:26
Jte remerci bcp !!
c cool : il est genial ce forum : tout le monde repond super rapidement aux problemes !
merci merci !!!
c cool : il est genial ce forum : tout le monde repond super rapidement aux problemes !
merci merci !!!