PureBoard

Code: Alles auswählen

Procedure Test1()
  Dim myArray$(3)
  myArray$(0)="Arrays"
  myArray$(1)="sind"
  myArray$(2)="leider"
  myArray$(3)="global"
EndProcedure

Procedure Test2()
  Debug myArray$(0)
  Debug myArray$(1)
  Debug myArray$(2)
  Debug myArray$(3)
EndProcedure

Test1()
Test2()

Code: Alles auswählen

;Parameter sind die selben wie in VB
;Rückgabewert ist die Anzahl der gefunden Stringfelder
;das Ergebnis befindet sich immer in SplitString$( )
Procedure Split(String$, Separator$)
  Protected CountString.l, Num.l
  CountString = CountString(String$, Separator$)+1
  Dim SplitString$(CountString)
  
  For Num = 1 To CountString
    SplitString$(Num) = StringField(String$, Num, Separator$)
  Next
  ProcedureReturn CountString
EndProcedure

;Beispiel

myText$ = "Ich bin ein Test"
CountString = Split(myText$, " ")

For Num = 1 To CountString
  Debug SplitString$(Num)
Next

Code: Alles auswählen

Dim E_Array.s(0) 
FreeArray(E_Array()) 
E_Array() = Explode("a","bac") 

For i = 0 To CountArray(E_Array())-1 
  Debug E_Array(i) 
Next