VB.NETでファイルを1行ずつ読み取る

Question

次のコードは、1行ずつファイルを読み取るために使用されます。

これはちょうど非常に早いバージョンなので、私がしたいのは、ストリングを直接ウィンドウに表示することです。 ÄÜÖèààなどの文字が疑問符の付いた黒い四角に置き換えられている点を除いて、正常に動作しています。ドキュメントによると、ファイルリーダーは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 

... 

このファイルは、UTF-8ではなくANSIでエンコードされていますが、リーダーはUTF-8を使用しています。このよう

Answer 1

この1を読者宣言を置き換え、今それは働きます！

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

Encoding.Defaultは、Windowsのコントロールパネルで設定されたANSIコードページを表します。

Answer 2

...私は漢字を読むためにそれを使用し...

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()