Ich würde am Anfang nicht zum Webrequest empfehlen. Es ist die sauberste Lösung über VB, allerdings finde ich es persönlich am Anfang recht schwer.
Du kannst das über das Webbrowser Element ausführen .. Dir den verfügbaren String als .txt speichern und die Datei nach einem beliebigen String durchsuchen / kürzen..
Ich habe damals so angefangen..
Notwendig hierfür ist, ein Webbrowser Element und ein Command Button!! =) am ende des Subs könntest du dann sagen MsgBox("Ihre suche ergab" & Textgekuerzt) oder List1.Additem(Textgekuerzt) oder Text1.text = Linkgekuerzt .. Whatever
Ich hoffe ich helfe damit irgednwie.. =) Ich denke das viele Programmierer jetzt aufschreien werden.. Für mich war es damals so am einfachsten ..
Quote:
Private Sub Form_load
Text = quelltextlesen([Only registered and activated users can see links. Click Here To Register...]) ' Beispiel!!!
Textgekuerzt = kuerzetext(Text, "suche1", "suche2")
End Sub
_______________________
Private Function quelltextlesen(adresse As String) As String
URL_Load adresse
SaveQuelltext App.path & "\Data\quelldatei.txt"
quelltextlesen = lese_quelltext(app.path & "\Data\quelldatei.txt")
End Function
Private Function kuerzetext(txt As String, such1 As String, such2 As String) As String
stelle = InStr(1, txt, such1)
stelle2 = InStr(stelle, txt, such2)
stelle = stelle + Len(such1)
txt64 = Mid(txt, stelle, stelle2 - stelle)
kuerzetext = txt64
End Function
Private Sub URL_Load(ByVal sURL As String)
Dim sQuelltext As String
With WebBrowser1
.Tag = "Load"
.Navigate sURL
waitok = "ne"
Command1.Enabled = False
Do
DoEvents
Loop Until WebBrowser1.Busy = False
Command1.Enabled = True
End With
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, url As Variant)
' Prüfen, ob Seite vollständig geladen ist
On Error Resume Next
Command1.Enabled = True
End Sub
Private Sub SaveQuelltext(ByVal sFilename As String)
Dim F As Integer
With WebBrowser1.Document.DocumentElement
F = FreeFile
Open sFilename For Output As #F
Print #F, .outerHTML;
Close #F
End With
End Sub
Private Function lese_quelltext(dateiname As String)
Dim fso As New FileSystemObject
Set fp = fso.OpenTextFile(dateiname, ForReading, True)
lese_quelltext = fp.ReadAll()
lese_quelltext = Replace(lese_quelltext, """", "") 'entfernt alle (")
fp.Close
End Function
|
