patrice33740 Avec la réponse, c'est facile. | Voir ce message dans le sujet non filtré
jujuf1 a écrit :
Je cherche un code pour lire un fichier txt qui contient des données séparées par des tabulations. C’est un simple tableau à une colonne que je souhaite avoir.
|
jujuf1 a écrit :
Le problème c’est que ça ne me sépare rien. J’ai juste un tableau avec une ligne.
|
A priori, il n'y a qu'une ligne dans ton fichier.
Est-ce que tu voudrais que chaque donnée séparée par une tabulation soit sur une ligne différente ?
Le plus simple est alors de lire le contenu entier du fichier puis de le spliter sur Tab
Par exemple (non testé) :
Code :
- Sub a()
- Dim test As Variant
- Dim fileName As String
- Dim textData As String
- Dim fileNo As Integer
- fileName = "C:\Fichier.txt"
- fileNo = FreeFile 'Get first free file number
- Open fileName For Binary Access Read As #fileNo
- textData = Space$(LOF(n°F))
- Get #fileNo, , textData
- Close #fileNo
- test = Split(textData, vbTab)
- MsgBox test(LBound(test))
- End Sub
|
---------------
Cordialement, Patrice
|
