14 lines
357 B
Plaintext
14 lines
357 B
Plaintext
CHARACTER string="Hello,How,Are,You,Today", list
|
|
|
|
nWords = INDEX(string, ',', 256) + 1
|
|
maxWordLength = LEN(string) - 2*nWords
|
|
ALLOCATE(list, nWords*maxWordLength)
|
|
|
|
DO i = 1, nWords
|
|
EDIT(Text=string, SePaRators=',', item=i, WordEnd, CoPyto=CHAR(i, maxWordLength, list))
|
|
ENDDO
|
|
|
|
DO i = 1, nWords
|
|
WRITE(APPend) TRIM(CHAR(i, maxWordLength, list)), '.'
|
|
ENDDO
|