vbs的function codeChange(str) finalstr = "" for i = 1 to lenb(str) icharcode = ascb(midb(str,i,1)) if icharcode < &H80 then finalstr = finalstr & chr(icharcode) else inextcode = ascb(midb(str,i+1,1)) finalstr = finalstr & chr(clng(icharcode) * &H100 + cint(inextcode)) i = i + 1 end if next codeChange = finalstr end function
finalstr = ""
for i = 1 to lenb(str)
icharcode = ascb(midb(str,i,1))
if icharcode < &H80 then
finalstr = finalstr & chr(icharcode)
else
inextcode = ascb(midb(str,i+1,1))
finalstr = finalstr & chr(clng(icharcode) * &H100 + cint(inextcode))
i = i + 1
end if
next
codeChange = finalstr
end function