recordere.dk forum     Det danske community for hjemmets elektronik og indhold     Siden 2003
<b>Forside</b> Forside > Recordere, afspillere og foto > Microsoft Media Center, MCE og HTPC
  Nye indlæg Nye indlæg  Seneste forum emner Seneste   Seneste forum emner (vindue) Vindue   De emner du deltager i Mine emner RSS Feed - Script til Dump af ONTV XML DATA
  FAQ FAQ  Søg i forum   Opret ny bruger Opret ny bruger  Log ind Log ind

Script til Dump af ONTV XML DATA
 Besvar Besvar
Forfatter
Besked
  Emne Søg Emne Søg  Emne-funktioner Emne-funktioner
Patriarken Se dropdown menu
Guld medlem
Guld medlem
Avatar

Oprettet: 12-April-2005
Sted: Parts Unknown
Status: Offline
Point: 2872 		Funktioner Funktioner   Tak (0) Tak(0)   Citér Patriarken Citér  BesvarSvar Direkte link til dette indlæg Emne: Script til Dump af ONTV XML DATA
    Sendt: 19-December-2011 kl. 15:29
Dette vbs kan benyttes til at dumpe din XMLlink fra ONTV  til en fil.... Man skal bare gemme teksten i notepad, editere det med rødt ift ens system og gemme som dump.vbs

Hvis der bruges spaces i filepath, skal man tilføje apostrofer indenfor quotes...

ie 
strXMLLocation = "'M:\xmltv\xmltv.xml'"



'Path to your url
    strONTVURL = "http://ontv.dk/xmltv/someurl"
'Path to dump: 
   strXMLLocation = "M:\xmltv\xmltv.xml"

'Get XML feed
    Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")

    objXMLHTTP.open "GET", strONTVURL, false
    objXMLHTTP.send()

If objXMLHTTP.Status = 200 Then
Set objADOStream = CreateObject("ADODB.Stream")
objADOStream.Open
objADOStream.Type = 1 'adTypeBinary

objADOStream.Write objXMLHTTP.ResponseBody
objADOStream.Position = 0 
Set objFSO = Createobject("Scripting.FileSystemObject")
If objFSO.Fileexists(strXMLLocation) Then objFSO.DeleteFile strXMLLocation
Set objFSO = Nothing

objADOStream.SaveToFile strXMLLocation
objADOStream.Close
Set objADOStream = Nothing
End if

Set objXMLHTTP = Nothing


Redigeret af Patriarken - 19-December-2011 kl. 15:36
Mit Setup
The Horn of Helm Hammerhand shall sound in the deep one last time!
Til top
Crockie Se dropdown menu
Bruger
Bruger
Avatar

Oprettet: 31-December-2006
Sted: Denmark
Status: Offline
Point: 159 		Funktioner Funktioner   Tak (0) Tak(0)   Citér Crockie Citér  BesvarSvar Direkte link til dette indlæg Sendt: 19-December-2011 kl. 16:11
Fint script. Man kan også bruge wget . F.eks;
wget.exe url

Man kunne også evt. tilføje;
'Path to your url
Set args = WScript.Arguments
    strONTVURL = args.Item(0)
'Path to dump: 
strXMLLocation = args.Item(1)

og så bruge args som output og input, og eksekvere scriptet med dump.vbs "http://ontv.dk/xmltv/url" "c:\text.xml"

Men tak for scriptet, tror jeg vil bruge dette i stedet for Wget fremover. Det er altid rart at kunne tilpasse tingene selv. Smile




Redigeret af Crockie - 19-December-2011 kl. 16:27
Til top
Patriarken Se dropdown menu
Guld medlem
Guld medlem
Avatar

Oprettet: 12-April-2005
Sted: Parts Unknown
Status: Offline
Point: 2872 		Funktioner Funktioner   Tak (0) Tak(0)   Citér Patriarken Citér  BesvarSvar Direkte link til dette indlæg Sendt: 19-December-2011 kl. 16:25
Oprindeligt skrevet af Crockie Crockie skrev:

Fint script. Man kan også bruge wget . F.eks;
wget.exe url


Ja du kan også bruge curl....

Dette script kræver ikke third party utilities though...


Redigeret af Patriarken - 19-December-2011 kl. 16:28
Mit Setup
The Horn of Helm Hammerhand shall sound in the deep one last time!
Til top
 
 Besvar Besvar
 
Skift forum Forum-tilladelser Se dropdown menu