Visual Basic Umlaute gehen beim speichern verloren

07.08.2008, 01:25

Hier mein aktueller Code.

Mit dieser variante geht es. Nachteil ich habe keine CSS etc. mehr da nur ab <body></body> gelesen wird.

WebBrowser1.Document.Body.InnerHtml.ToString
Vorher hatte ich WebBrowser1.Document.ToString, dort sind aber diese Sonderzeichen Probleme. :dontknow:

Code:
Dim Filename As String
                Filename = Dateiname(TextBox1.Text)
                Filename = Replace(Filename, "%20", " ")
                ToolStripStatusLabel1.Text = "Zwischenspeicher: " + Filename
                Dim sAppPath As String
                sAppPath = Application.StartupPath
                Dim objStreamWriter As IO.StreamWriter
                Dim Cleantext As String
                Dim Enc As System.Text.Encoding = System.Text.Encoding.GetEncoding(1250)
                objStreamWriter = New IO.StreamWriter(sAppPath + "\" + Filename, True, Enc)
                Cleantext = Replace(WebBrowser1.Document.Body.InnerHtml.ToString, "%20", " ")
                objStreamWriter.Write(Cleantext)
                objStreamWriter.Close()
                ToolStripStatusLabel1.Text = Filename + " gespeichert."

EDIT: Ich habe es hinbekommen man nehme einfach WebBrowser1.Document.All(0).OuterHtml ...