01-17-2017, 08:36 AM
New, improved approach :
Function tempf14
Function tempf14
str sf="C:\Documents and Settings\S.E.Simopoulos\My QM\Aspell\dict\el.rws"
str sout s sl
out
s.getfile(sf)
int i l n is ie
l=s.len
for i 0 1500
,if s[i]<>0; continue
,ie=i
,if is=ie
,,is=ie+1
,,continue
,sl.get(s is ie)
,sl.ToUnicode
;,out F"{is} {ie} {sl}"
,is=ie+1
,sout.formata("%s[]" sl)
out sout
,