vb.net - 用VB.NET逐行读取文件

Question

以下代码用于逐行读取文件。

这只是一个非常早期的版本，所以我要做的就是在即时窗口中显示字符串。它工作正常，除了 Ä Ü Ö è à 等字符被替换为带问号的黑色方块。根据文档，文件阅读器应该与 UTF-8 字符兼容，所以我不知道出了什么问题。

...

    Dim reader = File.OpenText(filetoimport.Text)

    Dim line As String = Nothing

    Dim lines As Integer = 0

    While (reader.Peek() <> -1)
        line = reader.ReadLine()
        If line.StartsWith("<item key=""") Then
            Dim Firstpart As String = Nothing

            Firstpart = line.Substring(11, line.IndexOf(""" value=") - 11)

            Debug.WriteLine(Firstpart)

            lines = lines + 1

            Label3.Text = lines
            Application.DoEvents()
        Else
            Label3.Text = lines
            Application.DoEvents()
        End If

    End While

...

该文件是 ANSI 编码的，而不是 UTF-8，但读者使用 UTF-8。

Answer 1

像这样……我用它看汉字……

Dim reader as StreamReader = My.Computer.FileSystem.OpenTextFileReader(filetoimport.Text)
Dim a as String

Do
   a = reader.ReadLine
   '
   ' Code here
   '
Loop Until a Is Nothing

reader.Close()

Answer 2

用这个替换了读者声明，现在它可以工作了！

Dim reader As New StreamReader(filetoimport.Text, Encoding.Default)

Encoding.Default 表示在 Windows 控制面板下设置的 ANSI 代码页。