快捷的解决方案 有两种方法可以缓解字符串连接的影响，第一种方法是尝试减小要处理的字符串的大小，第二种方法是尝试减少执行字符串分配操作的数目。请参见下面所示的 WriteHTML 代码的修订版本。
|
Function WriteHTML（ Data ）
Dim nRep
For nRep = 0 to 99
sHTML = sHTML & （ vbcrlf _
& "＜TR＞＜TD＞" & （nRep + 1） & "＜/TD＞＜TD＞" _
& Data（ 0, nRep ） & "＜/TD＞＜TD＞" _
& Data（ 1, nRep ） & "＜/TD＞＜TD＞" _
& Data（ 2, nRep ） & "＜/TD＞＜TD＞" _
& Data（ 3, nRep ） & "＜/TD＞＜TD＞" _
& Data（ 4, nRep ） & "＜/TD＞＜TD＞" _
& Data（ 5, nRep ） & "＜/TD＞＜/TR＞" ）
Next
WriteHTML = sHTML
End Function |
乍一看，可能很难发现这段代码与上一个代码示例的差别。其实，此代码只是在 sHTML = sHTML & 后的内容外面加上了括号。这实际上是通过更改优先顺序，来减小大多数字符串连接操作中处理的字符串大小。在最初的代码示例中，ASP 编译器将查看等号右边的表达式，并从左到右进行计算。结果，每次重复都要进行 16 个连接操作，这些操作针对不断增长的 sHTML 进行。在新版本中，我们提示编译器更改操作顺序。现在，它将按从左到右、从括号内到括号外的顺序计算表达式。此技术使得每次重复包括 15 个连接操作，这些操作针对的是不会增长的较小字符串，只有一个是针对不断增长的大的 sHTML。图 1 显示了这种优化方法与标准连接方法在内存使用模式方面的比较。
图 1：标准连接与加括号连接在内存使用模式方面的比较
在特定情况下，使用括号可以对性能和可缩放性产生十分显著的影响，后文将对此进行进一步的说明。
StringBuilder
我们已经找到了解决字符串连接问题的快捷方法，在多数情况下，此方法可以达到性能和投入的最佳平衡。但是，如果要进一步提高构建大型字符串的性能，需要采用第二种方法，即减少字符串分配操作的数目。为此，需要使用 StringBuilder。StringBuilder 是一个类，用于维护可配置的字符串缓冲区，管理插入到此缓冲区的新文本片断，并仅在文本长度超出字符串缓冲区长度时对字符串进行重新分配。Microsoft .NET 框架免费提供了这样一个类 （System.Text.StringBuilder），并建议在该环境下进行的所有字符串连接操作中使用它。在 ASP 和传统的 Visual Basic 环境中，我们无法访问此类，因此需要自行创建。下面是使用 Visual Basic 6.0 创建的 StringBuilder 类示例（为简洁起见，省略了错误处理代码）。
|
Option Explicit
' 默认的缓冲区初始大小和增长系数
Private Const DEF_INITIALSIZE As Long = 1000
Private Const DEF_GROWTH As Long = 1000
' 缓冲区大小和增长
Private m_nInitialSize As Long
Private m_nGrowth As Long
' 缓冲区和缓冲区计数器
Private m_sText As String
Private m_nSize As Long
Private m_nPos As Long
Private Sub Class_Initialize（）
' 设置大小和增长的默认值
m_nInitialSize = DEF_INITIALSIZE
m_nGrowth = DEF_GROWTH
' 初始化缓冲区
InitBuffer
End Sub
' 设置初始大小和增长数量
Public Sub Init（ByVal InitialSize As Long, ByVal Growth As Long）
If InitialSize ＞ 0 Then m_nInitialSize = InitialSize
If Growth ＞ 0 Then m_nGrowth = Growth
End Sub
' 初始化缓冲区
Private Sub InitBuffer（）
m_nSize = -1
m_nPos = 1
End Sub
' 增大缓冲区
Private Sub Grow（Optional MinimimGrowth As Long）
' 初始化缓冲区（如有必要）
If m_nSize = -1 Then
m_nSize = m_nInitialSize
m_sText = Space$（m_nInitialSize）
Else
' 只是增长
Dim nGrowth As Long
nGrowth = IIf（m_nGrowth ＞ MinimimGrowth,
m_nGrowth, MinimimGrowth）
m_nSize = m_nSize + nGrowth
m_sText = m_sText & Space$（nGrowth）
End If
End Sub
' 将缓冲区大小调整到当前使用的大小
Private Sub Shrink（）
If m_nSize ＞ m_nPos Then
m_nSize = m_nPos - 1
m_sText = RTrim$（m_sText）
End If
End Sub
' 添加单个文本字符串
Private Sub AppendInternal（ByVal Text As String）
If （m_nPos + Len（Text）） ＞ m_nSize Then Grow Len（Text）
Mid$（m_sText, m_nPos, Len（Text）） = Text
m_nPos = m_nPos + Len（Text）
End Sub
' 添加一些文本字符串
Public Sub Append（ParamArray Text（））
Dim nArg As Long
For nArg = 0 To UBound（Text）
AppendInternal CStr（Text（nArg））
Next nArg
End Sub
' 返回当前字符串数据并调整缓冲区大小
Public Function ToString（） As String
If m_nPos ＞ 0 Then
Shrink
ToString = m_sText
Else
ToString = ""
End If
End Function
' 清除缓冲区并重新初始化
Public Sub Clear（）
InitBuffer
End Sub |
此类中使用的基本原则是，在类级别将变量 （m_sText） 用作字符串缓冲区，并使用 Space$ 函数以空格字符填充此缓冲区以将其设置为特定的大小。如果要将更多文本与现有文本连接在一起，则在检查缓冲区的大小足以存放新文本后，使用 Mid$ 函数在正确位置插入文本。ToString 函数将返回当前存储在缓冲区中的文本，并将缓冲区的大小调整为能够容纳此文本的正确长度。使用 StringBuilder 的 ASP 代码如下所示：
|
Function WriteHTML（ Data ）
Dim oSB
Dim nRep
Set oSB = Server.CreateObject（ "StringBuilderVB.StringBuilder" ）
' 用大小和增长系数初始化缓冲区
oSB.Init 15000, 7500
For nRep = 0 to 99
oSB.Append "＜TR＞＜TD＞", （nRep + 1）, "＜/TD＞＜TD＞", _
Data（ 0, nRep ）, "＜/TD＞＜TD＞", _
Data（ 1, nRep ）, "＜/TD＞＜TD＞", _
Data（ 2, nRep ）, "＜/TD＞＜TD＞", _
Data（ 3, nRep ）, "＜/TD＞＜TD＞", _
Data（ 4, nRep ）, "＜/TD＞＜TD＞", _
Data（ 5, nRep ）, "＜/TD＞＜/TR＞"
Next
WriteHTML = oSB.ToString（）
Set oSB = Nothing
End Function |
使用 StringBuilder 需要一定的开销，因为每次使用此类时都必须创建它的实例，并且在创建第一个类实例时必须加载包含此类的 DLL。对 StringBuilder 实例进行额外方法调用时也需要开销。使用加括号的“&”方法时，StringBuilder 如何执行取决于多个因素，包括连接的数目、要构建的字符串的大小以及选择的 StringBuilder 字符串缓冲区的初始化参数的性能。请注意，在多数情况下，将缓冲区中所需的空间量估计得略高一些要远远好于让其不断增长。
