又要麻烦思归了…… 编码问题

[newlearner99]

从XML文档里读出的中文字符都是乱码，怎么办？ 程序主要代码：
Public Function GetXML() As String
Dim fileInfo As New FileInfo(s_xmlfile)
Dim sr As StreamReader = fileInfo.OpenText() //以utf-8的方式
Dim temp As String = ""
Dim i As Integer
Dim str As String
Dim al As ArrayList = New ArrayList() ' make our temporary storage object
Do
str = sr.ReadLine()
If str <> Nothing Then
al.Add(str)
End If
Loop Until str = Nothing
sr.Close()
For i = 0 To al.Count - 1
temp += al(i)
Next
GetXML = temp
Return GetXML
End Function
然后调用这个函数，得到对应文件中的内容。
（注：XML文档已经以gb2312方式编码了）

查了一下帮助，知道fileinfo.opentext()是以utf-8方式编码的，那我怎么才能以gb2312方式得到streamReader,好象没有找到符合的函数，请帮忙。

[付长松_华为云MVP]

up

[qiuji]

修改web.config文件：（将utf-8改成gb2312）

<!-- 全球化
此节设置应用程序的全球化设置。
-->
<globalization
requestEncoding="gb2312"
responseEncoding="gb2312"
/>

[newlearner99]

函数是写在COM里面的，我调用的，改这个有用吗？
无论如何，去试试吧

[newlearner99]

改了，still does not work
:(

[newlearner99]

顶

[saucer]

try to change

Dim fileInfo As New FileInfo(s_xmlfile)
Dim sr As StreamReader = fileInfo.OpenText() //以utf-8的方式
====>
Dim sr As StreamReader = new StreamReader(s_xmlfile, System.Text.Encoding.GetEncoding("GB2312"))