VB.NET Tableau multidimensionnel

Version imprimable

Bonjour,

En VB.NET 2010 je suis confronté à une erreur face à un transfert des valeurs d'un tableau multidimensionnel à un tableau unidimensionnel.
Voici mon code:

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
For i = 0 To UBound(tabSemiFini, 1)
            j = 0
            Do While j <= UBound(tabSemiFini, 2)
                Select Case j
                    Case 0
                        arrDate(i) = tabSemiFini(i, j)
                    Case 1
                        arrHeure(i) = tabSemiFini(i, j)
                    Case 2
                        If tabSemiFini(i, j) = "SENT" Then
                            strEtat(i) = tabSemiFini(i, j)
                        Else
                            strEtat(i) = tabSemiFini(i, j + 1)
                        End If
                    Case 4
                        strSMSC(i) = tabSemiFini(i, j)
                    Case 5
                        strSVC(i) = tabSemiFini(i, j)
                    Case 6
                        strACT(i) = tabSemiFini(i, j)
                    Case 7
                        strBINF(i) = tabSemiFini(i, j)
                    Case 8
                        strFrom(i) = tabSemiFini(i, j)
                    Case 9
                        strExpediteur(i) = tabSemiFini(i, j)
                    Case 10
                        strFlags(i) = tabSemiFini(i, j)
                    Case 11
                        intTaille(i) = tabSemiFini(i, j)
                    Case 12
                        For j = 12 To UBound(tabSemiFini, 2) - 1
                            strMsg(i) = strMsg(i) & " " & tabSemiFini(i, j)
                            If tabSemiFini(i, j + 1) = "[udh:0:]" Then
                                strUDH(i) = tabSemiFini(i, j + 1)
                            End If
                            Exit For
                        Next j
 
                End Select
                j = j + 1
 
            Loop

Merci

17/04/2012, 16h10
Pol63

ca fait des années qu'on ne programme plus comme ca, passe aux collections et à la POO ...

concernant la question, elle est trop vague et le code est illisible, surtout hors contexte
17/04/2012, 17h57
tomlev

Citation:

Envoyé par cazteam

En VB.NET 2010 je suis confronté à une erreur face à un transfert des valeurs d'un tableau multidimensionnel à un tableau unidimensionnel.
Voici mon code:

Et c'est quoi l'erreur ? On peut pas deviner quel est ton problème si tu ne l'indiques 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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
 
 Private Sub TraiterLeLogToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TraiterLeLogToolStripMenuItem.Click
 
        Dim nLignes() As String = txtLog.Lines 'Decoupe le texte principal par ligne
        Dim i, j As Integer
        Dim tampon(0) As String
        Dim tabTri() As String = txtLog.Lines 'Affectation du contenu du 1er Tableau pour preserver son contenu
 
        'Comparer les lignes pour determiner la plus longue des lignes
        For i = 0 To UBound(tabTri) - 1
            For j = i To UBound(tabTri)
                If tabTri(i).Length < tabTri(j).Length Then
                    tampon(0) = tabTri(i)
                    tabTri(i) = tabTri(j)
                    tabTri(j) = tampon(0)
                End If
            Next j
        Next
 
        'Pas important juste pour des tests de verité
        MsgBox("La ligne la plus longue est : ligne " & tabTri(0).Length, MsgBoxStyle.Information)
 
        Dim tabProvisoire() As String = tabTri(0).Split(" ") 'Decoupe la chaine la plus longue pour l'affecter
        'au tableau provisoire afin d'avoir une taille maxi  
        Dim tabSemiFini(UBound(nLignes), UBound(tabProvisoire)) As String
        Dim Temp As String 'Tableau temporaire pour recevoir les chaines de chaque ligne découpée
 
        'Decoupons chaque ligne en mots et mise en forme
        For i = 0 To UBound(nLignes)
            Temp = nLignes(i)
            Dim tabTemp() = Temp.Split(" ")
            For j = 0 To UBound(tabTemp)
                tabSemiFini(i, j) = tabTemp(j)
                If tabSemiFini(i, j) = "" Then Exit For
            Next j
        Next i
 
