15 lines
649 B
Text
15 lines
649 B
Text
CHARACTER names="April~Tam O'Shanter~Emily~"
|
|
CHARACTER remarks*200/%Bubbly: I'm > Tam and <= Emily~Burns: "When chapman billies leave the street ..."~Short & shrift~%/
|
|
CHARACTER XML*1000
|
|
|
|
EDIT(Text=remarks, Right='&', RePLaceby='&', DO)
|
|
EDIT(Text=remarks, Right='>', RePLaceby='>', DO)
|
|
EDIT(Text=remarks, Right='<', RePLaceby='<', DO)
|
|
|
|
XML = "<CharacterRemarks>" // $CRLF
|
|
DO i = 1, 3
|
|
EDIT(Text=names, SePaRators='~', ITeM=i, Parse=name)
|
|
EDIT(Text=remarks, SePaRators='~', ITeM=i, Parse=remark)
|
|
XML = TRIM(XML) // '<Character name="' // name // '">' // remark // '</Character>' // $CRLF
|
|
ENDDO
|
|
XML = TRIM(XML) // "</CharacterRemarks>"
|