摘要:
有时候需要将文字变成Unicode 转义序列 Js版 vbs版 Function Unicode(str1) Dim str,temp str = "" For i=1 to len(str1) temp = Hex(AscW(Mid(str1,i,1))) If len(temp) < 5 Then temp = right("0000" & temp, 4) str = str... 阅读全文
posted @ 2005-03-07 22:41
中国Rainbow
阅读(1282)
评论(0)
推荐(0)