Discussion :

[popo68]

Bonjour à tous !

Voilà, j'ai jamais travaillé avec un fichier texte donc je bloque dès le début

J'ai un fichier texte composé de plusieur ligne.
Sur chaque ligne, il y a des données de 10 charactères.

J'aimerai lire ces données, données par données, ligne par ligne


J'ai commencé avec ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Open PathDoc For Input As #1
 
Do While Not EOF(1)
    'Line Input #1, test
    Input #1, test
    Debug.Print test
Loop
 
Close #1

Avec ca, j'arrive donc à lire mon fichier texte ligne par ligne.

comment je peux lui dire de lire sur une meme ligne tous les 10 charactères ?

Merci de votre aide ^^

[Maxence HUBICHE]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
CONST LONGUEUR as Long = 10
Dim n as Long
 
Open PathDoc For Input As #1
 
Do While Not EOF(1)
'Line Input #1, test
    Input #1, test
    for n = 1 to len(test) Step LONGUEUR 
        Debug.Print mid(test, n, LONGUEUR )
    next
Loop
 
Close #1

[popo68]

Ok merci, j'étais entrain de travailler sur une boucle Do - Loop mais c'est vrai que le For - Next est plus approprié dans ce cas là !

Merci à toi