Мне нужен файл jscript, который можно выполнить в командной строке Windows, например:
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) ;