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