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 : 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
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