ë vervangen door e

[eisjuuh]

Hallo Allemaal!

Ik zit met een klein probleem.

Met Streamreader lees ik elke keer een regel in uit een .txt bestand.
nu kan het zijn dat er in deze regel een vreemd karakter voorkomt (ëéáä enz.)

Nu wou ik met "Replace" deze vervangen door de gewone letter.

Maar helaas lukt mij dit niet.

rivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim leesbestand As StreamReader = New StreamReader("D:/test.txt")
        Dim schrijfbestand As New StreamWriter("D:/testoutput.txt")
        Dim leesregel As String


        Do Until leesbestand.EndOfStream
            leesregel = leesbestand.ReadLine
            Replace(leesregel, "�", Chr(97))
            Replace(leesregel, Chr(225), Chr(97))
            Replace(leesregel, Chr(226), Chr(97))
            Replace(leesregel, Chr(228), Chr(97))
            Replace(leesregel, Chr(232), Chr(101))
            Replace(leesregel, Chr(233), Chr(101))
            Replace(leesregel, "é"c, "e"c)
            leesregel.Replace(Chr(234), "e")
            Replace(leesregel, Chr(235), Chr(101))
            Replace(leesregel, Chr(236), Chr(105))
            Replace(leesregel, Chr(237), Chr(105))
            Replace(leesregel, Chr(238), Chr(105))
            Replace(leesregel, Chr(239), Chr(105))
            Replace(leesregel, Chr(242), Chr(111))
            Replace(leesregel, Chr(243), Chr(111))
            Replace(leesregel, Chr(244), Chr(111))
            Replace(leesregel, Chr(246), Chr(111))
            Replace(leesregel, Chr(249), Chr(117))
            Replace(leesregel, Chr(250), Chr(117))
            Replace(leesregel, Chr(251), Chr(117))
            Replace(leesregel, Chr(252), Chr(117))
            schrijfbestand.WriteLine(leesregel)

        Loop
        leesbestand.Close()
        schrijfbestand.Flush()
        schrijfbestand.Close()

    End Sub

Dit is de code die ik gebruik. wat doe ik fout?

Met vriendelijke groet,

Eisjuuh

 

[dorado]

Ik heb geen ervaring met dit programma, maar die speciale tekens zijn Ansi codes. Kijk dus bij het opslaan venster of deze mogelijkheid weergegeven wordt.

 

[edmoor]

Je verteld er niet bij wat er fout gaat maar ik zie wel dit staan:
D:/testoutput.txt
en dat zal
D:\testoutput.txt
moeten zijn.

Uiteraard geldt voor D:/test.txt hetzelfde.