源码论坛,商业源码下载,尽在锦尚中国商业源码论坛

标题: 转换中文为unicode 转换unicode到正常文本 [打印本页]

---

作者: 欧阳锋    时间: 2019-2-13 01:05
标题: 转换中文为unicode 转换unicode到正常文本

1. '//转换中文为unicode
   
2. function URLEncoding(vstrIn)
   
3. 
   
4.     dim i
   
5.     dim strReturn,ThisChr,innerCode,Hight8,Low8
   
6. 
   
7.     strReturn = ""
   
8.     for i = 1 to Len(vstrIn)
   
9.         ThisChr = Mid(vStrIn,i,1)
   
10.         If Abs(Asc(ThisChr)) < &HFF then
    
11.             strReturn = strReturn & ThisChr
    
12.         else
    
13.             innerCode = Asc(ThisChr)
    
14.             If innerCode < 0 then
    
15.                 innerCode = innerCode + &H10000
    
16.             end If
    
17.             Hight8 = (innerCode  and &HFF00)\ &HFF
    
18.             Low8 = innerCode and &HFF
    
19.             strReturn = strReturn & "%" & Hex(Hight8) &  "%" & Hex(Low8)
    
20.         end If
    
21.     next
    
22. 
    
23.     URLEncoding = strReturn
    
24. 
    
25. end function
    
26. 
    
27. '//转换unicode到正常文本
    
28. function bytes2BSTR(vIn)
    
29.     dim i
    
30.     dim strReturn,ThisCharCode,nextCharCode
    
31. 
    
32.     strReturn = ""
    
33.     for i = 1 to LenB(vIn)
    
34.         ThisCharCode = AscB(MidB(vIn,i,1))
    
35.         If ThisCharCode < &H80 then
    
36.             strReturn = strReturn & Chr(ThisCharCode)
    
37.         else
    
38.             nextCharCode = AscB(MidB(vIn,i+1,1))
    
39.             strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(nextCharCode))
    
40.             i = i + 1
    
41.         end If
    
42.     next
    
43.     bytes2BSTR = strReturn
    
44. 
    
45. end function
    
46. 
    
47. function getText(oReq,url)
    
48. 
    
49.     on error resume next
    
50.     '//创建XMLHTTP对象     
    
51.     if oReq is nothing then
    
52.         set oReq    = CreateObject("MSXML2.XMLHTTP")
    
53.     end if
    
54. 
    
55.     if    not oReq is nothing then
    
56.         oReq.open "get",url,false
    
57.         oReq.send  
    
58. 
    
59.         if oReq.status = 200 then
    
60.             getText = bytes2BSTR(oReq.responseBody)
    
61.         else
    
62.             getText = ""
    
63.         end if
    
64.     else
    
65.         getText = ""
    
66.     end if
    
67. 
    
68. end function

复制代码

---

欢迎光临 源码论坛,商业源码下载,尽在锦尚中国商业源码论坛 (https://bbs.52jscn.com/)

Powered by Discuz! X3.3