46 lines
1.1 KiB
Plaintext
46 lines
1.1 KiB
Plaintext
DIM parseMe AS STRING
|
|
parseMe = "Hello,How,Are,You,Today"
|
|
|
|
DIM tmpLng1 AS INTEGER, tmpLng2 AS INTEGER, parsedCount AS INTEGER
|
|
tmpLng2 = 1
|
|
parsedCount = -1
|
|
|
|
'count number of tokens
|
|
DO
|
|
tmpLng1 = INSTR(tmpLng2, parseMe, ",")
|
|
IF tmpLng1 THEN
|
|
parsedCount = parsedCount + 1
|
|
tmpLng2 = tmpLng1 + 1
|
|
ELSE
|
|
IF tmpLng2 < (LEN(parseMe) + 1) THEN parsedCount = parsedCount + 1
|
|
EXIT DO
|
|
END IF
|
|
LOOP
|
|
|
|
IF parsedCount > -1 THEN
|
|
REDIM parsed(parsedCount) AS STRING
|
|
tmpLng2 = 1
|
|
parsedCount = -1
|
|
|
|
'parse
|
|
DO
|
|
tmpLng1 = INSTR(tmpLng2, parseMe, ",")
|
|
IF tmpLng1 THEN
|
|
parsedCount = parsedCount + 1
|
|
parsed(parsedCount) = MID$(parseMe, tmpLng2, tmpLng1 - tmpLng2)
|
|
tmpLng2 = tmpLng1 + 1
|
|
ELSE
|
|
IF tmpLng2 < (LEN(parseMe) + 1) THEN
|
|
parsedCount = parsedCount + 1
|
|
parsed(parsedCount) = MID$(parseMe, tmpLng2)
|
|
END IF
|
|
EXIT DO
|
|
END IF
|
|
LOOP
|
|
|
|
PRINT parsed(0);
|
|
FOR L0 = 1 TO parsedCount
|
|
PRINT "."; parsed(L0);
|
|
NEXT
|
|
END IF
|