Limite supérieure « Array de Bytes »

Version imprimable

08/08/2007, 19h12
DarkVader

Limite supérieure « Array de Bytes »

Bonjour,
La MSDN indique la limite d'un dimensionnement de tableau à 2^31-1
or après plusieurs tests, je bloque invariablement à 33 361 918 (<2^25) !

Quelqu'un d'autre aurait-il la même limite (pour un tableau de bytes)
ou bien serait-elle liée à mon environnement ?
08/08/2007, 23h39
OhMonBato

T'as combien de mémoire sur ta machine ? J'ai 1Go de mémoire sur mon PC et je peux dimensionner jusqu'à 322 000 000 à peu près.

Bonjour,
C'est très curieux car je dispose de la même quantité de mémoire physique
et quelquesoit la mémoire disponible j'obtiens toujours les mêmes résultats
(différents selon l'exécution sous VB6 et VBA) mais quelquesoit le type de tableau redimensionné.
Tu es sur de ton résultat ?

Voici la procédure de test utilisée

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
Sub testRedim()
    Dim temp() As String, c As Long, base As Long, lastC As Long
 
    On Error GoTo endSub
    base = 10000000
    c = 10000000
    'c(vb6) = 33 361 918  c(vba)=25 133 054
 
    Debug.Print "Type : « "; TypeName(tmp()); " »"
    Debug.Print String(70, "=")
reprise:
    For x = 0 To 1000
        DoEvents
        ReDim temp(1 To (c + (base * x)))
        Erase temp
    Next
Exit Sub
endSub:
    lastC = c + (base * (x - 1))
    Debug.Print "Dernière limite acceptée : "; Format(lastC, "# ### ### ###"), "( x= "; CStr(x - 1); " / base = " + CStr(base) + " )"
    base = base \ 10
    If base = 0 Then
        Exit Sub
    Else
        c = lastC
        Resume reprise
    End If
 
End Sub

09/08/2007, 11h29
Vld44

c'est quoi ce code :D

D'où elle sort ta variable temp ?
09/08/2007, 12h08
DarkVader

:mouarf:

C'est effectivement mieux en étant correctement déclaré , mais cela ne change rien au problème :
les affectations sont limitées et la limite aléatoire.

Affectation : « String() » - Dernière limite acceptée : 146 888 889 (VB6) 188 888 889 (VBA)
Affectation : « Space() » - Dernière limite acceptée : 146 888 889 (VB6) 188 888 889 (VBA)
Affectation : « Redim() » - Dernière limite acceptée : 133 447 672 (VB6) 100 532 216 (VBA)
09/08/2007, 12h09
ced600

Bon je ne suis pas un pro du vb6 mais tu redimensionne ton tbleau temp alors que tu ne l'as pas dimmensioner une seule fois ?
09/08/2007, 12h19
DarkVader

Cela a été corrigé mais ne change rien comme je l'indique ci-dessus.
09/08/2007, 12h35
ucfoutu

Bonjour, DarkVader,

Pas eu (et pas encore) le temps de tout voir..

Essaye de forcer ton x en long.
09/08/2007, 13h04
rv26t
Bonjour,

Juste une remarque, tu parles de tableau de byte et tu déclare un tableau de string pour tes tests. ?
Code:

1 2 3 4 Dim temp() As String ... ReDim temp(1 To (c + (base * x))) Erase temp
dans ce cas chez moi cela sort en erreur entre 33 000 000 et 34 000 000

Si je déclare le tableau en byte
Code:

1 2 3 4 Dim temp() As Byte ... ReDim temp(1 To (c + (base * x))) Erase temp
cela sort en erreur entre 530 000 000 et 540 000 000

Note : 512 Mo de mémoire.

A+, Hervé
09/08/2007, 14h15
LeForestier

Bonjour,
J'ai essayé en byte comme Rv26 et j'arrive à 743 000 000, quand je met l'analizeur de performance je constate que la mémoire est occupée à 37% (avant de lancer la sub)
et j'ai 1G de MV, j'ai modifier la M virtuelle mais ça ne change rien.
A mon avis, ça dépend de la mémoire disponnible !
J'ai tester en String et j'ai exactement les mêmes résultats que toi en VB6 et VBA
Il faudrait quelqu'un qui à 2G de ram pour comparer
A+

Citation:

Envoyé par rv26t

Bonjour,

Juste une remarque, tu parles de tableau de byte et tu déclare un tableau de string pour tes tests. ?

Parce que j'ai effectué les tests successivement avec différents tableaux (Byte, Long, String)

Citation:

Envoyé par rv26t

.../...
dans ce cas chez moi cela sort en erreur entre 33 000 000 et 34 000 000

Si je déclare le tableau en byte
.../...
cela sort en erreur entre 530 000 000 et 540 000 000

Note : 512 Mo de mémoire.

A+, Hervé

Soit les mêmes réponses, avec un quantité de memoire différente !

J'ai réécrit la procédure de test pour qui désirerait vérifier les résultats
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 Sub testRedim() Dim tmp() As Byte, sTemp As String, c As Long, base As Long, lastC As Long, Descr As String, x As Long On Error GoTo endSub c = 10000000 base = c Descr = "Affectation : « Redim(" + TypeName(tmp()) + ") » " '"; TypeName(tmp); " 'Descr = "Affectation : « String() » " reprise: For x = 0 To 1000 DoEvents 'sTemp = String(c + (base * x), " ") 'sTemp = Space(c + (base * x)) ReDim Preserve tmp(1 To (c + (base * x))) Erase tmp Next Exit Sub endSub: lastC = c + (base * (x - 1)) base = base \ 10 If base = 0 Then Debug.Print Descr, " - Dernière limite acceptée : "; Format(lastC, "# ### ### ###") ', "( x= "; CStr(x - 1); " / base = " + CStr(base) + " )" Exit Sub Else c = lastC Resume reprise End If End Sub
Les résultats pour 1Mo de Mem Vive :
Affectation : « Redim(Variant()) » - Dernière limite acceptée : 33 361 918
Affectation : « Redim(Currency()) » - Dernière limite acceptée : 66 723 836
Affectation : « Redim(Double()) » - Dernière limite acceptée : 66 723 836
Affectation : « Redim(Single()) » - Dernière limite acceptée : 133 447 672
Affectation : « Redim(String()) » - Dernière limite acceptée : 133 447 672
Affectation : « Redim(Long()) » - Dernière limite acceptée : 133 447 672
Affectation : « Redim(Integer()) » - Dernière limite acceptée : 266 895 344
Affectation : « Redim(Boolean()) » - Dernière limite acceptée : 266 895 344
Affectation : « Redim(Byte()) » - Dernière limite acceptée : 533 790 688

Affectation : « Space() » - Dernière limite acceptée : 146 888 889
Affectation : « String() » - Dernière limite acceptée : 146 888 889

10/08/2007, 12h04
rv26t

Citation:

Les résultats pour 1Mo de Mem Vive :
Affectation : « Redim(Variant()) » - Dernière limite acceptée : 33 361 918
Affectation : « Redim(Currency()) » - Dernière limite acceptée : 66 723 836
Affectation : « Redim(Double()) » - Dernière limite acceptée : 66 723 836
Affectation : « Redim(Single()) » - Dernière limite acceptée : 133 447 672
Affectation : « Redim(String()) » - Dernière limite acceptée : 133 447 672
Affectation : « Redim(Long()) » - Dernière limite acceptée : 133 447 672
Affectation : « Redim(Integer()) » - Dernière limite acceptée : 266 895 344
Affectation : « Redim(Boolean()) » - Dernière limite acceptée : 266 895 344
Affectation : « Redim(Byte()) » - Dernière limite acceptée : 533 790 688

En fait, il semblerait qu'il y a une limitation à 533 790 688 octets pour le tableau quel que soit le type de données.

Byte (1 octet) : 533 790 688 * 1 = 533 790 688
Integer (2 octets) 266 895 344 * 2 = 533 790 688
Long (4 octets) : 133 447 672 * 4 = 533 790 688 (idem pour single)
Double (8 octets) : 66 723 836 * 8 = 533 790 688 (idem pour currency)

et donc cela indépendament du type de données.

Essaye de voir le type d'erreur renvoyé, s'il s'agit de OutOfMemory.

A+, Hervé