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