'===========================================================================
' Subject: SPLIT FUNCTION LIKE VB             Date: 09-16-99 (17:37)       
'  Author: Dave Navarro, Jr.                  Code: PBCC, PBDLL            
'  Origin: dave@powerbasic.com              Packet: PBCC.ABC
'===========================================================================
'
' Perform the same operation as the SPLIT function in Visual Basic 6.0
'
' Takes a string and splits it into a string array based on a specified
' delimeter.  If you don't specify a delimeter, a space is assumed.
'
' Split will work in PB/DLL or PB/CC.
'

SUB Split(BYVAL expression AS STRING, BYVAL delimeter AS STRING, StrArray() AS STRING)

  LOCAL c AS LONG
  LOCAL x AS LONG

  IF LEN(delimeter) = 0 THEN
    delimeter = " "
  END IF

  c = MAX(PARSECOUNT(expression, delimeter), 1)

  REDIM StrArray(0 to c - 1) AS STRING

  FOR x = 1 TO c
    StrArray(x - 1) = PARSE$(expression, delimeter, x)
  NEXT

END SUB

FUNCTION PbMain()

  LOCAL x AS LONG

  DIM s(0 to 0) AS STRING

  Split "This is what it's all about", "", s()

  FOR x = 0 TO UBOUND(s())
    PRINT s(x)
  NEXT

END FUNCTION