∮Ω奧米加空間∮»軟體推薦區»GB2312 轉 Unicode字符串 小工具
| 作者 |
主題 |
dc
管理員
性別:男
來自:瓦肯星
發表總數:10798
註冊時間:2002-05-07 16:32 |
(第 1 篇) GB2312 轉 Unicode字符串 小工具
資料來源：雨聲論壇
作者：vjlover2002
本人用VB寫的一個小程序,將GB2312碼轉成unicode數字字符串
(十進制和十六進制),然后將它貼到HTML頁面中,
本程序原則上支持多國文字如BIG5,日文,韓文等,只要你的系統能支持輸入.
如果你把多國文字轉換的結果貼入同一HTML 文件,你將會看到非常有趣的
頁面.
原碼如下:
| 代碼: | 最關鍵的一個函數就是AscW(), 其實真的很簡單.
Function unicode(str)
Dim i, j, c, i1, i2, u, fs, f, p
unicode = ""
p = ""
For i = 1 To Len(str)
c = Mid(str, i, 1)
j = AscW(c)
If j < 0 Then
j = j + 65536
End If
If j >= 0 And j <= 128 Then
If p = "c" Then
unicode = " " & unicode
p = "e"
End If
unicode = unicode & c
Else
If p = "e" Then
unicode = unicode & " "
p = "c"
End If
If Option1.Value = True Then
unicode = unicode & "&#" & j & ";"
End If
If Option2.Value = True Then
unicode = unicode & "�" & Hex(j) & ";"
End If
If Option3.Value = True Then
unicode = unicode & "\u0" & LCase(Hex(j))
End If
'unicode = unicode & "&#x" & Hex(j) & ";"
End If
Next
UnicodeText.Text = unicode
End Function
Function c2u(myText)
For i = 1 To Len(myText)
c = Mid(myText, i, 1)
c2u = c2u & "&#x" & Hex(AscW(c)) & ";"
UnicodeText.Text = c2u
Next
End Function
Function c2u1(myText)
For i = 1 To Len(myText)
c = Mid(myText, i, 1)
c2u1 = c2u1 & "&#" & AscW(c) & ";"
UnicodeText.Text = c2u1
Next
End Function
Private Sub Command1_Click()
unicode (GBText.Text)
End Sub |
本站下載
展示
Netscape users click here to view the content
本帖由dc最後編輯於2002-10-17 10:32
Your mind to my mind,
your thought to my thought |
| 發表時間:2002-10-17 10:06 |
|
|
所有時間均為GMT+8, 現在是2024-09-16 16:50 |
|
