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