'Chaque valeur du tableau précédent est rangé dans un nouveau tableau
'Pour une utilisation aisée
 
        Dim tempo As String
        Dim tabFini(-1, UBound(nLignes)) As String
        For i = 0 To UBound(tabSemiFini, 1)
            j = 0
            Do While j <= UBound(tabSemiFini, 2)
                Select Case j
                    Case 0
                        tabFini(i, j) = tabSemiFini(i, j)
                    Case 1
                        tabFini(i, j) = tabSemiFini(i, j)
                    Case 2
                        If tabSemiFini(i, j) = "SENT" Then
                            tabFini(i, j) = tabSemiFini(i, j)
                        Else
                            tabFini(i, j) = tabSemiFini(i, j + 1)
                        End If
                    Case 4
                        tabFini(i, j) = tabSemiFini(i, j)
                    Case 5
                        tabFini(i, j) = tabSemiFini(i, j)
                    Case 6
                        tabFini(i, j) = tabSemiFini(i, j)
                    Case 7
                        tabFini(i, j) = tabSemiFini(i, j)
                    Case 8
                        tabFini(i, j) = tabSemiFini(i, j)
                    Case 9
                        tabFini(i, j) = tabSemiFini(i, j)
                    Case 10
                        tabFini(i, j) = tabSemiFini(i, j)
                    Case 11
                        tabFini(i, j) = tabSemiFini(i, j)
                    Case 12
                        For j = 12 To UBound(tabSemiFini, 2) - 1
                            tabFini(i, j) = tabFini(i, j) & " " & tabSemiFini(i, j)
                            If tabSemiFini(i, j + 1) = "[udh:0:]" Then
                                tabFini(i, j) = tabSemiFini(i, j + 1)
                            End If
                            Exit For
                        Next j
 
                End Select
                j = j + 1
 
            Loop
        Next i
 
 
        For i = 0 To UBound(tabFini, 1)
            For j = 0 To UBound(tabFini, 2)
                tempo = tabFini(i, j) & vbCrLf
            Next j
            MsgBox(tempo, MsgBoxStyle.Information) 'Juste un test d'affichage
        Next i
    End Sub

Je sais que l'in ne programme depuis belle lurette ainsi, c'est juste une partie de mon code que j'ai écrit.

Voici le nom de l'erreur: IndexOutOfRangeException

17/04/2012, 21h06
tomlev

Citation:

Envoyé par cazteam

Voici le nom de l'erreur: IndexOutOfRangeException

Sur quelle ligne l'erreur se produit ? Essaie de donner des informations complètes dès le début, ça fera gagner du temps à tout le monde...

Soit dit en passant, les 2 boucles For imbriquées au début, c'est vraiment pas la façon la plus efficace de faire un tri :
- la complexité est de O(n²), alors que la plupart des algos de tri ont une complexité de O(n log n)
- tu réinventes la roue : il existe déjà plein de façons simples de trier un tableau sans avoir à le recoder soi-même

Et de toutes façons, pour trouver la chaine la plus longue, il n'y a pas besoin de faire un tri : il suffit de parcourir le tableau une seule fois (soit une complexité de O(n))

Enfin, de toutes façons l'erreur n'est pas là-dedans a priori...
17/04/2012, 21h21
cazteam
Citation:

Envoyé par tomlev

Sur quelle ligne l'erreur se produit ? Essaie de donner des informations complètes dès le début, ça fera gagner du temps à tout le monde...

Soit dit en passant, les 2 boucles For imbriquées au début, c'est vraiment pas la façon la plus efficace de faire un tri :
- la complexité est de O(n²), alors que la plupart des algos de tri ont une complexité de O(n log n)
- tu réinventes la roue : il existe déjà plein de façons simples de trier un tableau sans avoir à le recoder soi-même

Et de toutes façons, pour trouver la chaine la plus longue, il n'y a pas besoin de faire un tri : il suffit de parcourir le tableau une seule fois (soit une complexité de O(n))

Enfin, de toutes façons l'erreur n'est pas là-dedans a priori...

Euh oui tu as pleinement raison, je peux dire que suis en version beta:mrgreen:

l'erreur se produit à la ligne 46
Code:

1 2 3 Case 0 tabFini(i, j) = tabSemiFini(i, j) '<=====
17/04/2012, 22h18
tomlev

Bah tu as dimensionné tabFini avec un UBound de -1, autrement dit une longueur de 0 dans cette dimension... donc quel que soit l'indice que tu utilises, ce sera forcément en dehors !
17/04/2012, 23h17
cazteam

Citation:

Envoyé par tomlev

Bah tu as dimensionné tabFini avec un UBound de -1, autrement dit une longueur de 0 dans cette dimension... donc quel que soit l'indice que tu utilises, ce sera forcément en dehors !

Bon je fais des modifications pour voir
18/04/2012, 00h35
cazteam

Citation:

Envoyé par tomlev

Bah tu as dimensionné tabFini avec un UBound de -1, autrement dit une longueur de 0 dans cette dimension... donc quel que soit l'indice que tu utilises, ce sera forcément en dehors !

Résolu d'une part:ccool:

Voici la nouvelle méthode que j'ai adopté et cela passe très bien

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
 
