jscript和xmldom

时间:2019-03-03 15:54:56

标签: javascript excel xml vba xmldom

我需要一个可以在Windows命令行上执行的jscript文件,例如:

  

cscript.exe C:\ test \ myjs.js

我有这个excel-vba代码,用于编辑xml文件中的单个节点值。 myjs.js应该做到这一点。 我需要.js文件,因为我还有.js脚本的许多其他代码,因此我可以创建一个.js文件,而不是各种脚本语言代码。

Sub XMLTest()\
    Dim myVar As String, pathToXML As String
    Dim xmlDoc As Object, xmlRoot As Object
    mydate = Date
    Set xmlDoc = CreateObject("MSXML2.DOMDocument")
    pathToXML = "Y:\Analysis33.xml" '<--- change the path
    Call xmlDoc.Load(pathToXML)
    Set xmlRoot = xmlDoc.getElementsByTagName("General").Item(0)
    myVar1 = mydate & " 00:00:00" '<--- your value
    myVar2 = mydate

    xmlRoot.SelectSingleNode("FromDate").Text = myVar1
    xmlRoot.SelectSingleNode("ToDate").Text = myVar2

    Call xmlDoc.Save(pathToXML)

   'MsgBox (mydate)

End Sub

任何提示?预先感谢。

该xml文件为:

<?xml version="1.0" encoding="ISO-8859-1"?>
    <scraping Test>
        <General>
            <FormatVersion>1</FormatVersion>
            <FromDate>2/28/2019 00:00:00</FromDate>
            <ToDate>2/28/2019</ToDate>
        </General>
    </scraping Test>

这是我的myjs.js代码,无法正常工作。

var dom = new ActiveXObject("Microsoft.XMLDOM");
pathToXML = "Y:\Analysis33.apx"  ;
dom.loadxml(pathToXML);
mydate = date(); 
myVar1 = mydate & " 00:00:00" ; 
myVar2 = mydate ;

nNode = xmlDoc.selectsinglenode ("FromDate")    ;
nNode.text = myvar1 ;
strResult = xmldoc.save(pathtoxml) ;

0 个答案:

没有答案