Perl VB Papierkorb festplatte lösung quelltext Seitenquelltext

Seitenquelltext eoner pl-Seite auslesen

Von: , Frage gestellt am Di, 2. Aug 2005

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.

3 Antworten zu dieser Frage

1. Antwort von nach 0 hilfreich

   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

   
   

2. Antwort von nach 15 Stunden 1 hilfreich

   Re: Seitenquelltext eoner pl-Seite auslesen

   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 ;-)
   
   

   [WWW-SERVER] - - - - - - - > [BROWSER]
   index.html --> <Apache>        --> html-Seite    
   prog.pl    --> <Apache-Perl>   --> html-Seite

   
   D.h, Du bekommst *immer* eine html-Seite
   zu sehen, es sei denn, der WWW-Server ist
   fehlkonfiguriert.
   
   Grüße
   
   CMБ
   

   • Antwort von nach 17 Stunden 1 hilfreich

     Re^2: Seitenquelltext eoner pl-Seite auslesen

     Hier habe entweder ich Dein Anliegen nicht
     verstanden oder Du nicht das Prinzip der Webseiten-
     auslieferung ;-)
     [WWW-SERVER] - - - - - - - > [BROWSER]
     index.html --> <Apache> --> html-Seite
     prog.pl --> <Apache-Perl> -->
     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 :-)
     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
     
     

     
     

Keine passende Antwort gefunden? Jetzt eigene Frage stellen!