Lecture fichier texte [Résolu]

Signaler
Messages postés
7
Date d'inscription
samedi 22 novembre 2003
Statut
Membre
Dernière intervention
3 janvier 2005
-
Messages postés
147
Date d'inscription
mardi 12 octobre 2004
Statut
Membre
Dernière intervention
6 mars 2007
-
comment puis-je faire pour commencer la lecture d'un fichier texte qu'à partir de la 2°ligne sans prendre en compte la première.
En effet la lecture de la première ligne induit une erreur VB :

Erreur d'exécution 62 :
l'entrée dépasse la fin du fichier.

dû certainement à des caractères hiérogliphes. La première ligne est en fait :
HiRTiK T9125,1,15,0450082223

comment puis-je faire SVP ??

3 réponses

Messages postés
147
Date d'inscription
mardi 12 octobre 2004
Statut
Membre
Dernière intervention
6 mars 2007

Bonjour,

Tu peux ouvrir ton fichier en random et guetter le CRLF pour connaitre la fin de ta ligne. J'ai eu le même pb que toi et je m'en suis sorti comme ça.

dim buf as string, buf1 as string*1

Open nom_fichier For Random As #1 Len = 1
For j = 1 To LOF(1)
Get #1, j, buf1
buf = buf + buf1
' Si les deux dernier car sont CR+LF
If Right(buf, 2) = Chr(13) + Chr(10) Then
buf = Left(buf, Len(buf) - 2)
'ici buf vaut la ligne du fichier texte sans les CRLF
End If
Next j
Close #1
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 195 internautes nous ont dit merci ce mois-ci

Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
25
Tu n'auras pas d'autre solution que de lire le fichier en mode Binary, plutot qu'en mode texte !!

Christophe R.
Messages postés
7
Date d'inscription
samedi 22 novembre 2003
Statut
Membre
Dernière intervention
3 janvier 2005

comment faire en binary ?
sweetygui