超出Visual Basic 6中的字符串空间

我们在VB6应用程序中收到错误,该应用程序通过TCP套接字来回发送数据.我们得到一个"超出字符串空间"的运行时错误.有没有人看到这个或有任何想法为什么会发生这种情况？看起来我们正在打一些VB6门槛,所以任何其他的想法也会有所帮助.

哎呀

正如其他人所指出的那样,VB中的每个字符串连接都将分配一个新的字符串,然后复制数据,然后一旦取消原始字符串就可以解除分配.在循环中,这可能会导致问题.

要解决这个问题,您可以创建一个简单的StringBuilder类,如下所示:

Option Explicit

Private data As String
Private allocLen As Long
Private currentPos As Long

Public Function Text() As String
  Text = Left(data, currentPos)
End Function

Public Function Length() As Long
  Length = currentPos
End Function

Public Sub Add(s As String)

  Dim newLen As Long
  newLen = Len(s)
  If ((currentPos + newLen) > allocLen) Then
    data = data & Space((currentPos + newLen))
    allocLen = Len(data)
  End If

  Mid(data, currentPos + 1, newLen) = s
  currentPos = currentPos + newLen

End Sub

Private Sub Class_Initialize()
  data = Space(10240)
  allocLen = Len(data)
  currentPos = 1
End Sub

此类将通过强制在其中使用空格构建字符串然后根据需要覆盖空格来最小化字符串分配的数量.当它发现它没有预先初始化的足够空间时,它会重新分配大小的两倍.Text方法将返回实际使用的字符串部分.