非常急!!!!! 一个简单的问题

[shena]

请问有什么办法在VB中将ascii的格式专成UTF8格式的?

谢谢!

[luzufu]

好象不难啊，你可以引用xml4.0的阿！

[rainstormmaster]

可以根据utf-8编码规则自己写函数，关于编码规则可参考：
http://www.linuxforum.net/books/UTF-8-Unicode.html

[高高兴兴的晶晶]

我也 up

[kimurakenshin]

帮你UP UP UP......

[xshhui]

up

[shena]

大家看看,这段代码能不能反过来用啊?


Dim ANSIString() As Byte, MyEncoder As New System.Text.ASCIIEncoding()
Dim fFile As IO.File, fStream As IO.FileStream

' Set the source string and filename
Dim sSourceString As String = "Hello, World! This is a test!"
Dim sFilename As String = "C:\test.txt"

' Store the ANSI encoded string in ANSIString
ANSIString = MyEncoder.Convert(System.Text.Encoding.UTF8, System.Text.Encoding.ASCII, MyEncoder.GetBytes(sSourceString))

Try

' Delete the file if it already exists
If fFile.Exists(sFilename) Then
fFile.SetAttributes(sFilename, IO.FileAttributes.Normal)
fFile.Delete(sFilename)
End If

' Output the bytes
fStream = fFile.OpenWrite(sFilename)
fStream.Write(ANSIString, 0, ANSIString.Length)
fStream.Close()

Catch myException As Exception
' Show a message box if an error occurs
MessageBox.Show(myException.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try

[cfan246]

编码好像 不是 很简单阿

[海牛]

Up

[踏平扶桑]

up
没听过utf8：）

[fengyetianshi]

UP