15 lines
565 B
Text
15 lines
565 B
Text
CHARACTER xml*1000, output*1000
|
|
READ(ClipBoard) xml
|
|
|
|
EDIT(Text=xml, Right='<item', Right=5, GetPosition=a, Right='</item>', Left, GetPosition=z)
|
|
WRITE(Text=output) xml( a : z), $CRLF
|
|
|
|
i = 1
|
|
1 EDIT(Text=xml, SetPosition=i, SePaRators='<>', Right='<price>', Word=1, Parse=price, GetPosition=i, ERror=99)
|
|
IF(i > 0) THEN
|
|
WRITE(Text=output, APPend) 'Price element = ', price, $CRLF
|
|
GOTO 1 ! HicEst does not have a "WHILE"
|
|
ENDIF
|
|
|
|
EDIT(Text=xml, SPR='<>', R='<name>', W=1, WordEnd=$CR, APpendTo=output, DO=999)
|
|
WRITE(ClipBoard) TRIM(output)
|