神马品牌网船舶坞修工程:vfp高手帮我解读，在线等
来源：百度文库 编辑：神马品牌网 时间：2024/04/30 10:31:39
set deci to 8
creat tabl temp (word c(25),freq n(12))
creat tabl mword (word c(25),freq n(12))
creat tabl incr(toknum n(10),vocnum n(12),incr n(8),ttr n(10,8))
clos data
sz=0
st=filet('titan.txt')
for ii=33 to 64
st=strtran(st,chr(ii),' ')
endfor
st=strtran(st,chr(9),'')
st=strtra(st,' ',chr(13))
strtof(st,'temp.txt')
sele 1
use mword
appe from temp.txt sdf
dele all for len(alltrim(word))=0
pack
repl all freq with 1
samsnum=round(reccou()/2000,0) &&&
creat tabl temp (word c(25),freq n(12))
creat tabl mword (word c(25),freq n(12))
creat tabl incr(toknum n(10),vocnum n(12),incr n(8),ttr n(10,8))
clos data
sz=0
st=filet('titan.txt')
for ii=33 to 64
st=strtran(st,chr(ii),' ')
endfor
st=strtran(st,chr(9),'')
st=strtra(st,' ',chr(13))
strtof(st,'temp.txt')
sele 1
use mword
appe from temp.txt sdf
dele all for len(alltrim(word))=0
pack
repl all freq with 1
samsnum=round(reccou()/2000,0) &&&
我是满怀信心的进来了，可是我没有办法啊！
我只学过一点点VFP啊！