Visual Basic Umlaute gehen beim speichern verloren

      Visual Basic Umlaute gehen beim speichern verloren

      Hallo ich habe ein Programm geschrieben was mir eine HTML Datei die in "windows-1252" Datei Kodierung: ISO 8859-2 mir vorlieg. Wenn ich die Datei abspeichern möchte in diesen Format bekomme ich nur ? bei Umlauten und Sonderzeichen, könnt Ihr mir weiterhelfen???

      Quellcode

      1. Pfad = (Environment.GetFolderPath(Environment.SpecialFolder.Desktop))
      2. Dim objStreamWriter As IO.StreamWriter
      3. Dim Enc As System.Text.Encoding = System.Text.Encoding.GetEncoding("ISO-8859-2")
      4. objStreamWriter = New IO.StreamWriter(Pfad + "\" + Filename, True, Enc)
      5. ....
      6. ....
      7. objStreamWriter.Write(Cleantext)
      8. objStreamWriter.Close()
      Mir ist kalt! Wo ist die Klimaerwärmung, wenn man sie braucht???
      Guck ich mir mal an ich sehe aber gerade das der Quelltext schon falsch im Textarea steht. Ich muss mal gucken was man da machen kann. Im Browser selber wird er richtig angezeigt klick ich Rechts wird der Quellcode auch richtig angezeigt. Lade ich den Quelltext vom Browser in eine Var oder TextArea sehe ich erst die Fehlinformationen. Denke da muss man ansetzen die Speicherung ist jedenfalls Korrekt :)
      Mir ist kalt! Wo ist die Klimaerwärmung, wenn man sie braucht???
      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:

      Quellcode

      1. Dim Filename As String
      2. Filename = Dateiname(TextBox1.Text)
      3. Filename = Replace(Filename, "%20", " ")
      4. ToolStripStatusLabel1.Text = "Zwischenspeicher: " + Filename
      5. Dim sAppPath As String
      6. sAppPath = Application.StartupPath
      7. Dim objStreamWriter As IO.StreamWriter
      8. Dim Cleantext As String
      9. Dim Enc As System.Text.Encoding = System.Text.Encoding.GetEncoding(1250)
      10. objStreamWriter = New IO.StreamWriter(sAppPath + "\" + Filename, True, Enc)
      11. Cleantext = Replace(WebBrowser1.Document.Body.InnerHtml.ToString, "%20", " ")
      12. objStreamWriter.Write(Cleantext)
      13. objStreamWriter.Close()
      14. ToolStripStatusLabel1.Text = Filename + " gespeichert."


      EDIT: Ich habe es hinbekommen man nehme einfach WebBrowser1.Document.All(0).OuterHtml ...
      Mir ist kalt! Wo ist die Klimaerwärmung, wenn man sie braucht???