Tableau string à une dimension

Version imprimable

18/04/2008, 13h40
Poulain

Tableau string à une dimension
Bonjour,
je bloque sur un truc qui doit etre tout bete, mais impossible de trouver la solution...

Voilà, j'utilise un tableau string que je voudrais remplir mais je n'y arrive aps.

mon code:
Code:

1 2 3 4 5 6 Dim Listfile() As String dim i as integer for i = 0 to version.count -1 Listfile(i) = version(1) 'erreur ICI, il me dit references null i += 1 Next
Bon, là c'est juste pour l'exemple, car version est un string, alors, mettre un string dans un autre y a pas trop d'interet.

Il faut initialiser Listfile.
Par exemple :
Code:

1 2 3 Dim version(10) As String Dim Listfile(version.Length) As String

18/04/2008, 14h03
Pol63

à savoir qu'il est possible de le déclarer sans limite puis d'utiliser redim pour lui donner sa dimension
redim preserve redimensionne le tableau en conservant les valeurs qui sont déjà dedans
18/04/2008, 15h24
Poulain
Citation:
Envoyé par BCmDev

Il faut initialiser Listfile.
Par exemple :

Code:

1 2 3 Dim version(10) As String Dim Listfile(version.Length) As String
Non, ce n'est pas ce que je veux, car là, tu donnes à l'instanciation la taille du tableau

Citation:

Envoyé par sperot51

à savoir qu'il est possible de le déclarer sans limite puis d'utiliser redim pour lui donner sa dimension
redim preserve redimensionne le tableau en conservant les valeurs qui sont déjà dedans

En effet, c'est ce que j'ai utilisé, ça marche à merveille:
Code:

1 2 3 4 5 6 7 Dim Listfile() As String dim i as integer for i = 0 to version.count -1 redim preserve listfile(i) Listfile(i) = version(1) 'erreur ICI, il me dit references null i += 1 Next
18/04/2008, 15h31
BCmDev

D'après ton exemple, tu connais la taille finale de ton tableau avant l'instanciation. Faire un redim preserve à chaque tour de boucle est un énorme gâchis en termes de performances.
18/04/2008, 15h46
Pol63

Citation:

Envoyé par BCmDev

D'après ton exemple, tu connais la taille finale de ton tableau avant l'instanciation. Faire un redim preserve à chaque tour de boucle est un énorme gâchis en termes de performances.

+1

redim preserve indique en général qu'on ne connait pas les collections :lol:
18/04/2008, 15h47
SaumonAgile

Pourquoi tu n'utilises pas une collection générique ?
18/04/2008, 15h49
tomlev

Citation:

Envoyé par BCmDev

D'après ton exemple, tu connais la taille finale de ton tableau avant l'instanciation. Faire un redim preserve à chaque tour de boucle est un énorme gâchis en termes de performances.

Et puis une liste dynamique genre ArrayList ou List<T> serait plus adaptée...
Personnellement je n'utilise jamais de tableaux si je peux m'en passer. Si une méthode prend un tableau en paramètre, on peut toujours convertir la liste en tableau au dernier moment (avec la méthode CopyTo)

Je vous explique pourquoi je fais ça.
J'ai une appli, et je veux pouvoir mettre sa BDD à jour, juste avec un fichier .sql.
Donc, je regarde si dans le répertoire y a le fichier, mais si il y a des versions précédentes... donc je ne connais pas le nombre.
Après, je veux rendre cette requête dynamique, en remplaçant dans la requête la destination. Mais le remplacement ne se fait pas.

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
28
29
Public Sub Creerbase()
 
        Dim Listfile() As String
        'récupère le chemin de l'appli
        Dim path As New FileInfo(Reflection.Assembly.GetEntryAssembly.Location)
        'recupère les infos sur les fichiers qui sont dans le repertoire
        Dim files() As System.IO.FileInfo = path.Directory.GetFiles
        Dim i As Integer = 0
        For Each file As System.IO.FileInfo In files
            'on test l'extension des fichiers pour trouver le fichier .sql
            If file.Extension = ".sql" And file.Name.Contains("Médiathèque") Then
                Dim version() As String = Split(file.Name.Remove(file.Name.Length - file.Extension.Length), " ")
                ReDim Preserve Listfile(i)
                Listfile.SetValue(version(1), i)
                i += 1
            End If
        Next
 
        If Listfile IsNot Nothing Then
            'on tri les versions
            Array.Sort(Listfile)
            Array.Reverse(Listfile)'pour que ce soit en ordre décroissant
            Dim LogStream As New StreamReader("Médiathèque " & Listfile(0) & ".sql", True)
            Dim LireRequete As String = LogStream.ReadToEnd'je lis mon .sql jusqu'au bout
            LogStream.Close()
            LireRequete.Replace("<% path %>", path.Directory.ToString)' ça , je ne sais pas pourquoi ça ne marche pas
            SQLtools.commandenonquery(LireRequete, New ArrayList)'ça, c'est une sub à moi
        End If
    End Sub

18/04/2008, 16h32
Pol63

system.collections
system.collections.generic

par là y a des trucs plus sympa que les tableaux quand même (list, sortedlist, dictionary ...)
plus pratique à écrire et à utiliser ...

voilà, j'ai écouté vos conseils.

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
28
29
    Public Sub Creerbase()
 
        Dim Listfile As New ArrayList
        'on récupère le chemin de l'appli
        Dim path As New FileInfo(Reflection.Assembly.GetEntryAssembly.Location)
        'on recupère les infos sur les fichiers qui sont dans le repertoire
        Dim files() As System.IO.FileInfo = path.Directory.GetFiles
        Dim i As Integer = 0
        For Each file As System.IO.FileInfo In files
            'on test l'extension des fichiers pour trouver le fichier .sql
            If file.Extension = ".sql" And file.Name.Contains("Médiathèque") Then
                Dim version() As String = Split(file.Name.Remove(file.Name.Length - file.Extension.Length), " ")
                Listfile.Add(version(1))
                i += 1
            End If
        Next
 
        If Listfile IsNot Nothing Then
            'on tri les versions
            Listfile.Sort()
            'on met dans l'ordre decroissant
            Listfile.Reverse()
            Dim LogStream As New StreamReader("Médiathèque " & Listfile(0).ToString & ".sql", True)
            Dim LireRequete As String = LogStream.ReadToEnd 'on lit le fichier .sql
            LogStream.Close()
            LireRequete = LireRequete.Replace("<% path %>", path.Directory.ToString) 'on met le repertoire de la BDD
            SQLtools.commandenonquery(LireRequete, New ArrayList) 'on execute
        End If
    End Sub