Ich möchte eine mit dem Editor erstellte Textdatei lesen, die Umlaute enthält. Das Lesemodul sieht so aus:
Public Sub RD_data(ByVal Datei AsString, ByRef Liste AsString, ByRef Satz_Nr AsInteger)
Dim fs AsNewFileStream(Datei, FileMode.Open)
Dim sr AsNewStreamReader(fs)
Satz_Nr = 0 ' Anzahl gelesene Sätze
Do Until sr.Peek() = -1
Liste &= sr.ReadLine()
Satz_Nr += 1
Loop
sr.Close()
EndSub
Damit bekomme ich "manchmal" die Umlaute richtig gelesen und "manchmal" nicht, da liest er den Replacement Character 65533. Wovon "manchmal" abhängt, habe ich noch nicht durchschaut. Es fehlt also Zusatz für das Encoding. Was bitte muss ich ergänzen?
Public Sub RD_data(ByVal Datei AsString, ByRef Liste AsString, ByRef Satz_Nr AsInteger)
Dim fs AsNewFileStream(Datei, FileMode.Open)
Dim sr AsNewStreamReader(fs)
Satz_Nr = 0 ' Anzahl gelesene Sätze
Do Until sr.Peek() = -1
Liste &= sr.ReadLine()
Satz_Nr += 1
Loop
sr.Close()
EndSub
Damit bekomme ich "manchmal" die Umlaute richtig gelesen und "manchmal" nicht, da liest er den Replacement Character 65533. Wovon "manchmal" abhängt, habe ich noch nicht durchschaut. Es fehlt also Zusatz für das Encoding. Was bitte muss ich ergänzen?