Discussion :

[tom_plaquiste]

Bonjour à tous,

Je souhaite découper une ligne de fichier texte (ici nommée line) contenant 6 valeurs séparées par une tabulation. Après découpage, chaque valeur individuelle est envoyé dans une datarow (nommée row).

J'ai le code suivant:

Code :

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

1
2
3
4
 
For i = 0 To 5
     row(i) = line.Split(vbTab)(i)
 Next i

J'a un message d'erreur me disant que la colonne 3 de ma ligne n'est pas trouvable. Alors que si j'affiche individuellement chaque valeur de ma ligne dans un msgbox, elles y sont toutes.


Quelqu'un aurait il une idée?

Par avance,

Merci

[Kropernic]

Ce serait bien de faire un copier/coller du message d'erreur. Parfois, un petit détail peut avoir son importance pour mettre sur la voie car en l'état, si tu es sûr que chaque ligne contient bien au moins 6 éléments, ça devrait fonctionner même si c'est loin d'être top comme code (tu redécoupes ta ligne à chaque fois :-/).

Essaie plutôt quelque chose de ce genre-ci (fais de tête donc probablement pas correct syntaxiquement comme tel) :

Code :

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

1
2
3
4
5
6
 
Dim tab As String()
tab = line.Split(vbTab)
For i = 0 to 5
    row(i) = tab(i)
Next i

Tu peux alors améliorer en remplacer la borne supérieur de la boucle par tab.Count-1 (ou tab.length-1... J'utilise pas les tableaux et je ne sais jamais c'est qu'elle fonction pour avoir leur nombre d'éléments).

Tu peux aussi te diriger vers une for each où le problème de borne n'a plus lieu d'être mais où tu dois alors mettre en place un compteur toi-même pour mettre la donnée dans la bonne case de la datarow.

[tom_plaquiste]

Tout d'abord , merci pour cette première solution.
Cependant, cela ne fonction pas.

Voici le message d'erreur:

"Une exception non gérée du type 'System.IndexOutOfRangeException' s'est produite dans System.Data.dll
Informations supplémentaires*: Impossible de trouver la colonne 3."

[Kropernic]

"IndexOutOfRangeException" indique que ton programme essaie d'accéder à une case du tableau qui n'existe pas.

Traduit littéralement en français, ce mot barbare donnerait "Erreurd'IndiceEnDehorsDesBornes"

Soit certaines tabulations n'en sont pas (ce qui ne donne pas le nombre d'élément attendu dans le tableau), soit certaines lignes sont plus courtes que tu ne le penses ;-).

[tom_plaquiste]

J'ai vérifié et toutes les tabulations en sont.

Les fichiers text sont générés automatiquement de la façon suivante:

Code :

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

1
2
 
line = line & vbTab & Trim(.Item(j))

Ensuite, les autres lignes ne sont pas plus courtes.

D'ailleurs,ce que je ne comprend pas c'est la chose suivante.
Si je fais :

Code :

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

1
2
3
4
 
For i = 0 To 5
   row(i) = line.split(vbtab)(i)
Next i

CA NE FONCTIONNE PAS et j'obtiens le message d'erreur précédent.

En revanche,

Code :

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

1
2
3
4
 
For i = 0 To 5
   msgbox( line.split(vbtab)(i))
Next i

CA FONCTIONNE et m'affiche les bonnes valeurs dans une msgbox.


Pourquoi???

[jopopmk]

Salut,

l'index "en-dehors des bornes" c'est peut-être pour ton objet row du coup.

[Kropernic]

Salut,

l'index "en-dehors des bornes" c'est peut-être pour ton objet row du coup.

Exactement ce que j'allais dire.

Si ça ne vient pas de la ligne, la seule chose qui reste, c'est le datarow.

[clementmarcotte]

Bonjour,

Tout d'abord , merci pour cette première solution.
Cependant, cela ne fonction pas.

Voici le message d'erreur:

"Une exception non gérée du type 'System.IndexOutOfRangeException' s'est produite dans System.Data.dll
Informations supplémentaires*: Impossible de trouver la colonne 3."

Moi, je suis plutôt de l'avis de jopopmk et de Kropernic. En toute logique ce qui cloche, c'est ta table ou ta ligne. Split est dans System.String et ton horreur est dans System.Data. Ou bien, tu manques de colonnes, ou bien tu n'as pas le bon nom de colonne.

[ACIVE_CS]

Bonjour à tous,
Oui nous sommes tous d'accord...
Un petit test facile avec une listbox :

Code :

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

1
2
3
4
5
6
7
 
Dim Liste As New ListBox
Me.Controls.Add(Liste)
For i As Integer = 0 To line.Split(vbTab).GetUpperBound(0)
     'row(i) = (line.Split(vbTab)(i))
     Liste.Items.Add(i.ToString & "-" & line.Split(vbTab)(i))
Next i

Bon vous allez me dire qu'avec les msgbox c'est la même chose

[tom_plaquiste]

Merci de vos réponses.

La solution avec la listbox marche trés bien en effet.... mais ça fait comme la msgbox.

Je me suis assuré que chaque ligne qui était "splitée" contenait bien le bon nombre de valeurs avec le code suivant :

Code :

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

MsgBox(Str(line.Split(vbTab).Length))

De ce coté là, la fonction marche trés bien. Cela confirme donc bien que le problème vient du row.

Mais je ne vois vraiment pas à quel niveau.

Si quelqu'un a une idée je suis preneur

[Kropernic]

Pour qu'on puisse t'aider plus avant, va falloir montrer le code où tu déclares ton objet nommé "row".

Et s'il dépend d'un objet de type DataTable (c'est fort probable à priori), va falloir aussi la définition de cet objet-là vu que les colonnes du DataRow proviendront du DataTable.

[ACIVE_CS]

J'ai une vague idée de comment résoudre le problème, mais comme dit Kropernic, sans plus d'infos sur le fameux "row" ça ne sera pas facile de "deviner"...
Mon idée est celle-ci: (a peu près)

Code :

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

1
2
3
4
5
6
 
        Dim Valeur(line.Split(vbTab).GetUpperBound(0)) As Object
        For i As Integer = 0 To line.Split(vbTab).GetUpperBound(0)
            Valeur(i) = line.Split(vbTab)(i)
        Next
        row.rows.add(Valeur)

[tom_plaquiste]

Merci à tous

Il s'agissait de la datarow en effet. Elle était attribué à un datatable, effacée par mégarde, dans une instruction quelques lignes plus haut.

[Invité]

Bonsoir,
Indépendamment de ce qui est dit plus haut, pourquoi tu fais une boucle?
Valeur = line.Split(vbTab)