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
| Dim Reader As StreamReader = New StreamReader(EmplacementFichier, System.Text.Encoding.Default)
Dim TotalSolde As Double
Dim Ligne As String
Dim Tableau() As String
Dim Col, Row As Integer
TableauPresentationCompte.ColumnCount = 4
TableauPresentationCompte.RowCount = 1
TableauPresentationCompte.ColumnHeadersVisible = True
Row = -1
'Open emplacementfichier For Input As #1
' While Not EOF(1)
Ligne = Reader.ReadLine()
While Not Ligne = ""
'Line Input #1, Ligne
If Ligne.StartsWith("#") = False Then
Tableau = Split(Ligne, ";")
If UBound(Tableau) = 3 Then
TableauPresentationCompte.RowCount = TableauPresentationCompte.RowCount + 1
Row = Row + 1
For Col = 0 To 3
TableauPresentationCompte(Col, Row).Value = Tableau(Col)
Next
End If
End If
Ligne = Reader.ReadLine()
End While |