PureBoard

Code: Alles auswählen

EnableExplicit
Dim Zeile.s(30)
Declare.l Explode(Trenner.s, String.s, Array Arr.s(1))
Explode(":", "23:59:42.32", Zeile())

;{ Explode()
; Explode() zerlegt eine Zeichenkette in ihre Bestandteil und das Trennzeichen kann auch eine kpl.
; Zeichenkette sein. Da man in Purebasic keine Felder aus Prozeduren zurückgeben kann, wird das Feld
; einfach als Parameter übergeben und die Ergebnisse dort eingetragen. Die Anzahl der belegten Fel-
; der wird als Integer zurückgegeben. Sollte das Feld nicht genügend Einträge haben, wird -1 zurück-
; gegeben.
Procedure.l Explode(Trenner.s, String.s, Array Arr.s(1))
  Define i.l, Pos.l
  i = 0                                         ;So sähe der Teil bis Until 0 in PHP aus:
  Repeat                                        ;$VolProf = explode(", ", $VolProfStr);
    Pos = FindString(String, Trenner)
    If Pos = 0
      If Len(String) > 0 : Arr(i) = String : String = "" : EndIf
      Break
    EndIf
    Arr(i) = Left(String, Pos-1)
    String = Mid(String, Pos + Len(Trenner))
    i + 1
    If i > ArraySize(Arr()) : ProcedureReturn -1 : EndIf
  Until 0
  ProcedureReturn i
EndProcedure
;}

Code: Alles auswählen

EnableExplicit
Define i
For i = 1 To 10
	Debug StringField("23:59:42.32", i, ":")
Next i

Code: Alles auswählen

EnableExplicit

Declare.i Explode(Trenner.s, String.s, List Results.s())

NewList Zeile.s()

Explode(":", "23:59:42.32", Zeile())

ForEach Zeile()
  Debug Zeile()
Next

;{ Explode()
; Explode() zerlegt eine Zeichenkette in ihre Bestandteil und das Trennzeichen kann auch eine kpl.
; Zeichenkette sein. Da man in Purebasic keine Felder aus Prozeduren zurückgeben kann, wird das Feld
; einfach als Parameter übergeben und die Ergebnisse dort eingetragen. Die Anzahl der belegten Fel-
; der wird als Integer zurückgegeben. Sollte das Feld nicht genügend Einträge haben, wird -1 zurück-
; gegeben.
Procedure.i Explode(Trenner.s, String.s, List Results.s())

  Define.i i, Pos
  
  ClearList(Results())

  If Not Len(String) : ProcedureReturn 0 : EndIf
  
  Repeat                                        ;$VolProf = explode(", ", $VolProfStr);
  
    Pos = FindString(String, Trenner)
    
    If Pos = 0
      AddElement(Results())
      Results() = String
      Break
    EndIf
    
    AddElement(Results())
    Results() = Left(String, Pos-1)

    String = Mid(String, Pos + Len(Trenner))
    i + 1

  ForEver
  
  ProcedureReturn i
  
EndProcedure
;}

Code: Alles auswählen

EnableExplicit

Declare.i Explode(Trenner.s, String.s, List Results.s())

NewList Zeile.s()

Explode(":", "23:59:42.32", Zeile())

ForEach Zeile()
  Debug Zeile()
Next

;{ Explode()
; Explode() zerlegt eine Zeichenkette in ihre Bestandteil und das Trennzeichen kann auch eine kpl.
; Zeichenkette sein. Da man in Purebasic keine Felder aus Prozeduren zurückgeben kann, wird das Feld
; einfach als Parameter übergeben und die Ergebnisse dort eingetragen. Die Anzahl der belegten Fel-
; der wird als Integer zurückgegeben. Sollte das Feld nicht genügend Einträge haben, wird -1 zurück-
; gegeben.
Procedure.i Explode(Trenner.s, String.s, List Results.s())

  Define.i i, Count
  
  ClearList(Results())

  Count = CountString(String, Trenner)
  
  For i = 1 To Count + 1
    AddElement(Results())
    Results() = StringField(String, i, Trenner)
  Next i
  
  ProcedureReturn ListSize(Results())
  
EndProcedure
;}

Code: Alles auswählen

EnableExplicit

Procedure Explode(Separator$, String$, Array Output$(1))
  Protected ArrayIndex, StartPos, SeparatorPos
  
  ArrayIndex = -1
  StartPos = 1
  
  Repeat
    ArrayIndex + 1
    
    If ArraySize(Output$()) < ArrayIndex
      ReDim Output$(ArrayIndex + 99) ; Wenn Output-Array zu klein ist, es um 100 Elemente vergrößern
    EndIf
    
    SeparatorPos = FindString(String$, Separator$, StartPos)
    If SeparatorPos = 0
      Output$(ArrayIndex) = Mid(String$, StartPos)
      Break
    EndIf
    
    Output$(ArrayIndex) = Mid(String$, StartPos, SeparatorPos - StartPos)
    StartPos = SeparatorPos + 1
  ForEver
  
  ReDim Output$(ArrayIndex) ; Array auf die wirklich notwendige Größe setzen
  
  ProcedureReturn ArrayIndex
EndProcedure

Define CountOfItems, i
Dim Items$(0) ; Hier kann die Größe auch im Voraus vergrößert werden, z. B.: Dim Items$(100)

CountOfItems = Explode(":", "String1:String2:String3", Items$())
For i = 0 To CountOfItems
  Debug Items$(i)
Next

Debug ArraySize(Items$())