Re: [VB6 ] VB6 是如何實做字串陣列的？

看板Visual_Basic作者fumizuki (小獅子)時間19年前 (2005/06/14 16:55)推噓1(1推 0噓 0→)

留言1則, 1人參與討論串2/2 (看更多)

※ 引述《Daira (Daira)》之銘言： : 因為最近寫的程式會需要建立一個龐大的字串陣列做排序及讀寫 : 舉列來說 Dim S(n) As String，n 可能大於 10 ^ 5 : 因此想了解 VB6 對字串陣列的實做方式，以及如何能加速並節省記憶體 : 以 C 的觀點來看，每一個字串都是一個 Char Array : 因此如果要在 C 中建立字串陣列，可以直接開一個二維 Char Array : 但缺點是每一個字串的長度必須固定，當字串長度差異很大時，很多記憶體是浪費的 : 不然就是開一個 Char Pointer Array，然後另外動態配置記憶體給每一個字串 : 這樣雖然記憶體省下了，但每次變動字串就必須重新配置記憶體長度 : 尤其是在排序時，字串會有大量的變動（這裡假設不能直接交換 Pointer） : 不知道 VB6 的字串陣列是哪一種做法（我這裡指的是 VB 的動態長度字串） : 如果是方法一，那是不是在字串變動時，等於整個陣列都要重新配置記憶體 : 又如果遇到這種情形，有沒有什麼方法可以做到速度和空間的最佳化不知道你要的是哪一種？固定字串： '長度 = n Dim S As String * 3 '長度固定為 3 S = "12" '會自動填上一個空白(強制) S = "123" S = "1234" '4 會被截掉變動字串： '0 <= 長度 <= 2147483648 Dim S As String '長度為 0 S = "12" '長度為 2 S = "123" '長度為 3 S = "1234" '長度為 4 字串陣列： 'n + 1 <= 長度 <= 2147483648 * (n + 1) Dim S(3) As String '長度為 0 * (3 + 1) = 0 S(0) = "Visual Basic" '目前長度為 12 + (0 * 3) = 12 S(1) = "Visual C++" '目前長度為 12 + 10 + (0 * 2) = 22 S(2) = "VS.NET" '目前長度為 12 + 10 + 6 + 0 = 28 S(3) = "Quick Basic" '目前長度為 12 + 10 + 6 + 11 = 39 Redim Preserve S(5) '目前長度為 12 + 10 + 6 + 11 + 0 + 0 = 39 S(4) = "Real Basic" '目前長度為 12 + 10 + 6 + 11 + 10 + 0 = 49 Redim S(20) '目前長度為 0 * (20 + 1) = 0 (內容被清空) 字元陣列： '長度 = n + 1 Dim b() As Byte '不可指定長度，目前長度為0 b = "長江一號" '目前長度為8 b = "要你命3000" '目前長度為10 Debug.Print b '輸出：「要你命3000」 ReDim b(3) As Byte '目前長度為 3 + 1 = 4 b(0) = 209 b(1) = 158 b(2) = 65 Debug.Print b '輸出：「黑A」 b = "十字追魂棍 " '目前長度為11 (後面有個空白) 像 memcpy 那種東西，對應的是 CopyMemory，但是不太會用。字元陣列好像不能用 CopyMemory？我不確定，我試不出來就對了。使用方法： Dim S As String s = Space(20) CopyMemory ByVal StrPtr(s) + 10, ByVal StrPtr("黑龍江"), 6 Debug.Print s 輸出：「黑龍江」 ※ 自己在一般模組加上這行： Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long) -- VB 程式設計倉木麻衣 PTT 星爺板行列輸入法 ====================================================== Visual_Basic MaiKuraki Stephen Array -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 61.222.155.162