Explode

[H.Brill]

Explode finde ich ja für sehr nützlich.
Manchmal braucht mans eben auch mal
anders rum. Gerade, wenn man z.B. Daten
im Programm in Arrays[] hält und am Ende
in eine Datei schreiben will. Seit man Arrays[]
an Procs übergeben kann, kein Problem.
Evtl. kann es jemand auch gebrauchen :

Declare A$[], B$[], text$
Proc Implode
Parameters Array$[], Delimiter$
Declare retString$, last&
last& = SizeOf(Array$[]) - 1
WhileLoop 0, SizeOf(Array$[]) - 1
     If &Loop = last&
        retString$ = retString$ + Array$[&Loop]
     Else   
        retString$ = retString$ + Array$[&Loop] + Delimiter$
     EndIf   
EndWhile
Return retString$
EndProc

   CLS
   B$[0] = "1"
   B$[1] = "2"
   B$[2] = "3"
   B$[3] = "4"
   
   var test$ = "Das|ist|ein|Test!"
   
   A$[] = Explode(test$, "|")
   
   WhileLoop 0, SizeOf(A$[]) - 1
     Print A$[&Loop]
   EndWhile
   Print
   
   text$ = Implode(B$[], ",")
   Print text$
   WaitInput
   End

[p. specht]

Feine Sache!

[H.Brill]

Dann ist es ja nicht unnütz.

[_Joerg_]

Es geht auch ohne Schleife. Dürfte bei größeren Arrays erheblich schneller sein:

Declare Arr$[]
Cls
WhileLoop 0,6000
  Arr$[&Loop] = "Test " + Str$(&Loop)
Wend

Proc Implode
  Parameters A$[]
  Declare Wert$
  Clearlist
  MoveArrToList(A$[])
  Wert$ =MoveListToStr$("|")
  ClearList
  Return Wert$
EndProc

Var x& = &GetTickCount
Print Implode(Arr$[])
Print &getTickCount - x&
WaitInput

[p. specht]

Wenn einen das zuletzt angefügte Trennzeichen nicht stört: OK (Schlimmstenfalls kann man es ja entfernen).

Es geht sogar ohne explizite Testbelegungsschleife , z.B. mittels &Index:

Declare Arr$[]:SetSize Arr$[],6001:Arr$[]="Test "+Str$(&Index)