Nasýl yapýlýr: String bitiþtirme performansý artýrma

   For I = 1 To N
     Dest = Dest & Source
   Next N
				

1. Sonuç alacak kadar büyük olan geçici bellek ayýrýr.
2. Hedef geçici alanýn baþlangýcýna kopyalar.
3. Kopya kaynaðý geçici alanýn sonuna.
4. Hedef eski bir kopyasýný de-allocates.
5. Bellek hedef sonucu alacak kadar büyük ayýrýr.
6. Geçici veri için hedef kopyalar.

Üste

Adým adým örnek

1. Bir modüle aþaðýdaki kodu yazýn:

         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. Debug/hemen penceresinde Test_Concat yazýn ve ENTER tuþuna basýn.
   
   Sonuçlarý benzer þekilde görünür:

         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

Üste

Ek bilgi

1. Kodu birkaç çalýþtýrmak için bir dakika sürebilir.
2. Windows yeniden baþlatýldýktan sonra GetTickCount milisaniye sayýsýný döndürür. Bu nedenle, çýktý milisaniyedir.
3. Performans geliþtirme aralýðýndan için yaklaþýk 30 saatleri 1000 yinelemenin durum için yaklaþýk 200 zamanlarý 5000 yinelemenin durumda. Bu kez baðlý olarak deðiþebilir:
   
   
   • Kullanýlan ürün.
   • Sisteminizin yapýlandýrmasý
   • CcIncrement boyutuna (daha büyük boyutta MidConcat ayrýcalýklý kýlar).
   • Kullanýlan yineleme sayýsýný (MidConcat daha fazla yineleme ayrýcalýklý kýlar).
   • Sonuç dizesini (daha büyük boyutta MidConcat ayrýcalýklý kýlar) olarak boyutu.

Üste