求一个函数：UTF8转换为GB2312 （在线等待，马上给分）

2003-07-11 11:46:52 103 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

linux文件字符集转换(utf8-gb2312) inux和Windows下面的汉字编码不一样，Linux下面是UTF-8，Windows下面是GB2312，正是由于编码格式不相同从而导致乱码。 1、UTF8ToGB2312转换 int UTF8ToGB2312(char* szSrc, size_t iSrcLen, char* szDst, size_t iDstLen) { iconv_t cd = iconv_open("gb2312//IGNORE", "utf-8//IGNORE"); // take care o 阅读详情

急用~~~

...全文

基于FPGA的 SelectIO IP核的仿真验证-----（ LVDS差分高速传输） SelectIO IP核的仿真验证阅读详情

qiri07

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

xixigongzhu 2003-07-18

打赏
举报

用两种不同的编码进行编码和解码，除非这两种编码是兼容的，否则得到的结果肯定是乱码。
如果你要实现这种功能的话，必须先找到两种编码的特点和对应关系，然后根据这个进行映相(mapping)。

qiri07 2003-07-18

打赏
举报

谢谢楼上我先看看~~~

Montaque 2003-07-17

打赏
举报

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'写一个utf的文件。
Dim fs As New System.IO.FileStream("d:\a.txt", IO.FileMode.OpenOrCreate)
Dim sw As New System.IO.StreamWriter(fs, System.Text.Encoding.UTF8)
sw.Write("Hello,中国")
sw.Close()
fs.Close()

End Sub

'utf8编码的文件改为gb
Private Sub utf2Gb2312(ByVal FileName As String)
Dim fs As New System.IO.FileStream(FileName, IO.FileMode.Open)
Dim sr As New System.IO.StreamReader(fs, System.Text.Encoding.UTF8)
Dim sTemp As String = sr.ReadToEnd
sr.Close()
fs.Close()
System.IO.File.Delete(FileName)
Dim sw As New System.IO.StreamWriter(New System.IO.FileStream(FileName, IO.FileMode.OpenOrCreate), System.Text.Encoding.GetEncoding("gb2312"))
sw.Write(sTemp)
sw.Close()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
utf2Gb2312("d:\a.txt")
End Sub

qiri07 2003-07-13

打赏
举报

qiri07 2003-07-11

打赏
举报

System.Text.UTF8Encoding
可惜我不会用。。。。

孟子E章 2003-07-11

打赏
举报

Encoding 类

qiri07 2003-07-11

打赏
举报

.....等高手来。。。

qiri07 2003-07-11

打赏
举报

解决者，分全部给他

qiri07 2003-07-11

打赏
举报

。。。怎么用？

flers 2003-07-11

打赏
举报

mystring, System.Text.Encoding.GetEncoding("GB2312")

qiri07 2003-07-11

打赏
举报

qiri07 2003-07-11

打赏
举报

Dim msgs as string
Dim utf8 As New UTF8Encoding()
Dim unicodeString As String =msgs
Dim encodedBytes As Byte() = utf8.GetBytes(unicodeString)
Dim decodedString As String = utf8.GetString(encodedBytes)
msgs=decodedString

这样，，，好想也不起作用。。。

qiri07 2003-07-11

打赏
举报

UTF8转换为GB2312

拿棵草 2003-07-11

打赏
举报

对，System.Text.UTF8Encoding ，看一下MSDN，里面说的很详细的。

求一个函数：UTF8转换为GB2312 （在线等待，马上给分）

相关推荐