Control characters in QM Output

[ssimop]

This is my approach. Any advice is mostly welcome.

Function tempf14

Code:

Copy      Help

str sout="$temp$\qm_out.txt"
str s=GetQMOutput
;mes s
str sl so sou
int j k
foreach sl s
,j=find(sl "<")
,if j<0
,,so=sl
,,sou.formata("%s[]" so)
,,continue
,k=find(sl ">" j)
,if k<0
,,so=sl
,,sou.formata("%s[]" so)
,,continue
,so=sl
,so.replace("" j k-j+1)
,sou.formata("%s[]" so)
,
sou.setfile(sout)
run sout