VB6环境下大型多维字符串数组高效存加载方案咨询

针对你提到的audioshow(1000000, 12)大型字符串数组，嵌套循环读写速度慢的问题，以下是无需手动循环、一次性完成存加载的优化方案：

方案一：利用VB6二进制文件的Put/Get直接操作数组 #

VB6的二进制文件模式支持直接对整个数组进行读写操作，底层会批量处理数据，大幅减少IO开销，比手动循环效率提升明显。

保存数组代码： #

Dim audioshow() As String
' 从文件读取实际维度后重定义数组
ReDim audioshow(1000000, 12) As String

' 一次性写入整个数组到二进制文件
Open "audioshow.dat" For Binary As #1
Put #1, , audioshow
Close #1

加载数组代码： #

Dim audioshow() As String
' 先按已知维度重定义数组（需和保存时一致）
ReDim audioshow(1000000, 12) As String

' 一次性读取整个数组
Open "audioshow.dat" For Binary As #1
Get #1, , audioshow
Close #1

注意事项：

• 加载时数组的维度必须与保存时完全一致，否则会出现数据错乱或程序崩溃。
• 二进制文件会保存字符串的Unicode编码及长度信息，无需手动处理编码问题。
• 若数组维度是动态获取的，建议先将维度信息写入文件开头，加载时先读取维度再重定义数组，示例如下：

  ' 保存时先写维度
  Open "audioshow.dat" For Binary As #1
  Put #1, , UBound(audioshow, 1)  ' 写入第一维度上限
  Put #1, , UBound(audioshow, 2)  ' 写入第二维度上限
  Put #1, , audioshow
  Close #1
  
  ' 加载时先读维度
  Dim dim1 As Long, dim2 As Long
  Open "audioshow.dat" For Binary As #1
  Get #1, , dim1
  Get #1, , dim2
  ReDim audioshow(dim1, dim2) As String
  Get #1, , audioshow
  Close #1
  

方案二：批量拼接字符串后一次性读写（备选） #

如果因某些限制无法使用二进制数组读写，可将数组内容批量拼接为单个大字符串（用特殊分隔符区分元素），然后一次性写入文件；加载时一次性读入后拆分回数组。此方法效率虽略低于方案一，但远优于嵌套循环。

保存代码示例： #

Dim audioshow() As String
ReDim audioshow(1000000, 12) As String
Dim allData As String
Dim a As Long

' 按行拼接，每行元素用|分隔，行之间用换行符分隔
For a = 0 To UBound(audioshow, 1)
    allData = allData & Join(Application.Index(audioshow, a + 1), "|") & vbCrLf
Next

' 一次性写入文件
Open "audioshow.txt" For Output As #1
Print #1, allData
Close #1

加载代码示例： #

Dim audioshow() As String
Dim allData As String
Dim rows() As String, cols() As String
Dim a As Long, b As Long

' 一次性读取全部内容
Open "audioshow.txt" For Input As #1
allData = Input$(LOF(1), 1)
Close #1

rows = Split(allData, vbCrLf)
ReDim audioshow(UBound(rows), 12) As String

For a = 0 To UBound(rows)
    If rows(a) <> "" Then
        cols = Split(rows(a), "|")
        For b = 0 To UBound(cols)
            audioshow(a, b) = cols(b)
        Next
    End If
Next

注意事项：

• 需确保数组元素中不包含所使用的分隔符（如|或换行符），否则拆分时会出错，可选择特殊的不可见字符作为分隔符。
• 此方法因涉及字符串拼接和拆分，内存占用略高，对于超大规模数组需注意内存限制。

内容的提问来源于stack exchange，提问作者iz1kbp