[求助] Unicode反转码问题

[sunzhemei]

谢谢各位，帮一下忙！
想要各个国家的语言都可以输入进来，不只中，英..而且，不能产生乱码！这是最主要的。
所以：我们先把输入的各国的语言写入进来，在将它保存时要把它转换成Unicode码，再写入文本。可是，要是进行要查看的话，把它读取出来，怎么再把这个Unicode码转变成各国语言呢（前提即最重要的，输入的文字不能乱码，信息可不能丢失啊）我的问题就是怎么将这个已经转换好的Unicode码再　转换回来，
大家能帮一下，想想看吗
谢谢各位！＾＿＾
还没看明白的话，举个实例：这一段韩文“장나라 공식 홈페이지 "나라짱닷컴"”可以把它转换成相应的Unicode码，完了，把这些Unicode码写入文件，（若不转换就写入文本会乱码的）。当要读取时，再把这Unicode码，转换回来，再转换成这一韩文。就这最后一步：“把Unicode码转换成韩文”
这一问题，可以帮一下吗？
再次谢谢各位啦
祝大家天天开心！！

[sunzhemei]

抢第一贴：
我写入的韩文　也是用Unicode码表示的吔
大家多多努力啊　争取把这个给破喽　
＾＿＾

[Svny]

我也有这样的问题

[junwhj]

这个问题我以前遇到过，解决办法是使用Arial Unicode MS字体显示Unicode字符：

Text1.Font = New Font("Arial Unicode MS", 9)
Text1.Text = ChrW(51109) & ChrW(45208)

如果你的系统中没有这种字体，可以在Google中搜索"Arial Unicode MS"或"arialuni.zip"，字体文件有20多MB。

[xuxun]

up

[蒋晟]

http://msdn.microsoft.com/library/chs/default.asp?url=/library/CHS/vcsample/html/vcsamshowlocalizedsample.asp

[landlordh]

其实没有必要这么麻烦的

在你的数据中使用unicode编码就可以了

存取数据，然后读取数据

都会正确的显示出来

至于字体，如果你安装了哪种输入法，自然对应会有那种语言的字体
否则你输入的时候也不会显示在文本框中。
如果实在是没有，就安装一个

[hhhh63]

同意楼上的观点，Win98以后的系统中，都把unicode码作为默认编码，如果原字符数据为其它编码，把它转换为unicode码即可，保存和显示都没有问题，不用再转换回去，当然，如果是ＷＩＮ９８以前的系统或单片机等，还是要转换回去的．

[liulxmooo]

up

[xuxun]

起晚了，帮你顶一下^_^

[sunzhemei]

兴许大家是有点误解了
我的不是只在一台电脑上可以搞定的，我的要求面向各国（就当吧），是各国的人都可以清楚的显示这种多国语言的。
所以....
我是用这个方法来把各国语言成Unicode码的：
<%
function cunicode(str)

dim i,j,c

unicode=""

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

unicode=unicode&c
else
cunicode=cunicode&"&#"&j&";"
end if
next

end function

%>
然后相对应的要转换的语言只要调用一下该方法就可以啦！
显示自然是Unicode码，可是，我想要把它反转换出来，怎么办呢？？
能帮忙吗？
谢谢各位！不吝赐教......
^_^

[programeyonger]

帮顶。

[imssmyd]

我也有这个问题，该怎么解决呢，期待

[junwhj]

楼主的意思是要一个解码函数吧：

Private Function Decode(ByVal strSource As String) As String
Dim strResult ,strTemp As String
Dim intStart, intEnd, intSize, intNewNumber As Integer

strResult = strSource
intStart = InStr(strResult, Chr(59))

Do While intStart <> 0
intStart = InStr(strResult, Chr(38))
intEnd = InStr(strResult, Chr(59))

If (intEnd - intStart) > 2 Then
intSize = intEnd - intStart
strTemp = Mid$(strResult, intStart + 2, intSize - 2)
intNewNumber = CInt(strTemp)
strResult = Replace(strResult, strTemp, "", 1, 1)
strResult = Replace(strResult, "&#", ChrW(intNewNumber), 1, 1)
strResult = Replace(strResult, ";", "", 1, 1)
End If
Loop

Return strResult
End Function

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Font = New Font("Arial Unicode MS", 9)
TextBox1.Text = Decode("장나라 공식 홈페이지나라짱닷컴")
End Sub

[xuxun]

up

[sunzhemei]

to: junwhj(http://www.grid2000.com/cn)
还是你厉害啊。已经OK了。
谢谢！＾＿＾
不过，指出一个错误（也许是我的机器的缘故）
有textbox中显示就会乱码的，它不支持多语言！各位，注意一下哦！！
可以换个控件来显示的：richtextbox　可以的！
好！
现在开始结贴！！
谢谢各位^_^

[sky9705]

我回个帖，这个Decode解码函数有问题。
如果原先字串中含有如&#;特别是含有;(分号)，这个解码函数就会出错
所以，大家把这个解码函数拿回去后要自己改一下

[sky9705]

而且字符串出现如这样的字串时会出现错误。。。。

[sky9705]

我改了，给大家一个正确的反码程序。

Public Function Decode(ByVal strSource As String) As String
Dim strResult, strTemp As String, i As Integer, szPart As String, szWord As String
Dim intStart, intEnd, intSize, intNewNumber As Long
Dim nLen As Long

strResult = strSource
nLen = Len(strResult)
For i = 1 To nLen
intStart = InStr(i, strResult, "&#") 'chr(38)=&
If intStart < 1 Then Exit For '不存在"&#"，完成，退出循环

intEnd = InStr(intStart, strResult, ";") '在原先"&#"的基础上开始查找;
If intEnd < 1 Then Exit For

If intEnd < intStart Then '跳过含有；号的字符串
intStart = intEnd
Else
szPart = Mid(strResult, intStart + 2, intEnd - intStart - 2) '取得字串
If IsNumeric(szPart) Then
szWord = ChrW(CLng(szPart))
strResult = Replace(strResult, "&#" & szPart & ";", szWord) '替换，要比字串连接快得多，系统资源也占用小
nLen = Len(strResult)
intStart = intEnd
Else
intStart = intStart + 2
End If
End If
Next
Decode = strResult
End Function