推 Daira:感謝板主這麼細心的回答 ~^^~ 140.112.30.95 06/17
※ 引述《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