Discussion :

[galopin01]

Bonjour,
Je dispose d'un fichier texte de 903 caractères (sans séparateurs)
Je désire transposer ce string dans un array sur une colonne Excel de 6 caractères.
J'imagine que je dois déjà récupérer ce string dans une variable avec la méthode

Code :

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

1
2
3
4
Open "MonFichier.txt" For ??? As #1
???
StrVar = ???
Close #1

Mais cette méthode ne m'est pas familière...
Pouvez vous compléter en remplaçant les ??? pour que je puisse ensuite spliter StrVar dans un Array
Merci.

[kiki29]

Salut, voir dans la FAQ ainsi qu'ici

[galopin01]

bonsoir,
Ma question ne porte pas sur la manipulation du texte, mais sur la récupération de ce texte qui ne comporte qu'une seule ligne et aucun délimiteur et le stockage de ce texte dans une variable.
Je ne vois rien dans la FAQ qui réponde à ce cas de figure. (ou en tout cas je ne sais pas en tirer profit ! )
cf fichier joint
6let.txt
Merci

EDIT : Finalement j'ai finit par trouver par tâtonnement.

Code :

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

1
2
3
4
5
6
7
8
9
Sub LireFich()
Dim strVar$, i%
Open "6let.txt" For Input As #1
Line Input #1, strVar
Close #1
For i = 0 To 10
Debug.Print Mid(strVar, i * 6 + 1, 6)
Next
End Sub

A+

[kiki29]

je ne sais pas en tirer profit

effectivement