Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
  		RegistrierenRegistrieren  LoginLogin
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten
Autor
Nachricht
kokaiin
Newbie
Newbie

Anmeldedatum: 01.05.2008
Beiträge: 17
Quelltext ist beim auslesen zu kurz
Verfasst am: 29.07.2008, 22:49
Ich versuche den gesamten Quelltext einer Website auszulesen und verwende dafür folgenden Code:

Visual Basic: [code]Private Sub Form_Load()
Dim pos1 As String
Dim suchzeichen1 As String
'Dim suchzeichen2 As String
Dim ausschnitt As String
Dim quelltext As String
quelltext = Inet1.OpenURL("http://de28.die-staemme.de/staemme.php?screen=overview&intro&popup")
suchzeichen1 = ""
'suchzeichen2 = "
"

pos1 = InStr(quelltext, suchzeichen1)
pos1 = pos1
'pos2 = InStr(quelltext, suchzeichen2)
'pos2 = pos1

ausschnitt = Mid$(quelltext, pos1)
Text1.Text = ausschnitt
End Sub[/code]


Der Quelltext ist irgendwie immer zu kurz, zeigt man ihn in einer Textbox an fehlt der entscheidende Teil. Bei Seiten wie google oder ähnlichem wird der Quelltext aber komplett angzeigt. Wo liegt das Problem? wie3so lässt sich nicht der gesamte Text darstellen? Wäre für Hilfe sehr dankbar, habe schon über Google den ganzen Abend gesucht, aber nichts gefunden!

Gruß, Koka!
 
^^kev####
Überflieger
Überflieger

Anmeldedatum: 01.05.2008
Beiträge: 476
Wohnort: Haan

Verfasst am: 29.07.2008, 23:15
Hmm versuch es mal mit dem Code.
Das ganze geht mit dem Code über den Webbrowser.

http://www.vbarchiv.net/tipps/details.php?id=268
 
kokaiin
Newbie
Newbie

Anmeldedatum: 01.05.2008
Beiträge: 17

Verfasst am: 10.08.2008, 23:15
Erstmal danke, hatte leider keine Zeit zurückzuschreiben. Ich habe es dennoch irgendwie hinbekommen... ein weiteres Problem ist jetzt das ich die Fehlermeldung: Ungültiger Prozeduraufruf bekomme unzwar bei folgendem Quelltext:

Private Sub Command1_Click()

Dim pos1 As Integer
Dim suchzeichen As String
Dim ausschnitt As String
Dim Quelltext As String

WebBrowser1.Navigate ("http://de29.die-staemme.de/staemme.php?screen=overview&intro")
Do
DoEvents
Loop Until WebBrowser1.Busy = False

With WebBrowser1.Document.Frames(0).Document.documentElement
Quelltext = .outerHtml

suchzeichen = ""
pos1 = InStr(Quelltext, suchzeichen)
pos1 = pos1 - 5

ausschnitt = Mid (Quelltext, 5, pos1)
Text1.Text = ausschnitt
End With
End Sub

In folgender Zeile
ausschnitt = Mid (Quelltext, 5, pos1)
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten

Tags: visual basic, quelltext, auslesen, ausschnitt

  
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Wichtig: [Ebook] jetzt lerne ich Visual Basic 6 5067 02.06.2010, 13:55
Keine neuen Beiträge Miceosoft Visual Basic 6.0 Einsteiger Kurs? 1189 17.02.2007, 21:01
Keine neuen Beiträge SUCHE MICROSOFT VISUAL BASIC! 944 12.02.2007, 21:54
Keine neuen Beiträge Microsoft Visual Basic 1275 28.01.2007, 00:59
Keine neuen Beiträge Visual Basic.. Version?? 1230 22.01.2007, 18:23
 



[ Time: 0.0809s ][ Queries: 86 (0.0411s) ][ GZIP on - Debug on ]