Pb utilisation Split avec Visual basic 2008 Express

Version imprimable

Bonjour
Visal Basic 2008 Express
Quelqu'un pourrait-il me donner une réponse au pb suivant
Lorsue j'execute la séquence suivante,le programme s'arrête avec le diag suivant:

[IMG]http:/duarep.free.fr/download/Provisoire/screenshot_01.jpg[/IMG]

Si je rajoute un Message entre le Split et l'utilisation du tableau (voir séquence suivante) la sequence se déroule normalement et les lignes sont bien écrites dand la ListBox.

Merci d'avance pour votre aide.

*********************************************************

Code:

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim Ligne As String
        Dim Tableau(12) As String
 
        FileOpen(1, "C:\\BANQUES\CA.txt", OpenMode.Input) ' Ouvre en lecture.
        Do While Not EOF(1) ' tant que la fin du fichier 1 ( origine) n'est pas terminÃ©e
 
            Ligne = LineInput(1) ' On lit la ligne du fichier d'origine
 
            Tableau = Ligne.Split("*")
 
            Tableau(2) = Tableau(2).Insert(Tableau(2).Length, Space(30 - Tableau(2).Length))
            Tableau(3) = Tableau(3).Insert(Tableau(3).Length, Space(3 - Tableau(3).Length))
            Tableau(4) = Tableau(4).Insert(Tableau(4).Length, Space(12 - Tableau(4).Length))
            Tableau(5) = Tableau(5).Insert(Tableau(5).Length, Space(12 - Tableau(5).Length))
            Tableau(6) = Tableau(6).Insert(Tableau(6).Length, Space(12 - Tableau(6).Length))
            Tableau(7) = Tableau(7).Insert(Tableau(7).Length, Space(12 - Tableau(7).Length))
            Tableau(8) = Tableau(8).Insert(Tableau(8).Length, Space(12 - Tableau(8).Length))
            ListBox1.Items.Add(Tableau(0) & " " & Tableau(1) & " " & Tableau(2) & " " & Tableau(4) & " " & Tableau(5) & " " & Tableau(6) & " " & Tableau(7) & " " & Tableau(8))
 
        Loop
    End Sub
***********************************************************  
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim Ligne As String
        Dim Tableau(12) As String
 
        FileOpen(1, "C:\\BANQUES\CA.txt", OpenMode.Input) ' Ouvre en lecture.
        Do While Not EOF(1) ' tant que la fin du fichier 1 ( origine) n'est pas terminÃ©e
 
            Ligne = LineInput(1) ' On lit la ligne du fichier d'origine
 
            Tableau = Ligne.Split("*")
 
            MsgBox("")
 
            Tableau(2) = Tableau(2).Insert(Tableau(2).Length, Space(30 - Tableau(2).Length))
            Tableau(3) = Tableau(3).Insert(Tableau(3).Length, Space(3 - Tableau(3).Length))
            Tableau(4) = Tableau(4).Insert(Tableau(4).Length, Space(12 - Tableau(4).Length))
            Tableau(5) = Tableau(5).Insert(Tableau(5).Length, Space(12 - Tableau(5).Length))
            Tableau(6) = Tableau(6).Insert(Tableau(6).Length, Space(12 - Tableau(6).Length))
            Tableau(7) = Tableau(7).Insert(Tableau(7).Length, Space(12 - Tableau(7).Length))
            Tableau(8) = Tableau(8).Insert(Tableau(8).Length, Space(12 - Tableau(8).Length))
            ListBox1.Items.Add(Tableau(0) & " " & Tableau(1) & " " & Tableau(2) & " " & Tableau(4) & " " & Tableau(5) & " " & Tableau(6) & " " & Tableau(7) & " " & Tableau(8))
 
        Loop
    End Sub

25/08/2013, 14h01
Pol63
dis nous plutot ce que tu penses vouloir faire avec tes .insert parce que là ca me semble bizare
et le problème ne vient pas du split

et c'est du code vb6, il faut passer à du vrai code .net
Code:

1 2 3 4 for each ligne as string in system.io.file.readalllines(path) dim valeurs() as string = ligne.split("*") ' traitement next

Merci pour la réponse

C'est vrai que je suis en recherche pour trouver comment faire pour présenter dans ListBox les lignes du fichier de manière que les champs (de longueurs variables et séparés par une astérisque) soient présentés alignés.
Ex de lignes:
X*01/01/2013*AGRR**817,26 **231,16 *231,16 *0,00*3 000,00
X*02/01/2013*Carrefour***84,42 *146,74 *146,74 *0,00*3 000,00

