Split

This code has been declared by its author to be Public Domain code.

Split by Diego

2007

Splits a string into pieces by a seperator. You get the first pice with Split(SplitString$, Seperator$) and every next pice with SplitNext(). You can unse more than one chacter as seperator, but you can't seperate two or more strings at a time.
- - - - - - - - - - - - - - - - - - - - - - - -
Teilt einen String anhand eines Trenners in Teile. Das erste Stück bekommst du mit Split(ZuTeilenderString$, Trenner$) und jeses weitere mit SplitNext(). Du kannst mehr als ein Zeichen als Trenner benutzen, aber nicht mehrere Strings zur gleichen Zeit teilen.

Global Split_String$, Split_Seperator$, Split_Position%

; Example / Beispiel
Print Split("123:56:789", ":")
Print SplitNext()
Print SplitNext()
WaitKey

Function Split$(SpStr$, SpSeperator$)
Split_String$ = SpSeperator$ + SpStr$
Split_Seperator$ = SpSeperator$
Split_Position% = 1
Return SplitNext()
End Function

Function SplitNext$()
Local Split_Old_Position% = Split_Position% + Len(Split_Seperator$)
If Split_Position% = 0 Then Return ""
Split_Position% = Instr(Split_String$, Split_Seperator$, Split_Old_Position%)
Return Mid(Split_String$, Split_Old_Position%, Split_Position% - Split_Old_Position%)
End Function

Comments

None.

Code Archives Forum