一點心得分享: xml

使用Xpath抓取xml內的資料

Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")

objXMLHTTP.Open "Get", "xml網址", False

objXMLHTTP.setRequestHeader "Content-Type", "text/xml"

objXMLHTTP.setRequestHeader "charset", "UTF-8"

objXMLHTTP.Send

testXML = objXMLHTTP.responseText

Set objXMLHTTP = Nothing

接著要注意的是XPath 2.0要加上第二行否則有些語法不能使用

Set xmldoc = CreateObject("MSXML2.DOMDocument")

xmldoc.setProperty "SelectionLanguage", "XPath"

xmldoc.LoadXML (testXML)

Count node數量

Set Root = xmldoc.DocumentElement.SelectSingleNode("篩選條件")

xmlcount = xmldoc.DocumentElement.SelectNodes("篩選條件").Length

接著篩選的方法

格式是路徑//channel/item/title[(contains(.,'條件')]，左式是指篩選符合條件的title層級，須注意路徑要依照xml內的格式填寫，並且可以使用and和or

如果需要新增或開啟檔案需要呼叫檔案系統物件

Set objfso = CreateObject("Scripting.FileSystemObject")

我在寫的時候遇到亂碼的問題，因此調用ADODB.Stream

Set objtextfile = CreateObject("ADODB.Stream")

objtextfile.Charset = "utf-8"

objtextfile.Open

objtextfile.LoadFromFile ("檔案路徑")

寫入檔案時使用

objtextfile.writetext xmldoc.DocumentElement.SelectNodes("篩選條件").Item(i).text + Chr(13) + Chr(10)

+ Chr(13) + Chr(10)是換行的意思

另外如果要比對字串

Set d = CreateObject("Scripting.Dictionary")

Do Until objtextfile.EOS

arr = objtextfile.ReadText(-2)

d.Add arr, arr

Loop

EOS是讀到檔案結尾，然後將objtextfile的內容寫入Dictionary d內

最後如果比對Dictionary跟檔案有不同的時候寫入檔案

If Not d.Exists(Cel) Then

fs.writetext

end if

bat讀入每行變數，使用%%a

for /f %%a in (檔案.txt) do (動作，將輸入變數用%%a替代)

參考資料

一點心得分享

2019年1月26日星期六

Samsung gear 360 上傳 YouTube 問題

2015年10月5日星期一

XFCE自動完成失效問題

rebot

2014年1月13日星期一

Xpath, xml 轉成http並且擷取需要的nodes, unicode編碼問題,vba轉vbs, bat讀入變數,篩選及比對

2019年1月26日 星期六