Private Sub TraiterLeLogToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TraiterLeLogToolStripMenuItem.Click
        Dim nLignes() As String = txtLog.Lines 'Decoupe le texte principal par ligne
        Dim i, j As Integer
        Dim tampon(0) As String
        Dim Taille As Integer
        Dim tabTri() As String = txtLog.Lines 'Affectation du contenu du 1er Tableau pour preserver son contenu
 
        'Determine la valeur de la ligne la plus longue
        Taille = 0
        For i = 0 To UBound(tabTri)
            If Taille < tabTri(i).Length Then
                Taille = tabTri(i).Length
            End If
        Next i
        MsgBox("la taille maxi est :" & Taille)
 
        'Decoupe chaque ligne par mots
        Dim tabSemifini(UBound(nLignes), Taille) As String
        Dim LigneTempo As String = "" 'Tableau temporaire reçoit la ligne decoupé en chaînes
        For i = 0 To UBound(nLignes)
            LigneTempo = nLignes(i)
            Dim Tabtempo() As String = LigneTempo.Split(" ")
            For j = 0 To UBound(Tabtempo)
                tabSemifini(i, j) = Tabtempo(j)
            Next j
        Next i
 
        'Test de verification (Test passé avec succès)
        For i = 0 To UBound(tabSemifini, 1)
            For j = 0 To UBound(tabSemifini, 2)
                If tabSemifini(i, j + 1) = "" Then Exit For
            Next j
        Next i
        Dim strDate(UBound(nLignes)) As Date
        Dim strHeure(UBound(nLignes)) As Date
        Dim strEtat(UBound(nLignes)) As String
        Dim strExpediteur(UBound(nLignes)) As String
        Dim strDestinataire(UBound(nLignes)) As String
        Dim strSMSC(UBound(nLignes)) As String
        Dim strSVC(UBound(nLignes)) As String
        Dim strACT(UBound(nLignes)) As String
        Dim strFID(UBound(nLignes)) As String
        Dim strBINF(UBound(nLignes)) As String
        Dim strFrom(UBound(nLignes)) As String
        Dim strFlags(UBound(nLignes)) As String
        Dim strUDH(UBound(nLignes)) As String
        Dim strMsg(UBound(nLignes)) As String
        Dim strTaille(UBound(nLignes)) As String
 
        For i = 0 To UBound(tabSemifini, 1)
            For j = 0 To UBound(tabSemifini, 2)
                Dim y As Integer
                If tabSemifini(i, j) <> "" Then
                    Select Case j
                        Case 0
                            strDate(i) = tabSemifini(i, j)
                        Case 1
                            strHeure(i) = tabSemifini(i, j)
                        Case 2
                            If tabSemifini(i, j) = "SENT" Then
                                strEtat(i) = tabSemifini(i, j)
                            Else
                                strEtat(i) = tabSemifini(i, j + 1)
                            End If
                        Case 4
                            strSMSC(i) = tabSemifini(i, j)
                        Case 5
                            strSVC(i) = tabSemifini(i, j)
                        Case 6
                            strACT(i) = tabSemifini(i, j)
                        Case 7
                            strBINF(i) = tabSemifini(i, j)
                        Case 8
                            strFID(i) = tabSemifini(i, j)
                        Case 9
                            strExpediteur(i) = tabSemifini(i, j)
                        Case 10
                            strDestinataire(i) = tabSemifini(i, j)
                        Case 11
                            strFlags(i) = tabSemifini(i, j)
                        Case 12
                            strTaille(i) = tabSemifini(i, j)
                        Case 13
                            For y = j To UBound(tabSemifini, 2)
                                If tabSemifini(i, y) <> "[UDH:0]" And tabSemifini(i, y) <> "" Then
                                    strMsg(i) = strMsg(i) & " " & tabSemifini(i, y)
                                ElseIf tabSemifini(i, j) = "[UDH:0]" Then
                                    strUDH(i) = tabSemifini(i, y)
                                Else : Exit For
 
                                End If
                            Next y
 
                    End Select
                Else : Exit For
                End If
            Next j
        Next i
 
        'Test de vérité (Passer avec succès)
        Dim tempo As String = ""
        For i = 0 To 2
            tempo = strDate(i) & vbTab & strHeure(i) & vbTab & strEtat(i) & vbTab & strSMSC(i) & vbTab & _
                strSVC(i) & vbTab & strACT(i) & vbTab & strBINF(i) & vbTab & strFID(i) & vbCrLf _
                & strExpediteur(i) & vbTab & strDestinataire(i) & vbTab & strFlags(i) & vbCrLf _
            & strTaille(i) & vbTab & strUDH(i) & vbCrLf & strMsg(i)
            MsgBox(tempo, MsgBoxStyle.Information)
 
        Next i
    End Sub