強力鎯頭 VB BLOG

關於 HTML Unicode 轉換

關於 HTML Unicode 轉換

在網頁原碼中常會見到 &#XXXXX 格式的字元 , 稱為 Unicode HTML 碼
由於編碼之故 , 非 Big5 字元集中的文字 , 如 GB2312 碼或日文字元等,
無法正常的顯示,而這些對應不到的文字,就需編碼轉換成 Unicode HTML,
就如同在文字檔中使用簡體字或日文字,需存成UTF-8或Unicode等編碼格式,
對於這種 Unicode HTML 格式的字 , IE 等瀏覽器會自行解析成對應的字元
但若由程式抓取網頁內容存檔,亦或存入資料庫,則需轉換還原成正確的文字

<< VB.Net >> 

Imports System.Text Public Class Form1 Private Sub Button1_Click(ByVal s As Object, ByVal e As EventArgs) Handles Button1.Click Dim htm As String = "" ' HTML Code htm = "&#34013;&#33394;&#37096;&#33853;&#20013;&#30340;" & _ "&#24378;&#21147;&#37807;&#22836;&#30340;" & _ "&#86;&#66;&#37096;&#33853;" MessageBox.Show(HTML2Unicode(htm)) htm = "&#12354;&#12356;&#12375;&#12390;&#12427;" MessageBox.Show(HTML2Unicode(htm)) htm = "&#x3069;&#x3046;&#x305e;&#x0020;&#x3088;&#x308d;&#x3057;&#x304f;" MessageBox.Show(HTML2Unicode(htm)) ' Unicode Text Dim unc As String = "" unc = "蓝色部落中的强力鎯头的VB部落" MessageBox.Show(Unicode2HTML(unc)) unc = "あいしてる" MessageBox.Show(Unicode2HTML(unc)) End Sub Private Function HTML2Unicode(ByVal htm As String) As String Dim sb As New StringBuilder htm = htm.Replace(" ", "").Replace("&#", "") For Each s As String In htm.Split(";") If s.Length > 0 Then If s.StartsWith("x") Then sb.Append(ChrW(Int("&H" & s.Substring(1)))) Else sb.Append(ChrW(Int(s))) End If End If Next Return sb.ToString End Function Private Function Unicode2HTML(ByVal unc As String) As String Dim sb As New StringBuilder For Each c As Char In unc.ToCharArray() sb.Append("&#" & AscW(c) & ";") Next Return sb.ToString End Function End Class

<< C# .Net >> 

private void button1_Click(object sender, EventArgs e) { String htm = "&#24378;&#21147;&#37807;&#22836;"; MessageBox.Show(HTML2Unicode(htm)); htm="&#x3069;&#x3046;&#x305e;&#x0020;&#x3088;&#x308d;&#x3057;&#x304f"; MessageBox.Show(HTML2Unicode(htm)); string unc = ""; unc = "蓝色部落中的强力鎯头的VB部落"; MessageBox.Show(Unicode2HTML(unc)); unc = "あいしてる"; MessageBox.Show(Unicode2HTML(unc)); } private string HTML2Unicode(string htm) { StringBuilder sb = new StringBuilder(); htm = htm.Replace(" ", "").Replace("&#", ""); foreach (string s in htm.Split(";".ToCharArray())) { if ((s.Length > 0)) { if (s.StartsWith("x")) { sb.Append(((char)Convert.ToInt32(s.Substring(1), 16)).ToString()); } else { sb.Append(Convert.ToChar(Convert.ToInt32(s))); } } } return sb.ToString(); } private string Unicode2HTML(string unc) { StringBuilder sb = new StringBuilder(); foreach (char c in unc.ToCharArray()) { sb.Append(("&#" + (Int32)c + ";")); } return sb.ToString(); }

編碼器參考:

http://timc.idv.tw/classic/timc.idv.tw/scripts/unicode.htm 

http://www.csie.ntu.edu.tw/~piaip/unihtml/ 

http://www.unicodetools.com/unicode/convert-to-html.php 

posted on 2008/11/7 11:27 | 1 人推薦 我要推薦 | 閱讀數 : 593 | 文章分類 [ VB.Net / C#.Net / ] | 訂閱