Discussion :

[brownthefou]

Bonjour à tous

Je viens à nouveau vers vous pour, encore une fois, vous faire part de mon incapacité à résoudre seul un problème qui vous semble peut etre simple.

Voila j'ai un Fichier texte et je veux l'enregistrer ligne par ligne dans un tableau pour traiter les données par la suite.

J'ai effectué un code comme usivant :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
 
    Dim Tab_fin() As String
    Dim Tab_moy() As String
 
    nb_param = InputBox("Combien y-a t'il de paramètres ?")
    nb_mod = InputBox("Combien y-a t'il de modules ?")
 
    ReDim Preserve Tab_fin(nb_param * nb_mod + 1, nb_ligne_max) As String
    ReDim Preserve Tab_moy(nb_param * nb_mod + 1, nb_ligne_max - 10) As String  
 
Set oTs = fso.OpenTextFile(sFichierTxt, ForReading)
    j = 0    
    y = 0
    While Not oTs.AtEndOfStream
    ReDim Preserve arrFileLines(x)
 
        arrFileLines(x) = oTs.ReadLine
            ReDim Preserve Tableau(i)
           Tableau = Split(arrFileLines(x), Chr(9))
 
            For i = 0 To UBound(Tableau)
                    Tab_fin(y, j) = Tableau(i)   'Erreur
                    j = j + 1
            Next i
 
        x = x + 1
        y = y + 1
    Wend
    oTs.Close

Cependant lors de la compil, j'ai une erreur comme indiquée dans le code : Erreur 9 problème d'indice sur y et j qui ne correspondent pas.

Je suis sencé changer quoi ? Qqun aurait une idée ?

Merci d'avance, Cdlt

[Jean-Philippe André]

salut,

dans tes boucles For,
- soit tu vas de 0 à Ubound()-1
- soit tu vas de 1 à Ubound()

mais pas possible d'aller de 0 à Ubound(), car lorsque tu arriveras à Ubound, ta valeur sera hors limite et génèrera ton erreur

[brownthefou]

En effet oui !
C'est déja une première erreur de repérée.

Cependant j'ai maitenant :

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
16
17
18
19
20
21
22
  Dim Tab_fin(1, 1) As String
    Dim Tab_moy(1, 1) As String  
 
Set oTs = fso.OpenTextFile(sFichierTxt, ForReading)
    j = 1
    y = 1
    While Not oTs.AtEndOfStream
    ReDim Preserve arrFileLines(x)
    ReDim Preserve Tab_fin(y, j)                 'erreur
        arrFileLines(x) = oTs.ReadLine
            ReDim Preserve Tableau(i)
           Tableau = Split(arrFileLines(x), Chr(9))
 
            For i = 1 To UBound(Tableau)
                    Tab_fin(y, j) = Tableau(i)
                    j = j + 1
            Next i
 
        x = x + 1
        y = y + 1
    Wend
    oTs.Close

L'erreur me semble compréhensible.
En effet apres qqes recherches sur msdn j'ai trouvé que la fonction ReDim Preserve peut redimensionner seulement la derniere dimension du tableau.
Or il faudrait que je redimensionne tout le tableau vu que mes deux valeurs sont des variables en fonction du programme (le j et le y)

JPCheck tu aurais une idée ?
Ou qqun d'autre ?
Meme si vous avez des solutions en passant par un autre code je suis tout a fait disponible à tout entendre pke la je bloque !

[jfontaine]

Bonjour,

Pour quelle raison ne traites tu pas les données lors de la lecture du fichier?

Autre méthode : utiliser une variable à 1 dimension qui contiendra les lignes et utiliser le Split lors du traitement des données.

[brownthefou]

Pour quelle raison ne traites tu pas les données lors de la lecture du fichier?

Car les valeurs je les tiens d'un fichier texte, je les stockes dans un tableau, je les traite, je les remet dans un autre ficheir texte !

Donc je ne sais pas si ça parrait abérent mais je pensais que c'était le plus simple.

Je vais essayer ta technique de stockage de lignes.

La fonction split marche avec le retour ligne ?

Genre : x = split(y , Chr(10)) ou quelquechose du genre ?

Merci !

[jfontaine]

La fonction split marche avec le retour ligne ?

Je ne vois pas ou tu veux en venir. Dans ton code tu utilises chr(9) pourquoi chr(10) maintenant?

[brownthefou]

Bon ce n'est pas grave, j'ai réussi à contourner le problème avec ta solution d'un tableau à une dimension de tableau à une dimension qui contient des lignes, ça marche !

(je passais du Chr(9) pour les tabulations au Chr(10) pour le retour ligne car mon fichier contient de nombreuses lignes, mais mtn, peu importe )