VBScript-Fehler beim Parsen der Temperatur - vbscript, xml-parsing

Also habe ich versucht, die Temperatur zu analysierenvon weather.com und habe es geschafft, aber jetzt stecke ich fest beim Versuch, die Temperatur in eine Datei (temperature.txt) zu speichern. Ich denke, das sollte funktionieren, aber es gibt den Fehler zurück:

Line: 11   Char: 1   Error: Type mismatch: "Write"   Code: 800A000D

Dies ist mein Code, bitte helfen Sie !!!

Dim nm, em, FSO, oFile

Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.async = false
xmlDoc.load("http://xml.weather.com/weather/local/USUT0225?cc=*&unit=farenheit&dayf=0")
Set temp = xmlDoc.selectsinglenode ("/weather/dayf/day/part/t")

Set FSO = CreateObject("Scripting.FileSystemObject")
Set oFile = FSO.OpenTextFile("temperature.txt", 2, True)

oFile.Write(temp)
oFile.Close

Set oFile = Nothing
Set FSO = Nothing

Antworten:

Um die Antwort zu verbessern, da ich ein Problem mit Ihrem Knoten hatte, habe ich so etwas versucht

Dim nm, em, FSO, oFile

Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.async = false
xmlDoc.load("http://xml.weather.com/weather/local/USUT0225?cc=*&unit=farenheit&dayf=0")
Set temp = xmlDoc.selectSingleNode ("/weather/cc/tmp")

Set FSO = CreateObject("Scripting.FileSystemObject")
Set oFile = FSO.OpenTextFile("temperature.txt", 2, True)

oFile.Write(temp.text)
oFile.Close

Set oFile = Nothing
Set FSO = Nothing

Während der Überprüfung des Typs temp es kehrt immer wieder zurück Nothing. Ich habe mir die XML-Datei über den Link angesehen und konnte nicht folgen "/weather/dayf/day/part/t" Sie waren dort (möglicherweise, weil ich in Kanada bin und umgeleitet wurde). In beiden Fällen habe ich den gesuchten Knoten aktualisiert "/weather/cc/tmp" und gab das aus .text in die Datei. Ab sofort ist der Inhalt meiner Textdatei 79

Ihre

Set temp = xmlDoc.selectsinglenode ("/weather/dayf/day/part/t")

Weist temp ein (Knoten-) Objekt zu (großer Variablenname, übrigens). Die .Write-Methode des TextStream-Objekts kann keine Objekte serialisieren, sondern nur Zeichenfolgen schreiben. Schreiben Sie also den XML-Inhalt des Knotens:

oFile.Write temp.xml

(und diese verlieren ())