Alternative zu innerhtml, die Header enthält?

Question

Ich versuche, Daten aus der folgenden Seite zu extrahieren:

http://www.bmreports.com/servlet/com.logica.neta.bwp_PanBMDataServlet?param1=&param2=&param3=&param4=&param5=2009-04-22&param6=37#

Which, bequem und ineffektiv genug, die alle Daten als CSV-Datei im Header eingebettet ist, als eine Variable namens gs_csv gesetzt.

Wie extrahiere ich das? Document.body.innerhtml Überspringt die Kopfzeile, wo die Daten sind, was ist die Alternative, die die Kopfzeile enthält (oder besser noch den Wert, der gs_csv zugeordnet ist)?

(Sorry, neu zu all dem, ich habe viele Dokumente durchsucht und viele von ihnen versucht, aber bisher hat noch nichts funktioniert).

---

Dank Sinan (das ist meist seine Lösung in Python transkribiert).

import win32com.client 

import time 

import os 

import os.path 

ie = Dispatch("InternetExplorer.Application") 

ie.Visible=False 

ie.Navigate("http://www.bmreports.com/servlet/com.logica.neta.bwp_PanBMDataServlet?param1=&param2=&param3=&param4=&param5=2009-04-22&param6=37#") 

time.sleep(20) 

webpage=ie.document.body.innerHTML 

s1=ie.document.scripts(1).text 

s1=s1[s1.find("gs_csv")+8:-11] 

scriptfilepath="c:\FO Share\bmreports\script.txt" 

scriptfile = open(scriptfilepath, 'wb') 

scriptfile.write(s1.replace('\n','\n')) 

scriptfile.close() 

ie.quit 

Answer 1

Ungeprüfte: Haben Sie versucht, auf der Suche, was Document.scripts enthält?

UPDATE:

Aus irgendeinem Grund Ich habe immense Schwierigkeiten diese immer den Windows Scripting Host arbeiten mit (aber dann, ich es nicht sehr oft verwenden, Entschuldigungen). Wie auch immer, hier ist die Perl-Quelle, die funktioniert:

use strict; 
use warnings; 

use Win32::OLE; 
$Win32::OLE::Warn = 3; 

my $ie = get_ie(); 

$ie->{Visible} = 1; 

$ie->Navigate(
    'http://www.bmreports.com/servlet/com.logica.neta.bwp_PanBMDataServlet?' 
    .'param1=&param2=&param3=&param4=&param5=2009-04-22&param6=37#' 
); 

sleep 1 until is_ready($ie); 

my $scripts = $ie->Document->{scripts}; 

for my $script (in $scripts) { 
    print $script->text; 
} 

sub is_ready { $_[0]->{ReadyState} == 4 } 

sub get_ie { 
    Win32::OLE->new('InternetExplorer.Application', 
     sub { $_[0] and $_[0]->Quit }, 
    ); 
} 

__END__ 

C:\Temp> ie > output 

output jetzt enthält alles, was innerhalb des Script-Tags.

Answer 2

holen Sie die Quelle dieser Seite mit Ajax, und analysieren Sie den Antworttext wie XML mit jquery. Es sollte einfach genug sein, um den Text des ersten Tags, den Sie in der

Ich habe keinen Kontakt zu jquery, oder ich hätte Code-Beispiele gepostet bekommen.

EDIT: Ich nehme an, Sie sprechen über das Abrufen der csv auf der Clientseite.

Answer 3

Wenn dies nur eine einmalige Skript dann diese csv Daten exctracting ist so einfach wie diese:

import urllib2 

response = urllib2.urlopen('http://www.bmreports.com/foo?bar?') 
html = response.read() 
csv = data.split('gs_csv=')[1].split('</SCRIPT>')[0] 

#process csv data here 

Answer 4

Dank Sinan (dies meist ist seine Lösung in Python transkribiert).

Import win32com.client

Importzeit import os

Import os.path

ie = Dispatch ("InternetExplorer.Application") ie.Visible = False

ie.Navigate (http://www.bmreports.com/servlet/com.logica.neta.bwp_PanBMDataServlet?param1=&param2=&param3=&param4=&param5=2009-04-22&param6=37#)

time.sleep (20)

Webseite = ie.document.body.innerHTML

s1 = ie.document.Skripte (1) .text s1 = s1 [s1.find ("gs_csv") + 8: -11]

scriptfilepath = "c: \ FO Share \ bmreports \ script.txt"

Script = open (scriptfilepath, 'wb')

scriptfile.write (s1.replace ('\ n', '\ n'))

scriptfile.close()