Strings - Den hurtigste måde...

Jeg tror du ville vække folks interesse en lille bitte smuler mere hvis du gav mere end 0 point.

Ups...

kan ikke lige huske om Join er med i den nyeste udgave af vb, men ellers vil jeg tro den vil klare dit prob hurtigst

Ok, ind til videre ser det jo godt ud, men jeg vil lige se det virke i praksis når jeg kommer hjem...

Hmmm, hvad nu hvis det ikke er et Array, men en lang række strings som jeg vil samle ?

så kan jeg ikke lige komme på nogle andre idéer end det du selv har skrevet

Hmmm... nå, men nogen skal jo have pointene så hvad med at du opretter en svar... Du har trods alt svaret på den ene halvdel af ?'et.

ok, men du kan da bare snuppe dem igen, jeg er egentlig ligeglad, det er tanken der tæller

Øøøøjeblik, der er en anden løsning.

Det som tager tid er reserveringen af plads til strengen, som er noget VB/VBA/VBScript ikke er særlige effektive til. Derfor er det en mulighed at reservere pladsen til strengen en gang for alle, og så indsætte dataene i strengen:

Function SammelDetSkrammel2(TheArray() As String) As String
  Dim i As Long
  Dim CalcLen As Long
  Dim Pos As Long
  Dim Result As String

  ’*** Gennemløb alle array entrys og beregn samlet længde *** 
  For i = LBound(TheArray, 1) To UBound(TheArray, 1)
    CalcLen = CalcLen + Len(TheArray(i))
  Next i
 
  ’*** Reserver plads ***
  Result = Space(CalcLen)
   
  ’Indsæt strenge i reserveret plads ***
  Pos = 1
  For i = LBound(TheArray, 1) To UBound(TheArray, 1)
    If Len(TheArray(i)) > 0 Then
      Mid$(Result, Pos, Len(TheArray(i))) = TheArray(i)
      Pos = Pos + Len(TheArray(i))
  End If
  Next i
 
  SammelDetSkrammel2 = Result
End Function

- Der er flere optimerings tricks i rutinen: Brug af for each tager en ekstra kopi af hvert element hvilket elimineres ved brug af en numerisk loop variabel.
- Alle variable er deklareret med den ”billigste” type. Hvis ingen type angives giver det som default en variant, som er en af de tungeste variabletyper, set fra systemets side.

Nåh ja, så er jeg kommet til at lave det til en funktion. Overførsel af variabler der ændres af funktionen/Sub’en er noget SNAVS!

En hurtig benchmark siger:

Elementer Skrammel1 Skrammel2
1000      0,175 sek 0,006 sek
4000      7,0 sek  0,02 sek   

Ved 10000 elementer sker der et eller andet, så Skrammel1 rutinen er flere minutter om at svare, men det tyder på at min version performer lineært med antallet af elementer, hvorimod original rutinen performer dobbelt eller tribbelt eksponentielt.

Under 100 elementer er forskellen så lille, så man måske ikke kan forsvare den extra kode.

Hvad så? Var det et svar der ville noget eller hvad?
Philip

Tak, så fik jeg reduceret tiden som min kode tager for at rette et par tusinde dukumenter med over 30 sekunder...