※ 引述《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