Récupérer seulement quelques octets d"un fichier texte

Question

Bonjour,
Je dois récupérer seulent quelques octets dans un fichier texte. Il se compose de la forme suivante :
X;Y;Z;........
les données sont donc séparées par un point virgule. Ma question est simple (certain dirons je l'espère) comment récupérer seulement la données qui de trouve à la pla ce y par exemple.
Merci d'avance.

nchick

cs_CanisLupus · Answer

Salut,
Essaie ça si ton fichier n'est pas trop grand :

Dim t() As String
Dim Buffer As String

Open TonFichierTxt For Input As #1
Buffer = Input(LOF(1), #1)
Close #1

t = Split(Buffer, ";")
' Pour afficher ta valeur à la place y
MsgBox t(1)


Cordialement, CanisLupus

cs_CanisLupus · Answer

Tu peux même faire :

Dim t() As String

Open TonFichierTxt For Input As #1
t = Split(Input(LOF(1), #1), ";")
Close #1

' Pour afficher ta valeur à la place y
MsgBox t(1)


Et même :

Open TonFichierTxt  For Input As #1
MsgBox Split(Input(LOF(1), #1), ";")(1)
Close #1


Ces 3 codes t'afficheront ta valeur y

Cordialement, CanisLupus

Récupérer seulement quelques octets d"un fichier texte

2 réponses

Discussions similaires