HTML auslesen

  • VB.NET
  • .NET (FX) 4.0

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Drahuverar.

    HTML auslesen

    Hallo Leute,

    ich habe eine Frage:

    Wie kann ich am besten informationen aus einer Seite ziehen?
    Nachdem ich mich eingeloggt habe und zu der Seite navigiere (WebBrowser) möchte ich eine Tabelle auslesen-
    wie geht man hier am besten vor?

    Vielen Dank für Vorschläge.
    Drahuverar
    Option Strict On!

    Hallo!

    Mit welchem Programm soll das denn geschehen? VB, VBA, .Net, C++? Mit "WebBrowser" meinst Du das WebBrowser-Steuerelement (ieframe.dll)?

    Da ich gerade selber daran arbeite, hier ein Auszug aus meinem VBA-Projekt.

    In einer Userform:

    Visual Basic-Quellcode

    1. Private Sub CommandButton7_Click()
    2. On Error Resume Next
    4. Dim objIEDoc As Object
    5. Dim objLinks As Object
    6. Dim objLink As Object
    8. Dim strURL As String
    9. Dim strDatum As String
    10. Dim strEDate As String
    11. Dim strZipName As String
    12. Dim strZipPath As String
    13. Dim strFileName As String
    14. Dim strErrFile As String
    15. Dim strArg As String
    16. Dim strZip As String
    17. Dim strPathZ As String
    18. Dim gzFile As String
    19. Dim wbName As String
    21. Dim errorLogFile As Variant
    22. Dim errorFile As Variant
    24. Dim oldSheets As Long
    26. strDatum = ComboBox1.Value
    27. strEDate = ComboBox1.Value
    29. Set objIEDoc = WebBrowser1.Document
    31. Set objLinks = objIEDoc.getElementsByTagName("a")
    33. For Each objLink In objLinks
    34. If objLink.innerText = strDatum Then
    35. strURL = objLink.href
    36. errorLogFile = Split(strURL, "file=")
    38. If OptionButton1.Value = True Then
    39. strZipPath = tbxFilePathLF
    40. strZipName = "access_logfile_" & strEDate & ".txt.gz"
    41. wbName = "access_log_" & strEDate
    42. ElseIf OptionButton2.Value = True Then
    43. strZipPath = tbxFilePathLF
    44. strZipName = "error_logfile_" & strEDate & ".txt.gz"
    45. errorLogFile = Split(strURL, "file=")
    46. errorFile = Split(errorLogFile(1), ".")
    47. wbName = "error_log_" & strEDate
    48. End If
    50. CopyURLToFile strURL, strZipPath & strZipName
    51. DeleteUrlCacheEntry (strURL)
    53. Exit For
    54. End If
    55. Next objLink
    57. On Error GoTo Fin
    59. strZip = ThisWorkbook.Path & "\7za.exe"
    60. strPathZ = tbxFilePathLF
    61. gzFile = strZipPath & strZipName
    62. strFileName = gzFile
    63. strArg = strZip & " e -pHIDE " & strFileName & " -y -o" & strZipPath
    65. ShellAndWait strArg
    67. Fin:
    69. If Err.Number <> 0 Then
    70. MsgBox "Fehler: " & Err.Number & " " & Err.Description
    71. Exit Sub
    72. End If
    75. If OptionButton1.Value = True Then
    76. strErrFile = Replace(gzFile, ".gz", "")
    77. If deleteGZ.Value = True Then Kill gzFile
    78. If deleteLOG.Value = True Then Kill strErrFile
    79. ElseIf OptionButton2.Value = True Then
    80. strErrFile = strPathZ & errorFile(0) & ".txt"
    81. Name strPathZ & errorFile(0) As strErrFile
    82. If deleteGZ.Value = True Then Kill gzFile
    83. If deleteLOG.Value = True Then Kill strErrFile
    84. End If
    86. oldSheets = Application.SheetsInNewWorkbook
    87. Workbooks.Add (xlWBATWorksheet)
    88. Application.SheetsInNewWorkbook = oldSheets
    90. Me.Hide
    91. Application.DisplayAlerts = False
    92. With ActiveWorkbook
    93. .Sheets(1).Name = strEDate
    94. .SaveAs FileName:=tbxFilePathWB & wbName & ".xlsb", FileFormat:=xlExcel12
    95. End With
    96. Application.DisplayAlerts = True
    97. frmStartLogs.Show
    98. End Sub


    In einem allgemeinen Modul:

    Visual Basic-Quellcode

    1. Option Private Module
    2. Option Explicit
    4. Const INTERNET_OPEN_TYPE_PRECONFIG = 0
    5. Const INTERNET_FLAG_EXISTING_CONNECT = &H20000000
    7. Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _
    8. (ByVal lpszAgent As String, ByVal dwAccessType As Long, ByVal lpszProxyName As String, _
    9. ByVal lpszProxyBypass As String, ByVal dwFlags As Long) As Long
    11. Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" _
    12. (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, _
    13. ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
    15. Private Declare Function InternetCloseHandle Lib "wininet.dll" _
    16. (ByVal hInet As Long) As Integer
    18. Private Declare Function InternetReadFile Lib "wininet.dll" _
    19. (ByVal hFile As Long, ByVal lpBuffer As String, ByVal dwNumberOfBytesToRead As Long, _
    20. lNumberOfBytesRead As Long) As Integer
    22. Sub CopyURLToFile(ByVal URL As String, ByVal FileName As String)
    23. Dim hInternetSession As Long
    24. Dim hUrl As Long
    25. Dim DatNum As Integer
    26. Dim ByteAnz As Long
    27. Dim Buffer As String * 4096
    28. Dim DatInhalt As String
    29. On Error GoTo Fehler
    31. If Len(URL) = 0 Or Len(FileName) = 0 Then
    32. MsgBox "Fehlende URL"
    33. Exit Sub
    34. End If
    35. ' open an Internet session, and retrieve its handle
    36. hInternetSession = InternetOpen("dummy", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
    37. If hInternetSession = 0 Then
    38. MsgBox "Fehler bei InternetOpen"
    39. Exit Sub
    40. End If
    41. ' open the file and retrieve its handle
    42. hUrl = InternetOpenUrl(hInternetSession, URL, vbNullString, 0, INTERNET_FLAG_EXISTING_CONNECT, 0)
    43. If hUrl = 0 Then
    44. If hInternetSession Then InternetCloseHandle hInternetSession
    45. MsgBox "Fehler bei InternetOpenUrl"
    46. Exit Sub
    47. End If
    48. ' evtl vorhandene Datei löschen
    49. On Error Resume Next
    50. Kill FileName
    51. On Error GoTo Fehler
    52. ' Daten sammeln
    53. Do
    54. InternetReadFile hUrl, Buffer, Len(Buffer), ByteAnz
    55. If ByteAnz = 0 Then Exit Do
    56. DatInhalt = DatInhalt & Left(Buffer, ByteAnz)
    57. Loop
    58. ' Datei schreiben
    59. DatNum = FreeFile
    60. Open FileName For Output As #DatNum
    61. Print #DatNum, DatInhalt;
    62. Close #DatNum
    63. Fehler:
    64. If hUrl Then InternetCloseHandle hUrl
    65. If hInternetSession Then InternetCloseHandle hInternetSession
    66. If Err Then MsgBox "Fehler " & Err.Number & ":" & Err.Description
    67. End Sub


    Gruß, René

    Hi,

    also im Allgemeinen wollte ich ein vorhandenes Projekt erweitern.
    VB.NET- genau. Auf dieses Steuerelement wollte ich mich beziehen.

    Habe an der Stelle leider noch nie etwas gemacht- habe zum Beispiel über System.Threading.Thread.Sleep einen kleinen Moment indem ich nichts mache um die Seite laden zu können...

    ​getElementsByTagName("a")

    Ist denke ich das was ich brauche, und noch 'ne Schleife..

    Ich schau mir deinen Beitrag mal an und wenn ich Fragen dazu habe melde ich mich.
    Vielen Dank erstmal. :)

    Grüße,
    Drahuverar
    Option Strict On!

    Möchtest Du Links auslesen? Dann solltest Du beachten das "mein" Code alle Links einer Seite ausliest. Wenn Du nur eine Linkübersicht (in einer Tabelle) auslesen möchtest solltest Du das Auslesen auf die Tabelle (Übersicht) beschränken.

    Hi,

    nun ja. Ich möchte eine Tabelle "ablesen" um eine gewisse Spalte auszufiltern,
    rein theoretisch bräuchte ich ja nur diesen "Header" mit seinen Werten.

    Allerdings suche ich etwas im Dunkeln.
    Wollte schon die HTML als XML ausspeichern und anschließend meine Werte auslesen.
    ---AAAaaaaber; Ich dachte mir, dass geht doch einfacher.
    Option Strict On!