我需要一个可以在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) ;