vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Zippen wie die Profis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Fortgeschrittene
Re: HTML-Dokument bearbeiten 
Autor: met
Datum: 12.02.07 15:45
Haut fast hin, nur wie kann ich in ner normalen Windowsanwendung HtmlEncode() verwenden?
System.Web.HttpUtility.HtmlEncode(String) As String gibt es nicht. 

Public Class Form1
    Dim Run As Boolean = False
    Dim sText As String
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim Z As Long = 0
        Text = "<HTML><BODY>"
        For Each Datei As String In IO.Directory.GetFiles( _
          "D:\Gerd\PC-Welt\ebooks\galileocomputing_visual_basic\visual_basic", _
          "Kapitel*.htm")
            Z += 1
            Debug.Print(Z)
            Run = True
            Me.WebBrowser1.Navigate(Datei)
            While Run = True
                Application.DoEvents()
            End While
        Next
        Text += sText
        Text += "</BODY></HTML>"
        Dim sw As IO.StreamWriter = New IO.StreamWriter( _
          "D:\Gerd\PC-Welt\ebooks\galileocomputing_visual_basic\visual_basic\k" & _
          "mplett.htm")
        sw.Write(sText)
        sw.Close()
    End Sub
 
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e _
      As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles _
      WebBrowser1.DocumentCompleted
        TagAnzeigen(Me.WebBrowser1.Document.All)
    End Sub
    Private Sub TagAnzeigen(ByVal Tags As HtmlElementCollection)
        For Each Tag As HtmlElement In Tags
            If Tag.GetAttribute("bgcolor") = "#eeeeee" Then
                Debug.Print(Me.WebBrowser1.Url.ToString)
' ************************
                sText += System.Web.HttpUtility.HtmlEncode(Tag.InnerHtml)
' ************************
                Run = False
                Exit Sub
            End If
            If Run = False Then Exit Sub
            TagAnzeigen(Tag.Children)
        Next
    End Sub
End Class
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
HTML-Dokument bearbeiten916met12.02.07 11:31
Re: HTML-Dokument bearbeiten639Melkor12.02.07 12:58
Re: HTML-Dokument bearbeiten606met12.02.07 13:27
Re: HTML-Dokument bearbeiten627Melkor12.02.07 14:18
Re: HTML-Dokument bearbeiten686met12.02.07 15:45
Re: HTML-Dokument bearbeiten614Melkor12.02.07 16:14

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel