38 lines
713 B
Plaintext
38 lines
713 B
Plaintext
fn = "C:\Ring\unixdict.txt"
|
|
|
|
fp = fopen(fn,"r")
|
|
str = fread(fp, getFileSize(fp))
|
|
str = substr(str, windowsnl(), nl)
|
|
clist = str2list(str)
|
|
fclose(fp)
|
|
dlist = []
|
|
|
|
for m = 1 to len(clist)
|
|
flag = 1
|
|
for n = 1 to len(clist[m])-1
|
|
if ascii(clist[m][n+1]) < ascii(clist[m][n])
|
|
flag=0 exit ok
|
|
next
|
|
if flag = 1
|
|
add(dlist, clist[m]) ok
|
|
next
|
|
|
|
nr = 0
|
|
for m = 1 to len(dlist)
|
|
if len(dlist[m]) > nr
|
|
nr = len(dlist[m]) ok
|
|
next
|
|
|
|
for n = 1 to len(dlist)
|
|
if len(dlist[n]) = nr
|
|
see dlist[n] + nl ok
|
|
next
|
|
|
|
func getFileSize fp
|
|
c_filestart = 0
|
|
c_fileend = 2
|
|
fseek(fp,0,c_fileend)
|
|
nfilesize = ftell(fp)
|
|
fseek(fp,0,c_filestart)
|
|
return nfilesize
|