lingo支持--雙位元的語系(其实我不能确定这个是什么)
简点的写了一下,主要还是看优化了
on searchtext num,stext
global searchlist
set searchlist=[]
set jcchar=0
temptext=member(num).text
set dd=stext.char.count
repeat while offset (stext,temptext)
tempchar=offset (stext,temptext)
jcchar=tempchar+jcchar
searchlist.append(jcchar)
delete temptext.char[1..tempchar+dd-1]
end repeat
end