文章編號: 170964 - 上次校閱: 2006年10月11日 - 版次: 3.7

如何改善字串串連效能

中英文對照顯示按一下這裡顯示機器翻譯的中英文對照
機器翻譯檢視機器翻譯免責聲明
檢視此文章適用的產品。
系統提示本文適用於您使用的作業系統之外的作業系統。與您不相關的文章內容已停用。

在此頁中

全部展開 | 全部摺疊

結論

當串連大型字串 50 KB 的順序或更大 (例如，建置 HTML 表格從資料庫) 的要完成的時間長度可能會變得很長如字串取得較大。本文將告訴您，可以改善效能由大型字串，20 次] 或 [多的標準串連的替代方案。
回此頁最上方

其他相關資訊

執行的型別重複的串連時： 
   For I = 1 To N
     Dest = Dest & Source
   Next N
按比例為 N 平方的時間長度會增加。因此，1000年反覆項目將會採取大約 100 次長度超過 100 次反覆運算。這是因為 Visual Basic 不只是將來源字元加入目的地字串的結尾 ； 它也會執行下列作業：

  1. 配置暫存記憶體不夠大，無法存放結果。
  2. 將目的地複製到暫存區的開頭。
  3. 複製來源]，以暫存區的結尾。
  4. de-allocates 舊複本的目的地。
  5. 會配置的記憶體不夠大，無法保存結果的目的地。
  6. 將暫存資料複製到目的地。
步驟 2 和 6 都非常昂貴，且基本上產生兩次與配置及解除配置記憶體的額外負荷正在複製整個串連結果。

本文件詳細說明一個方法使用 Mid $ 陳述式和 pre-allocating 以步驟 3 上述以外的所有消除大部份的 「 串連 」 階段的較大的區塊 (Chunk) 中的記憶體。

警告: 任何使用您程式碼本文中所提供的是，請自行負擔相關的風險。Microsoft 提供 「 現狀 」 這個程式碼並不提供任何種類明示或默示包括但不是限於適售性以及適合某特定用途之默示擔保責任。
回此頁最上方

雖說是逐步範例

  1. 下列程式碼輸入一個模組： 
          Option Explicit

      ' For 16-bit products, uncomment the next three lines by removing the
      ' single quotes and add a single quote to comment out the following
      ' three lines.
      '  Const ConcatStr = "ABC"
      '  Const ccIncrement = 15000
      '  Declare Function GetTickCount Lib "USER" () As Long

         Const ConcatStr = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
         Const ccIncrement = 50000

         Private Declare Function GetTickCount Lib "KERNEL32" () As Long

      Dim ccOffset As Long

      Sub StdConcat(ByVal LoopCount As Long)
      Dim BigStr As String, I As Long, StartTick As Long
        StartTick = GetTickCount()
        For I = 1 To LoopCount
          BigStr = BigStr & ConcatStr
        Next I
        Debug.Print LoopCount; "concatenations took";
        Debug.Print GetTickCount() - StartTick; "ticks"
      End Sub

      Sub Test_Concat()
        Debug.Print "Using standard concatenation"
        StdConcat 1000
        StdConcat 2000
        StdConcat 3000
        StdConcat 4000
        StdConcat 5000
        Debug.Print
        Debug.Print "Using pre-allocated storage and pseudo-concatenation"
        MidConcat 1000
        MidConcat 2000
        MidConcat 3000
        MidConcat 4000
        MidConcat 5000
      End Sub

      Sub Concat(Dest As String, Source As String)
      Dim L As Long
        L = Len(Source)
        If (ccOffset + L) >= Len(Dest) Then
          If L > ccIncrement Then
            Dest = Dest & Space$(L)
          Else
            Dest = Dest & Space$(ccIncrement)
          End If
        End If
        Mid$(Dest, ccOffset + 1, L) = Source
        ccOffset = ccOffset + L
      End Sub

      Sub MidConcat(ByVal LoopCount As Long)
      Dim BigStr As String, I As Long, StartTick As Long
        StartTick = GetTickCount()
        ccOffset = 0
        For I = 1 To LoopCount
          Concat BigStr, ConcatStr
        Next I
        BigStr = Left$(BigStr, ccOffset)
        Debug.Print LoopCount; "pseudo-concatenations took";
        Debug.Print GetTickCount() - StartTick; "ticks"
      End Sub
  2. 在 [偵錯/即時運算] 視窗中輸入 Test_Concat，並按 Enter 鍵]。

    結果會看起來類似： 
          Using standard concatenation
       1000 concatenations took 2348 ticks
       2000 concatenations took 8954 ticks
       3000 concatenations took 20271 ticks
       4000 concatenations took 35103 ticks
       5000 concatenations took 54453 ticks

      Using pre-allocated storage and pseudo-concatenation
       1000 pseudo-concatenations took 82 ticks
       2000 pseudo-concatenations took 124 ticks
       3000 pseudo-concatenations took 165 ticks
       4000 pseudo-concatenations took 247 ticks
       5000 pseudo-concatenations took 289 ticks
回此頁最上方

其他資訊

  1. 程式碼可能要花幾分鐘才能執行。
  2. 啟動 Windows 後，GetTickCount 會傳回毫秒的數。因此，輸出是以毫秒為單位)。
  3. 效能改進範圍從幾乎 30 次的 1000年反覆項目大小寫以幾乎 200 次為 5000 反覆項目的案例。這些時間可能會視而異：

    • 使用產品。
    • 您的系統設定
    • ccIncrement 大小 (較大的大小會偏重 MidConcat)。
    • 使用的反覆運算次數 (多個反覆項目會偏重 MidConcat)。
    • (較大的大小會偏重 MidConcat) 的結果字串的大小。
回此頁最上方

?考

如需詳細資訊按一下 [下面的文件編號，檢視 「 Microsoft 知識庫 」 中的發行項]：
306821? (http://support.microsoft.com/kb/306821/EN-US/ ) 如何改善 Visual Basic.NET 中的字串串連效能
回此頁最上方
這篇文章中的資訊適用於:
  • Microsoft Visual Basic Control Creation Edition
  • Microsoft Visual Basic 5.0 Learning Edition
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition
  • Microsoft Visual Basic 4.0 Standard Edition
  • Microsoft Visual Basic 4.0 Professional Edition
  • Microsoft Visual Basic 4.0 Professional Edition
  • Microsoft Visual Basic 4.0 16-bit Enterprise Edition
  • Microsoft Visual Basic 4.0 32-Bit Enterprise Edition
  • Microsoft Visual Basic 3.0 Professional Edition
  • Microsoft Visual Basic 3.0 Professional Edition
  • Microsoft Access 1.0 Standard Edition
  • Microsoft Access 1.1 Standard Edition
  • Microsoft Access 2.0 Standard Edition
  • Microsoft Access 95 Standard Edition
  • Microsoft Access 97 Standard Edition
  • Microsoft Excel 95 Standard Edition
  • Microsoft Excel 97 Standard Edition
  • Microsoft Word 97 Standard Edition
回此頁最上方
關鍵字：?
kbmt kbhowto kbprogramming KB170964 KbMtzh
回此頁最上方
機器翻譯機器翻譯
重要：本文是以 Microsoft 機器翻譯軟體翻譯而成，而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章，讓使用者可以依其使用語言使用知識庫中的所有文章。但是，機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤，就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。
按一下這裡查看此文章的英文版本：170964? (http://support.microsoft.com/kb/170964/en-us/ )
回此頁最上方
Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應，不負任何擔保責任。Microsoft及(或)其供應商謹此聲明，不負任何對與此資訊有關之擔保責任，包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。