आप वीबीए में एक सरणी को कैसे कम करते हैं?

Question

मैं एमएस एक्सेस वीबीए में एक सरणी को rediminsion करने का प्रयास कर रहा हूँ। ऐसा करने का सबसे प्रभावी तरीका क्या है?

Answer 1

कैसा रहेगा ...

यह myArray

Redim Preserve MyArray(15) 

में पहले से ही डेटा को सुरक्षित रखेगा यह myArray

Redim MyArray(15) 

Answer 2

सबसे कुशल तरह से करने के लिए मौजूदा किसी भी पिछले डेटा मिटा देगा सरणीकरण एक सरणी है कि आप उस सरणी का आकार बदलने की संख्या को सीमित कर सकते हैं। हर बार जब आप सरणी का आकार बदलते हैं तो वीबी पूरी सरणी ले लेगा और इसे कॉपी करेगा, समय और स्मृति बर्बाद कर देगा।

यदि आप विकास समय पर अपने सरणी के आकार को नहीं जानते हैं तो आपको सरणी के अधिकतम आकार में सबसे अच्छा अनुमान लगाना चाहिए, फिर सरणी भरें। एक बार सरणी भरने के बाद आप इसे सही आकार में बदल सकते हैं।

लूप में अंतरिक्ष से बाहर निकलने के बाद वर्तमान सरणी के आकार को दोगुना करके यह अनुमान लगाने के लिए सबसे अच्छा होता है। आप RedimTestA() के साथ नीचे की कार्रवाई में इसे प्रत्येक पुनरावृत्ति (1,000,000 बार) और RedimTestB() सरणी का आकार बदलकर कभी-कभी इसका आकार बदल सकते हैं (22 बार)।

मेरे लैपटॉप पर RedimTestA() लेता है 3.93 सेकंड और RedimTestB() 0.41 सेकंड लेता है।

Option Explicit 

Sub RedimTest() 
    Dim tA, tB As Single 
    tA = RedimTestA(1000000) 
    tB = RedimTestB(1000000) 

    MsgBox "Test A takes : " & tA & ", and Test B takes : " & tB 

End Sub 


Function RedimTestA(iterations As Long) As Single 
    Dim t As Single 
    Dim i As Long 
    Dim aryString() As String 
    Dim myString As String 

    t = Timer 
    Do While i <= iterations 
    ReDim Preserve aryString(i) As String 
    aryString(i) = "ABCEFG123" 
    i = i + 1 
    Loop 
    RedimTestA = Timer - t 

End Function 


Function RedimTestB(iterations As Long) As Single 
    Dim t As Single 
    Dim i As Long 
    Dim aryString() As String 
    Dim myString As String 

    t = Timer 

    ReDim aryString(0) As String 
    Do While i <= iterations 
    If i >= UBound(aryString) Then 
     ReDim Preserve aryString(i * 2) As String 
    End If 

    aryString(i) = "ABCEFG123" 
    i = i + 1 
    Loop 

    ReDim Preserve aryString(i - 1) As String ' i - 1 becuase of the final i = i + 1 
    RedimTestB = Timer - t 

End Function 

Answer 3

यह भी ध्यान रखें कि आप केवल बहु आयामी सरणी के दाएं सबसे अधिक आयाम को फिर से कर सकते हैं।