(encore) tableaux en vb.net

MacUser -
MacUser - 13 août 2009 à 10:40

Bonjour,
je développe un utilitaire en vb.net (2008), et j'ai un problème de tableau. Ni ccm, ni google n'ont pu m'aider!

je cherche a créer un tableau de type : MonTab(i)(y), sauf que je ne connais pas 'i' (je le remplis à partir d'une fichier texte).

Voici mon code du moment :

        Dim liste  '(NbLignes, 3)
        Dim compteur As Integer = 0

        If File.Exists(cPath & cFileName) Then 'si le fichier existe (évite explosions)
            Dim tempIp As String

            sr = New StreamReader(cPath & cFileName)

            While sr.EndOfStream = False
                tempIp = sr.ReadLine

                    liste(compteur)(0) = tempIp
                    liste(compteur)(1) = 0
                    liste(compteur)(2) = "Tout va bien"

            End While
            sr.Close()

        End If

le problème est que ma liste n'est pas initialisé, alors je ne peux rien faire avec (ma boucle ne fonctionne pas.)

Comment initialiser ma liste sans savoir le nombre de lignes?

A voir également:

(encore) tableaux en vb.net
Tableaux croisés dynamiques - Guide
Mise en forme tableau word - Guide
Fusionner deux tableaux excel - Guide
Fusionner deux tableaux word ✓ - Forum Word
Afficher un tableau en c - Forum C

1 réponse

Réponse 1 / 1

MacUser

^^
j'ai trouvé.
je récupère le nombre de lignes de mon fichier dans une var (pNbLignes) que je passe en paramètre à ma fonction, et je m'en sers pour le nombre de lignes dans mon tableau:

    Function fn_remplirListe(ByVal pNbLignes)

        Dim sr As StreamReader
        Dim compteur As Integer = 0
        Dim liste(pNbLignes, 2) '(i)(3) '(NbLignes, 0)

        If File.Exists(cPath & cFileName) Then 'si le fichier existe (évite explosions)
            Dim tempIp As String

            sr = New StreamReader(cPath & cFileName)
            While sr.EndOfStream = False
                tempIp = sr.ReadLine

                    liste(compteur, 0) = tempIp
                    liste(compteur, 1) = 0
                    liste(compteur, 2) = "Tout va bien"
                    compteur = compteur + 1
      


            End While
            sr.Close()

        End If

        Return liste
    End Function

Discussions similaires

CALCULS

Budget mensuel

garder constant des calculs

logiciel pour tableau

santa barbara

Votre réponse

Discussions similaires