Code archives/Algorithms/Split
This code has been declared by its author to be Public Domain code.
Download source code
| |||||
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