主题：[求助]关于字符串转GB2132编码的方法！

编码转换？

Dim file As String = "文件.txt"
Dim bytes() As Byte
Dim utf As Encoding = Encoding.GetEncoding("utf-8")  
Dim def As Encoding = Encoding.Default
Bytes = def.GetBytes(file)
Bytes = Encoding.Convert(def, utf, Bytes)  
file = def.GetString(Bytes)  
Output.Show(file)

----------------------

Dim file As String = "鏂囦欢.txt"
Dim bytes() As Byte
Dim utf As Encoding = Encoding.GetEncoding("utf-8")  
Dim def As Encoding = Encoding.Default
Bytes = utf.GetBytes(file)
Bytes = Encoding.Convert(utf, def, Bytes)
file = utf.GetString(Bytes)  
Output.Show(file)

http://msdn.microsoft.com/zh-cn/library/system.text.encoding%28v=vs.80%29.aspx

 呃...

Dim file As String = "文是3订单"
Dim bytes() As Byte
Dim def As Encoding = Encoding.Default
Bytes = def.GetBytes(file)
For Each b As Byte In Bytes
    output.show(b)
Next

 早说

Dim file As String = "我们C我"
Dim bytes() As Byte
Dim def As Encoding = Encoding.Default
Bytes = def.GetBytes(file)
For Each b As Byte In Bytes
    If b > 127 Then
        For Each s As String In hex(b)
            output.show(Asc(s))
        Next
    Else
        output.show(b)
    End If
Next