HTML auslesen

Drahuverar · 20. Juni 2014, 14:12

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

mumpel · 20. Juni 2014, 19:07

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

Private Sub CommandButton7_Click()
On Error Resume Next
Dim objIEDoc As Object
Dim objLinks As Object
Dim objLink As Object
Dim strURL As String
Dim strDatum As String
Dim strEDate As String
Dim strZipName As String
Dim strZipPath As String
Dim strFileName As String
Dim strErrFile As String
Dim strArg As String
Dim strZip As String
Dim strPathZ As String
Dim gzFile As String
Dim wbName As String
Dim errorLogFile As Variant
Dim errorFile As Variant
Dim oldSheets As Long
strDatum = ComboBox1.Value
strEDate = ComboBox1.Value
Set objIEDoc = WebBrowser1.Document
Set objLinks = objIEDoc.getElementsByTagName("a")
For Each objLink In objLinks
If objLink.innerText = strDatum Then
strURL = objLink.href
errorLogFile = Split(strURL, "file=")
If OptionButton1.Value = True Then
strZipPath = tbxFilePathLF
strZipName = "access_logfile_" & strEDate & ".txt.gz"
wbName = "access_log_" & strEDate
ElseIf OptionButton2.Value = True Then
strZipPath = tbxFilePathLF
strZipName = "error_logfile_" & strEDate & ".txt.gz"
errorLogFile = Split(strURL, "file=")
errorFile = Split(errorLogFile(1), ".")
wbName = "error_log_" & strEDate
End If
CopyURLToFile strURL, strZipPath & strZipName
DeleteUrlCacheEntry (strURL)
Exit For
End If
Next objLink
On Error GoTo Fin
strZip = ThisWorkbook.Path & "\7za.exe"
strPathZ = tbxFilePathLF
gzFile = strZipPath & strZipName
strFileName = gzFile
strArg = strZip & " e -pHIDE " & strFileName & " -y -o" & strZipPath
ShellAndWait strArg
Fin:
If Err.Number <> 0 Then
MsgBox "Fehler: " & Err.Number & " " & Err.Description
Exit Sub
End If
If OptionButton1.Value = True Then
strErrFile = Replace(gzFile, ".gz", "")
If deleteGZ.Value = True Then Kill gzFile
If deleteLOG.Value = True Then Kill strErrFile
ElseIf OptionButton2.Value = True Then
strErrFile = strPathZ & errorFile(0) & ".txt"
Name strPathZ & errorFile(0) As strErrFile
If deleteGZ.Value = True Then Kill gzFile
If deleteLOG.Value = True Then Kill strErrFile
End If
oldSheets = Application.SheetsInNewWorkbook
Workbooks.Add (xlWBATWorksheet)
Application.SheetsInNewWorkbook = oldSheets
Me.Hide
Application.DisplayAlerts = False
With ActiveWorkbook
.Sheets(1).Name = strEDate
.SaveAs FileName:=tbxFilePathWB & wbName & ".xlsb", FileFormat:=xlExcel12
End With
Application.DisplayAlerts = True
frmStartLogs.Show
End Sub

In einem allgemeinen Modul:

Visual Basic-Quellcode

Option Private Module
Option Explicit
Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Const INTERNET_FLAG_EXISTING_CONNECT = &H20000000
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _
(ByVal lpszAgent As String, ByVal dwAccessType As Long, ByVal lpszProxyName As String, _
ByVal lpszProxyBypass As String, ByVal dwFlags As Long) As Long
Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" _
(ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, _
ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
Private Declare Function InternetCloseHandle Lib "wininet.dll" _
(ByVal hInet As Long) As Integer
Private Declare Function InternetReadFile Lib "wininet.dll" _
(ByVal hFile As Long, ByVal lpBuffer As String, ByVal dwNumberOfBytesToRead As Long, _
lNumberOfBytesRead As Long) As Integer
Sub CopyURLToFile(ByVal URL As String, ByVal FileName As String)
Dim hInternetSession As Long
Dim hUrl As Long
Dim DatNum As Integer
Dim ByteAnz As Long
Dim Buffer As String * 4096
Dim DatInhalt As String
On Error GoTo Fehler
If Len(URL) = 0 Or Len(FileName) = 0 Then
MsgBox "Fehlende URL"
Exit Sub
End If
' open an Internet session, and retrieve its handle
hInternetSession = InternetOpen("dummy", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
If hInternetSession = 0 Then
MsgBox "Fehler bei InternetOpen"
Exit Sub
End If
' open the file and retrieve its handle
hUrl = InternetOpenUrl(hInternetSession, URL, vbNullString, 0, INTERNET_FLAG_EXISTING_CONNECT, 0)
If hUrl = 0 Then
If hInternetSession Then InternetCloseHandle hInternetSession
MsgBox "Fehler bei InternetOpenUrl"
Exit Sub
End If
' evtl vorhandene Datei löschen
On Error Resume Next
Kill FileName
On Error GoTo Fehler
' Daten sammeln
Do
InternetReadFile hUrl, Buffer, Len(Buffer), ByteAnz
If ByteAnz = 0 Then Exit Do
DatInhalt = DatInhalt & Left(Buffer, ByteAnz)
Loop
' Datei schreiben
DatNum = FreeFile
Open FileName For Output As #DatNum
Print #DatNum, DatInhalt;
Close #DatNum
Fehler:
If hUrl Then InternetCloseHandle hUrl
If hInternetSession Then InternetCloseHandle hInternetSession
If Err Then MsgBox "Fehler " & Err.Number & ":" & Err.Description
End Sub

Gruß, René

Drahuverar · 23. Juni 2014, 07:59

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

mumpel · 23. Juni 2014, 10:03

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.

Drahuverar · 23. Juni 2014, 12:19

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.

mumpel · 23. Juni 2014, 12:32

XML wäre m.E. schon besser. Ob es einfacher ist weiss ich aber nicht.

Drahuverar · 23. Juni 2014, 16:04

Okay,

vielleicht hat sich da jemand die arbeit schon gemacht, dann brauch ich das Rad nicht neu erfinden.
Vielen Dank erstmal

ErfinderDesRades · 23. Juni 2014, 19:46

also wenn das funzt, das html als valides Xml abzuspeichern - das geht tatsächlich sehr einfach zu analysieren: XDocument

Drahuverar · 30. Juni 2014, 16:25

Vielen Dank für eure Hilfe.

HTML auslesen

HTML auslesen

Visual Basic-Quellcode

Visual Basic-Quellcode

Tags

Ähnliche Themen

3 Benutzer haben hier geschrieben