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.
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
jujuf1
Voici un code. Le problème c’est que ça ne me sépare rien. J’ai juste un tableau avec une ligne.
Code :
Sub a()
Dim test() As Variant
Dim fileName As String, textData As String, textRow As String, fileNo As Integer
fileName = "C:\Fichier.txt"
fileNo = FreeFile 'Get first free file number
Dim i As Double
i = 1
Open fileName For Input As #fileNo
Do While Not EOF(fileNo)
Line Input #fileNo, textRow
textData = textData & textRow
Debug.Print textRow
ReDim Preserve test(i)
test(i) = textRow
i = i + 1
Loop
Close #fileNo
MsgBox (test(1))
MsgBox (i)
End Sub
mechkurt
Je ne fais pas de VBA, mais si tu viens sur ce forum sans code ni message d'erreur explicite, personne ne fera le boulot à ta place...
Et si tu n'arrives pas faire fonctionner ces solutions, reviens nous le prouver avec du code et des erreurs et il y'aura surement quelqu'un pour t'aider a avancer.
jujuf1
Bonjour à tous,
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.
J’ai fait pas mal de recherches sans trouver la solution,
Mon tableau a vocation à contenir 6 millions de lignes.
