Ошибка VBScript при анализе температуры

Question

Так что я пытаюсь разобрать температуру на weather.com и сумел это сделать, но теперь я застреваю, пытаясь сохранить температуру в файле (температура.txt). Я чувствую, что это должно работать, но оно возвращает ошибку:

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

Это мой код, пожалуйста, помогите !!!

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 

Answer 1

Для дальнейших ответа, так как у меня был вопрос с вашим узлом я пытался что-то вроде этого

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 

При проверке типа temp он продолжает возвращаться Nothing. Я пошел посмотреть XML-файл по ссылке, и я не мог следовать "/weather/dayf/day/part/t", который у вас был (может быть, потому, что я в Канаде и перенаправляюсь). В любом случае я обновил узел, который вы искали, "/weather/cc/tmp" и вывел .text в файл. На данный момент содержимое моего текстового файла 79

Answer 2

Вашего

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

назначает (узел) объект температуры (большое имя переменного, кстати). Метод .Write объекта TextStream не может сериализовать объекты, он может писать только строки. Так .WRITE содержимого XML-узла:

oFile.Write temp.xml 

(и рыхлые те ())