function g(num)
if num>0 and num<160 then
g=chr(num)
else
if num<-20319 or num>-10247 then
g=""
else
a=d.Items
b=d.keys
for i=d.count-1 to 0 step -1
if a(i)<=num then exit for
next
g=b(i)
end if
end if
end function
function c(str)
c=""
for i=1 to len(str)
c=c&g(asc(mid(str,i,1)))
next
end function
set fso=CreateObject("Scripting.FileSystemObject")
set file=fso.opentextfile("c:\a.txt",1)
fileall=file.readall
file.close
set fso=nothing
ii=len(fileall)
Dim word()
ReDim Preserve word(ii)
for it=1 to ii
word(it)=mid(fileall,it,1)
if asc(word(it))>=32 and asc(word(it))<=47 then
word(it)=""
else word(it)=c(word(it))
end if
next
for it=1 to ii:baojing(word(it)):next
