Keskustelu: Ohjelmointikysymykset: VB6: tekstitiedoston riviluku, ääkköset ei toimi?

Hei,

Luen teksti tiedostoa rivilukuna näin:

Dim fs As New FileStream(txtTiedostoOpen.Text, FileMode.Open, FileAccess.Read)
Dim sr As New StreamReader(fs)
Dim Rivi As String

Do
  Rivi = sr.ReadLine()

         .
         .
         .

Loop Until Rivi Is Nothing

Muuten kaikki toimii ja hakee kaikki, mutta ääkösten kohdalla tulee vain neliöt. Mitäköhän tuohon tarvisi lisätä tai muuttaa että myös ääkköset tulisi oikein.

Kiitos jo etukäteen

- erne31 -

Kokeile tuossa koodauksessa eri vaihtoehtoja:

Dim sr As New StreamReader(fs, System.Text.Encoding.UTF7)

Alkoi toimiin tuolla UTF7 :llä. UTF8 ei toiminut.

Kiitos vastauksista.

- erne31 -