BCX Console Demonstration Program s144.bas

CLS
DIM A$[100], B$, I, J

B$ = "Here is,,," & DQ$ & "New,Test" & DQ$ & ";Test!"

I = SPLIT(A$, B$, ",;+")

PRINT "Sample String = ", B$
PRINT "**********************************"
PRINT I, " Only elements stored"
PRINT "**********************************"

FOR J = 0 TO I-1
  PRINT "[", J, "] LEN =", LEN(A$[J]), " Cell = ", A$[J]
NEXT

PRINT

I = SPLIT(A$, B$, ",;+", 1)

PRINT "**********************************"
PRINT I, " Elements and Delimiters stored"
PRINT "**********************************"

FOR J = 0 TO I - 1
  PRINT "[", J, "] LEN =", LEN(A$[J]), " Cell = ", A$[J]
NEXT

PRINT

I = SPLIT(A$, B$, ",;+", 2)

PRINT "**********************************"
PRINT I, " Elements and Delimiters stored"
PRINT "**********************************"

FOR J = 0 TO I - 1
  PRINT "[", J, "] LEN =" , LEN(A$[J]), " Cell = ", A$[J]
NEXT

Result:

Sample String = Here is,,,"New,Test";Test!
**********************************
 5 Only elements stored
**********************************
[ 0] LEN = 7
[ 1] LEN = 0
[ 2] LEN = 0
[ 3] LEN = 8
[ 4] LEN = 5

**********************************
 9 Elements and Delimiters stored
**********************************
[ 0] LEN = 7
[ 1] LEN = 1
[ 2] LEN = 0
[ 3] LEN = 1
[ 4] LEN = 0
[ 5] LEN = 1
[ 6] LEN = 10
[ 7] LEN = 1
[ 8] LEN = 5

**********************************
 3 Elements and Delimiters stored
**********************************
[ 0] LEN = 7
[ 1] LEN = 8
[ 2] LEN = 5