[ASP/VBS] Tableau / Dictionary

[Rohzi]

Bonjour,

Enfaite j'aimerais savoir s'il est possible, de mettre un dictionary dans une case d'un tableau.
Si oui, j'aimerais savoir comment si c'est possible.

Voici un extrait de mon code :

Code ASP/VBS :

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
 
Function AnalyseLigne(ByVal Ligne, ByRef aLigne)
    Dim aError(), NbError
    NbError = 0
 
    Dim aTemp, Repeat, i
    aTemp = Split(Ligne, ";")
    Repeat = 1
    If aTemp(0) = "" Then
            CreateLog "LOG: error test", aError, NbError
    Else
            oLigne.Add "test", aTemp(0)
   End If
    Dim oLigne
    Set oLigne = CreateObject("Scripting.Dictionary")
    oLigne.CompareMode = vbBinaryCompare
 
      If NbError = 0 Then
            ReDim aLigne(Repeat)
 
            For i = 0 To UBound(aLigne)
                aLigne(i) = oLigne
            Next
            Set oLigne = Nothing
            AnalyseLigne = "titi"
        Else
            AnalyseLigne = 0
        End If
End Function

Donc :

• Ligne contient une ligne d'un fichier csv,
• aLigne c'est un tableau vide que j'utilise en ByRef pour ne pas avoir à le mettre en "return"

Merci d'avance

[Loki13]

Dans ton code il manque simplement un "Set" vu que le dictionary est un objet.

Code :

Set aLigne(i) = oLigne