Probleme lecture de fichier de taille inconnu
Bonjour,
ca fait un moment que je tourne autour du pot sans trouver la solution.
Comment pourrais je lire un fichier dont je ne connais pas le nombre de ligne ... style :
Citation:
SubID Sub_Name ZoneType
0 NS59649302 0
1 NS59649604 0
2 NS60632802 1
3 NS60633803 1
4 NS60633901 1
5 NS60633905 1
6 NS60634302 1
7 NS60634401 1
8 NS60634405 1
9 NS60634701 1
10 NS60635302 1
11 NS60635812 1
12 NS60635901 1
13 NS60635922 1
Le code que j ai ecris est le suivant :
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
| Dim myStreamReader As New StreamReader(Me._pathandfilename)
Dim aline As String
'READ HEADER
aline = myStreamReader.ReadLine
aline = myStreamReader.ReadLine
Do Until aline Is Nothing
Me._nbrSubNameline = Me._nbrSubNameline + 1
Dim TestArray() As String = Split(aline, vbTab)
'We filter out the empty strings
Dim LastNonEmpty As Integer = -1
For i As Integer = 0 To TestArray.Length - 1
If TestArray(i) <> "" Then
LastNonEmpty += 1
TestArray(LastNonEmpty) = TestArray(i)
End If
Next
ReDim Preserve TestArray(LastNonEmpty)
ReDim Preserve Me._SubNametable(Me._nbrSubNameline, Me._nbrcol)
'We implement the table
For ncol As Integer = 0 To Me._nbrcol - 1
Me._SubNametable(Me._nbrSubNameline, ncol) = TestArray(ncol)
Next
aline = myStreamReader.ReadLine
Loop |
Mon probleme est que j essaye de redimensionner le tableau qui contient les valeurs Me._SubNametable. En ajoutant a chaque foi une ligne, mais que vb.net ne suporte pas ca.
Quelqu un saurait ce que je dois faire pour resoudre ce pb, que je devine basique. (j ai essayé de regarder du coté des collections, mais je n ai pas vu comment gerer le fait que mon fichier contient 3 colonnes.)
Merci.