16 lines
414 B
Plaintext
16 lines
414 B
Plaintext
FUNCTION PBMAIN () AS LONG
|
|
DIM parseMe AS STRING
|
|
parseMe = "Hello,How,Are,You,Today"
|
|
|
|
REDIM parsed(PARSECOUNT(parseMe) - 1) AS STRING
|
|
PARSE parseMe, parsed() 'comma is default delimiter
|
|
|
|
DIM L0 AS LONG, outP AS STRING
|
|
outP = parsed(0)
|
|
FOR L0 = 1 TO UBOUND(parsed) 'could reuse parsecount instead of ubound
|
|
outP = outP & "." & parsed(L0)
|
|
NEXT
|
|
|
|
MSGBOX outP
|
|
END FUNCTION
|