lire fichier txt

Question

bonojur, j'ai un fichier txt formater avec des virugules et je veux récupérer les données pour les placer sous la même forme dans un tableau (nombre de lignes inconnu et nombre de colonnes = 4)
j'ai taper çà:

Private Sub Form_Load()
Dim s1 As Variant, tab_produit_pab()

Open App.Path + "\DP trames croisées produit PAB.txt" For Input As #1
i = 0
Do While Not EOF(1)
    
    i = i + 1
    ReDim Preserve tab_produit_pab(1 To i, 1 To 4) As Variant
          
           For j = 1 To 4
                Input #1, s1
                tab_produit_pab(i, j) = s1
           Next j
           
    Loop
Close #1

Label1.Caption = tab_produit_pab(3, 3)
End Sub

mais j'ai un pb avec preserve qui me dit que mes indices sont en dehors de la plage (ce qui n'arrive pas si je fais un tableau à une seule colonne)

Ickik · Answer

je crois que tu n'as pas le droit de donner le type de données que tu stocke dans le tableau puisque tu es sense le donner lors de la definition de celui-ci

je ne suis pas certain mais essaye tout de meme

A+

cs_rene38 · Answer

Bonjour
L'erreur vient d'ici :
ReDim Preserve tab_produit_pab(1 To i, 1 To 4) As Variant
tu ne peux redimensionner que la dernière dimension d'un tableau :
s'il y a une seule colonne, c'est la dernière => pas de problème

Essaie d'inverser :

ReDim Preserve tab_produit_pab(1 To 4, 1 To i) As Variant

ça inverse lignes-colonnes mais c'est autorisé.

Ickik · Answer

excusez-moi d'avoir dit n'importe quoi !

Lire fichier txt

3 réponses

Discussions similaires