En ce qui concerne le pb mê en éliminant les .insert j'ai également le mème diag
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim Ligne As String Dim Tableau(12) As String FileOpen(1, "C:\\BANQUES\CA.txt", OpenMode.Input) ' Ouvre en lecture. Do While Not EOF(1) ' tant que la fin du fichier 1 ( origine) n'est pas terminÃ©e Ligne = LineInput(1) ' On lit la ligne du fichier d'origine Tableau = Ligne.Split("*") MsgBox(Tableau(0) & " " & Tableau(1) & " " & Tableau(2) & " " & Tableau(4) & " " & Tableau(5) & " " & Tableau(6) & " " & Tableau(7) & " " & Tableau(8)) Loop End Sub

comme tu as du le remarquer sur mon post il y a moyen de mettre le code en forme, balise code ou bouton # sur l'éditeur de message

le mieux serait peut etre un datagridview, ca permet d'avoir des colonnes, plutot que de bricoler le rendu dans un listbox ...

sinon pour le listbox ca donne :
Code:

1 2 3 4 5 6 7 for each ligne as string in system.io.file.readalllines(path) dim valeurs() as string = ligne.split("*") valeurs(0) = valeurs(0).padright(30) valeurs(1) = valeurs(0).padright(20) '... me.listbox1.items.add(valeurs(0) & valeurs(1) ...) next

25/08/2013, 19h18
duarep

Merci
Je vais essayer et également regarder comment fonctionne ListView que je viens de découvrir
25/08/2013, 21h40
Pol63

ai-je parlé de listview ?
26/08/2013, 09h51
duarep

Suite à tes conseils, j'ai regargé le fonctionnement de DataGridView et j'ai utilisé la commande suivante pour ajouter des lignes.

Code:

DataGridView1.Rows.Add("XXXXX", "XXXX1", "XXXX2", "XXXX3")

Pourrais tu avoir la gentillesse de m'indiquer comment procéder pour lire le contenu d'une ligne préalablement sélectionnée

Merci
26/08/2013, 11h25
Pol63

datagridview.selectedrows
26/08/2013, 12h21
duarep

Merci

Après avoir suivi tes conseils, je retombe sur le pb d'origine cad:

si je lance

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        Dim Tableau(12) As String
 
        'FileOpen(1, "C:\\BANQUES\CA.txt", OpenMode.Input) ' Ouvre en lecture.
 
        For Each ligne As String In System.IO.File.ReadAllLines("C:\\BANQUES\CA.txt")
            Dim valeurs() As String = ligne.Split("*")
            DataGridView1.Rows.Add(valeurs(0), valeurs(1), valeurs(2), valeurs(3))
        Next
    End Sub

J'ai le diag d'erreur cité plus haut

si j'ajoute une ligne MsgBox le DataGridView1 se remplit bien ligne à ligne après chaque message.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        Dim Tableau(12) As String
 
        'FileOpen(1, "C:\\BANQUES\CA.txt", OpenMode.Input) ' Ouvre en lecture.
 
        For Each ligne As String In System.IO.File.ReadAllLines("C:\\BANQUES\CA.txt")
            Dim valeurs() As String = ligne.Split("*")
            MsgBox("")
            DataGridView1.Rows.Add(valeurs(0), valeurs(1), valeurs(2), valeurs(3))
        Next
    End Sub

26/08/2013, 16h36
Pol63

quelle ligne plante ? quel message d'erreur ? quel type d'erreur (se finit par Exception, comme par exemple NullReferenceException) ?
26/08/2013, 17h01
duarep

L'exception Iindex OutOfRange n'a pas été gérée.

En mode debug si je pointe l'inex sur valeur ,il m'indique valeur (Length =1)
26/08/2013, 17h10
duarep

La ligne du blocage est
DataGridView1.Rows.Add(valeurs(0), valeurs(1), valeurs(2), valeurs(3))

c'est en pointant survaleurs qu'il m'indique valeurs (Length =1)
26/08/2013, 17h13
Pol63

regarde le contenu de ligne quand ca plante, tu dois être sur une ligne vide
donc le split ne retourne qu'une valeur (vide) et donc valeurs (1) n'existe pas (ni la suite)

une solution, après le for :

Code:

if ligne = "" then continue for
26/08/2013, 17h29
duarep

Tu as raison il y avait bien une ligne vide en fin du fichier txt

je croyais qu'il se plantait dès la 1ère ligne car aucune ligne n'était présente dans le DataGridView qui ne doit s'afficher qu'en fin du For

Autant pour moi et merci pour ta patience et ta gentillesse

Je clos donc le sujet