保存大量字符的最佳方法

Question

我需要保存a lot字符，然后，在保存所有信息之后，我将使用Print

我试图将一个类用作csStringBuilder但该错误仍在发生。 这是我尝试做的：
Obs：我知道这离一个好的编程很遥远，但是我尝试过...

Select Case iFlag

     Case 0, 1
         Length= Len(strCurrentlyData)
         If (Len(strCurrentlyData) + Len(strNewData) < (57000000 - Length)) Then
             iFlag = 1
             strCurrentlyData= strCurrentlyData & strNewData
         Else
             iFlag = 2
             strCurrentlyData2= strCurrentlyData2 & strNewData
         End If

     Case 2
         Length = Len(strCurrentlyData2)
         If (Len(strCurrentlyData2) + Len(strNewData)) < (57000000 - Length) Then
             strCurrentlyData2= strCartasDeCobranca2 & strNewData
         Else
             iFlag = 3
             strCurrentlyData3 = strCurrentlyData3 & strNewData
         End If  

我正在执行此操作，直到strCurrentlyData10 ， 但与此同时，它将消耗更多的memory ...因此， MaxLength永远不会相同，这就是为什么会出现此错误的原因：

                 Out Of String Space  

Wich将是解决此问题的最佳方法吗？

Answer 1

我的建议是，您要继续向数组中添加内容（在要添加新元素时，请调整其大小）。 然后，您可以在最后将所有字符串合并为一个（如果需要）（按某种块）。 或将它们写出到磁盘。

如果您可以详细说明最终目标是什么，那么可能会有一个更简单，更简单的解决方案。

Answer 2

从MSDN ：

需要创建用于评估的临时字符串的表达式可能会导致此错误。 例如，以下代码在某些操作系统上导致字符串空间不足错误：

  MyString = "Hello" For Count = 1 To 100 MyString = MyString & MyString Next Count 

要解决此问题，请尝试使用VBAccelerator的此快速字符串生成器 ，并对其工作方式进行解释。