Como melhorar o desempenho de concatenação de seqüência

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

1. Aloca memória temporária suficiente para armazenar o resultado.
2. Cópias de destino para o início da área temporária.
3. Fonte de cópias para o final da área temporária.
4. De-allocates a cópia antiga do destino.
5. Aloca memória para destino suficientemente grande para armazenar o resultado.
6. Copia os dados temporários para o destino.

Voltar para o início

Exemplo passo a passo

1. Digite o seguinte código em um módulo:

         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. Na janela Debug/imediata, digite Test_Concat e pressione a tecla ENTER.
   
   Os resultados terá aparência semelhantes à:

         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

Voltar para o início

Informações adicionais

1. O código pode levar alguns minutos para ser executado.
2. ObterContagemMarcaEscala retorna o número de milissegundos desde inicialização do Windows. Portanto, a saída é em milissegundos.
3. Varia de aperfeiçoamento de desempenho de quase 30 vezes para o caso de iteração de 1000 para quase 200 vezes para o caso de iteração 5000. Estas horas podem variar dependendo:
   
   
   • O produto usado.
   • A configuração do sistema
   • O tamanho do ccIncrement (maior tamanho favorece MidConcat).
   • O número de iterações usado (mais iterações favorece MidConcat).
   • O tamanho da seqüência de caracteres resultante (maior tamanho favorece MidConcat).

Voltar para o início