define(&i, integer, 0)
define(&j, integer, 0)
define(&s, string, '')
define(&st, string, '')
&s := @(1,1,200)
&st := ''
for(&i,1,1,length(&s))
if(mid(&s, &i, 1) = '<')
&j := &i
&st := ''
repeat
&st := &st + mid(&s, &j, 1)
&j := &j + 1
until(mid(&s, &j, 1) = '>')
&st := &st + '>'
&i := &j + 1
endif()
if((&st = '') or (&st = '<n>'))
setstyleext(&Style1, 12, 0, [100], 100)
endif()
if(&st = '<b>')
setstyleext(&Style1.b, 12, 0, [100], 100)
endif()
if(&st = '<i>')
setstyleext(&Style1.i, 12, 0, [100], 100)
endif()
show(mid(&s, &i, 1))
endfor()
Previous Topic
Index