核心提示：'ascii转换NativeFunction NativeConvertAscii(str)dim i,s,c,as=''For i=1 to Len(str)c=Mid(str,i,1)a=ASCW...
'ascii转换Native
Function NativeConvertAscii(str)
dim i,s,c,a
s=""
For i=1 to Len(str)
c=Mid(str,i,1)
a=ASCW(c)
If a>127 or a <0 Then
s = s & "\u" & right("00"& Hex(a),4)
Else
s=s & c
End If
Next
NativeConvertAscii= s
End Function
