28,408
社区成员
发帖
与我相关
我的任务
分享
'函数
function strToAsc(strValue)
dim strTemp,c,m
dim i
strTemp=""
for i=1 to len(strValue & "")
c = asc(mid(strValue,i,1))
if c>=0 and c<256 then m="\x" else m="\u"
strTemp=strTemp &m& hex(c)
next
strToAsc=strTemp
end function