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:
EDIT: Ich habe es hinbekommen man nehme einfach WebBrowser1.Document.All(0).OuterHtml ...
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 ...