Como aumentar o desempenho de concatenação de cadeias

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

1. Atribui memória temporária suficientemente grande para conter o resultado.
2. Destino de cópias para o início da área temporária.
3. Origem de cópias para o fim da área temporária.
4. De-allocates cópia antiga do destino.
5. Atribui memória para o destino suficientemente grande para conter o resultado.
6. Copia os dados temporários para o destino.

Voltar ao topo

Exemplo passo a passo

1. Escreva o seguinte código num 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 Immediate/Debug, escreva Test_Concat e prima a tecla ENTER.
   
   Os resultados serão semelhante à:

         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 ao topo

Informações adicionais

1. O código pode demorar alguns minutos para ser executado.
2. ObterContagemMarcaEscala devolve o número de milissegundos desde que o Windows foi iniciado. Por conseguinte, a saída é em milissegundos.
3. Melhoramento do desempenho intervalos de quase 30 horas para o caso de 1000 iteração para quase 200 horas para o caso de iteração 5000. Estes períodos de tempo podem variar dependendo:
   
   
   • O produto utilizado.
   • A configuração do sistema
   • O tamanho do ccIncrement (tamanho maior favorece MidConcat).
   • O número de iterações utilizado (mais iterações favorece MidConcat).
   • O tamanho da cadeia de conjunto de políticas resultante (tamanho maior favorece MidConcat).

Voltar ao topo