您现在的位置是：网站首页> 编程资料编程资料

UTF-8编码第1/2页_应用技巧_

2023-05-25 319人已围观

简介 UTF-8编码第1/2页_应用技巧_

参考文档：http://www.linuxforum.net/books/UTF-8-Unicode.html

代码如下：
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

'http://www.linuxforum.net/books/UTF-8-Unicode.html 
Public Function UTF8EncodeChar(z) 
Dim c : c=AscW(z)'取UNICODE编码 
if c>0 And c<256 Then'Asc编码直接返回 
UTF8EncodeChar=z 
Exit Function 
End If 
If c<0 Then c=c + &H10000&'VBScript的Integer溢出，加上 
Dim k : k=CLng(c)'备份一个编码，后面判断要用 
Dim b() 
Dim i : i=0 
While c>&H0&'将编码按照6位一组，分组存到字节数组 b 中 
ReDim Preserve b(i) 
b(i)=CByte(c And &H3F&) 
c=c \ &H40& 
i=i+1 
Wend 
If UBound(b)>0 Then '如果分开的6位组不止一个，除最高一组外，全部加上二进制10000000 
For i=0 To UBound(b)-1 
b(i)=b(i) + &H80 
Next 
End If 
i=UBound(b)'根据字符的UNICODE编码范围，给最高组加上前缀 
If k<=CLng(&H7F&) Then 
b(i) = b(i) + 0 
ElseIf k<=CLng(&H7FF&) Then 
b(i) = b(i) + &HC0 
ElseIf k<=Clng(&HFFFF&) Then 
b(i) = b(i) + &HE0 
ElseIf k<=CLng(&H1FFFFF&) Then 
b(i) = b(i) + &HF0 
ElseIf k<=CLng(&H3FFFFFF&) Then 
b(i) = b(i) + &HF8 
Else 
b(i) = b(i) + &HFC 
End If 
UTF8EncodeChar="" 
For i=UBound(b) To 0 Step -1'将分组转换成URL编码 
UTF8EncodeChar=UTF8EncodeChar & "%" & Right("00" & Hex(b(i)),2) 
Next 
Erase b 
End Function 
Public Function UTF8EncodeString(s) 
Dim i,l,c : l=Len(s) 
For i=1 To l 
UTF8EncodeString=UTF8EncodeString & UTF8EncodeChar(Mid(s,i,1)) 
Next 
End Function 
MsgBox UTF8EncodeString("圪圪 eglic ") 

测试方法：
http://www.google.com/search?hl=zh-CN&newwindow=1&rls=GGLG%2CGGLG%3A2006-15%2CGGLG%3Azh-CN&q=你的编码

复制代码代码如下:

function revertUTF8(szInput) 
{ 
var x,wch,wch1,wch2,uch="",szRet=""; 
for (x=0; x{ 
if (szInput.charAt(x)=="%") 
{ 
wch =parseInt(szInput.charAt(++x) + szInput.charAt(++x),16); 
if (!wch) {break;} 
if (!(wch & 0x80)) 
{ 
wch = wch; 
} 
else if (!(wch & 0x20)) 
{ 
x++; 
wch1 = parseInt(szInput.charAt(++x) + szInput.charAt(++x),16); 
wch = (wch & 0x1F)<< 6; 
wch1 = wch1 & 0x3F; 
wch = wch + wch1; 
} 
else 
{ 
x++; 
wch1 = parseInt(szInput.charAt(++x) + szInput.charAt(++x),16); 
x++; 
wch2 = parseInt(szInput.charAt(++x) + szInput.charAt(++x),16); 
wch = (wch & 0x0F)<< 12; 
wch1 = (wch1 & 0x3F)<< 6; 
wch2 = (wch2 & 0x3F); 
wch = wch + wch1 + wch2; 
} 
szRet += String.fromCharCode(wch); 
} 
else 
{ 
szRet += szInput.charAt(x); 
} 
} 
return(szRet); 
} 



function u2utf8($c)  
{  
/*for($i=0;$i$str="";  
if ($c < 0x80) {  
$str.=$c;  
}  
else if ($c < 0x800) {  
$str.=chr(0xC0 | $c>>6);  
$str.=chr(0x80 | $c & 0x3F);  
}  
else if ($c < 0x10000) {  
$str.=chr(0xE0 | $c>>12);  
$str.=chr(0x80 | $c>>6 & 0x3F);  
$str.=chr(0x80 | $c & 0x3F);  
}  
else if ($c < 0x200000) {  
$str.=chr(0xF0 | $c>>18);  
$str.=chr(0x80 | $c>>12 & 0x3F);  
$str.=chr(0x80 | $c>>6 & 0x3F);  
$str.=chr(0x80 | $c & 0x3F);  
}  
return $str;  
}

12 下一页阅读全文

您可能感兴趣的文章:

上一篇：关于静态页生成问题突破form数量限制_应用技巧_

下一篇：utf-8编码转换成gb2312_应用技巧_

您现在的位置是：网站首页> 编程资料编程资料

UTF-8编码第1/2页_应用技巧_

相关内容

点击排行

本栏推荐

猜你喜欢