Lire A partire d"un texte VB.NET
CrazyMan19
Messages postés
163
Date d'inscription
samedi 2 août 2003
Statut
Membre
Dernière intervention
4 novembre 2013
-
2 févr. 2005 à 23:40
CrazyMan19 Messages postés 163 Date d'inscription samedi 2 août 2003 Statut Membre Dernière intervention 4 novembre 2013 - 3 févr. 2005 à 23:56
CrazyMan19 Messages postés 163 Date d'inscription samedi 2 août 2003 Statut Membre Dernière intervention 4 novembre 2013 - 3 févr. 2005 à 23:56
2 réponses
cs_lim
Messages postés
329
Date d'inscription
jeudi 20 novembre 2003
Statut
Membre
Dernière intervention
10 mai 2014
7
3 févr. 2005 à 08:59
3 févr. 2005 à 08:59
Salut
'Ouverture d'un fichier
FileOpen(1, "Chemin Fichier",OpenMode.input)
'tant que pas la fin du fichier
While not EOF(1)
'Je lis ligne à ligne
s=lineinput(1)
End While
'Je ferme le fichier
FileClose(1)
@+
LIM
'Ouverture d'un fichier
FileOpen(1, "Chemin Fichier",OpenMode.input)
'tant que pas la fin du fichier
While not EOF(1)
'Je lis ligne à ligne
s=lineinput(1)
End While
'Je ferme le fichier
FileClose(1)
@+
LIM
CrazyMan19
Messages postés
163
Date d'inscription
samedi 2 août 2003
Statut
Membre
Dernière intervention
4 novembre 2013
15
3 févr. 2005 à 23:56
3 févr. 2005 à 23:56
merci Lim mais je sais ca et je le vx pas malheureusement parceque ce code ne fait que lire line par line avec une boucle alors si le fichier texte est grand ca prendra bcp de tps moi je vx le genre de ce code du VB6
<HR>
Dim Mots As String
Open "Fichier.txt" for binary access read as #1
Mots=space(lof(1))
Get #1,,Mots
Close#1
<HR>
ca ouvre le fichier binairement et recupère les données d une façon plus vite qu avec une boucle
je souhaite que qqn m aide et merci
<HR>
Dim Mots As String
Open "Fichier.txt" for binary access read as #1
Mots=space(lof(1))
Get #1,,Mots
Close#1
<HR>
ca ouvre le fichier binairement et recupère les données d une façon plus vite qu avec une boucle
je souhaite que qqn m aide et merci
