Seitenquelltext eoner pl-Seite auslesen

Computer: Software & Programmierung Programmierung allgemein
#1

Hallo Wissende,
wie kann ich den Seitenqelltext bei pl auslesen. Mein nachfolgender Code klappt nur bei Html-Seiten.
Gruß
Reinhard
ps: wegen Crossposting, habe die Anfrage auch in einem reinen Excle-forum gestellt, dort komen also, wenn überhaupt nur reine vba-Lösungen, aber vielleicht gibts ja noch Lösungen in anderen Sprachen. Jedenfalls ich informiere cross wenn es eine Lösung gibt damit keiner für den Papierkorb adbeitet
Hintergrund ist, die Seite alle 5 min auszulesen um zu prüfen was neu ist. Ich stelle mir das so vor ich starte eine exe oder ccom und erhalte als Rückgabewert den Seitenquelltext. K.A. ob das überhaupt so geht, dann reicht es auch wenn der Quelltext als txt-Datei auf die Festplatte kommt.

#2

ups, den Code vergessen

Sub Test()
Dim IEApp As Object
Dim IEDocument As Object
Dim Text As String
 Set IEApp = CreateObject("InternetExplorer.Application")
 IEApp.Visible = False
 IEApp.Navigate "http://www.herber.de/cgi-bin/tag1.pl"
 Do: Loop Until IEApp.Busy = False
 Do: Loop Until IEApp.Busy = False
 Set IEDocument = IEApp.Document
 Text = IEDocument.Body.InnerText
 'Text = IEDocument.Body.InnerHTML
 Set IEDocument = Nothing
 [a1] = Text
End Sub
#3

Hallo Reinhard

wie kann ich den Seitenqelltext bei pl auslesen. Mein
nachfolgender Code klappt nur bei Html-Seiten.

Hier habe entweder ich Dein Anliegen nicht
verstanden oder Du nicht das Prinzip der Webseiten-
auslieferung :wink:

 [WWW-SERVER] - - - - - - - \> [BROWSER]
 index.html --\> --\> html-Seite 
 prog.pl --\> --\> html-Seite

D.h, Du bekommst *immer* eine html-Seite
zu sehen, es sei denn, der WWW-Server ist
fehlkonfiguriert.

Grüße

CMБ

#4

Hier habe entweder ich Dein Anliegen nicht
verstanden oder Du nicht das Prinzip der Webseiten-
auslieferung :wink:
[WWW-SERVER] - - - - - - - > [BROWSER]
index.html --> --> html-Seite
prog.pl --> -->
html-Seite
D.h, Du bekommst *immer* eine html-Seite
zu sehen, es sei denn, der WWW-Server ist
fehlkonfiguriert.

Hallo CMБ,
mit Sicherheit das Letztere :smile:
Habe es jetzt gelöst, siehe nachfolgenden Code.
Gruß
Reinhard

Sub Test2()
Dim IEApp As Object
Dim IEDocument As Object
Dim Text As String
 zei = 1
 Set IEApp = CreateObject("InternetExplorer.Application")
 IEApp.Visible = False
 IEApp.Navigate "http://www.herber.de/cgi-bin/tag1.pl"
 Do: Loop Until IEApp.Busy = False
 Do: Loop Until IEApp.Busy = False
 Set IEDocument = IEApp.Document
 'Text = IEDocument.Body.InnerText
 Text = IEDocument.Body.InnerHTML
 Set IEDocument = Nothing
 For n = 1 To Len(Text)
 If Asc(Mid(Text, n, 1)) \>= 32 Then
 Satz = Satz + Mid(Text, n, 1)
 Else
 Cells(zei, 1) = Satz
 Satz = ""
 zei = zei + 1
 n = n + 1
 End If
 Next n
End Sub