' Einfache split()-Funktion

DECLARE SUB split (s$, d$, t$(), a%)

DIM a$(4 TO 10)

split "Hans liest 6 Bcher mit 200 Seiten.", " ", a$(), n%

FOR i% = LBOUND(a$) TO UBOUND(a$)
  PRINT ">"; a$(i%); "<"
NEXT i%
PRINT "Total"; n%; "Teile"

SUB split (s$, d$, t$(), a%)
  p% = 1
  i% = LBOUND(t$)
  DO WHILE i% < UBOUND(t$)
    p2% = INSTR(p%, s$, d$)
    IF p2% = 0 THEN
      EXIT DO
    END IF
    t$(i%) = MID$(s$, p%, p2% - p%)
    p% = p2% + LEN(d$)
    i% = i% + 1
  LOOP
  ' Reststck
  t$(i%) = MID$(s$, p%)
  a% = i% - LBOUND(t$) + 1
END SUB