Запросите XML-узел, и ничего не возвращается - PullRequest
0 голосов
/ 20 сентября 2018

Исходный файл содержит, например (обратите внимание на несколько <?xml строк):

08/29/2018
08:47:21
<?xml version="1.0" encoding="utf-8"?><ExtendedData><Header><Date>08/29/18</Date>.. other data</ExtendedData>
08/29/2018
08:50:53
<?xml version="1.0" encoding="utf-8"?><ExtendedData><Header><Date>08/29/18</Date>.. other data</ExtendedData>

Необходимо запросить XML с помощью VBScript, и у нас нет опции PowerShell (я знаю, что это будетлучше).

Я воспользовался следующей статьей TechNet, чтобы получить начало основ сценария, который я использую: https://technet.microsoft.com/en-us/library/2008.10.heyscriptingguy.aspx

Option Explicit
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim FL,oFSO,objFolder,colFiles,objFile,FLPath,FLName,f1,line,xmlDoc,colNodes,objNode,strDate

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = oFSO.GetFolder("H:\Documents\Journal_Files")
Set colFiles = objFolder.Files
For Each objFile In colFiles
    FLPath = objFile.Path
    FLName = objFile.Name
    If InStr(FLName, ".jrn") > 0 Then
        'WScript.Echo FLPath
        Set xmlDoc = CreateObject("Microsoft.XMLDOM")
        xmlDoc.Async = "False"
        xmlDoc.Load(FLPath)
        Set colNodes=xmlDoc.selectNodes ("//ExtendedData/Header/Date")
        For Each objNode in colNodes
            Wscript.Echo objNode.Text 
        Next
    end if
next

Проблема в том, что для даты ничего не возвращается.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...