Редактирование файла xml с помощью vbs

Есть фрагмент файла xml:

            ' <section sid="2" name="Доступ к базам данных" icon="22" slide="-1">
                ' <param id="9" name="Источник данных" ctrl="button_string" value="pgsql:ncad_24_0"/>
                ' <param id="13153" name="Путь к внешним файлам проектов" ctrl="dialog_system_folder_browser" hidden="1" value="[DATA_ALL_RW]"/>
                ' <param id="12" ctrl="edit_int" hidden="1" name="Standards filter" value="1021"/>
                ' <param id="13" name="Фильтр стандартов" ctrl="button_string" hidden="1" value="ЕСКД, ISO, DIN, JUS, PN, GB, CSN, NF, IS"/>
                ' <param id="14" name="Фильтр номенклатуры" ctrl="button_string" hidden="1" value="Отключен"/>
            ' </section>

Подскажите пожалуйста, как внести изменения в файл xml, заменив значение в value="pgsql:ncad_24_0", на value="C:\ProgramData\Nanosoft\nanoCAD x64 24.0\DataRW\std.mdf".

Начало кода на vbs:

Dim xmlDoc, objNode
Dim strFile 
Dim strUserName
strUserName = "C:\ProgramData\Nanosoft\nanoCAD x64 24.0\DataRW\std.mdf"

' Path to your xml file
strFile = "C:\AppOptions.xml"

' Create an xml Documment object and load your file
Set xmlDoc =  CreateObject("Microsoft.XMLDOM")
xmlDoc.Async = "False"
xmlDoc.Load strFile

  
' Save the changes
xmlDoc.Save strFile

' Clean up
If Not objNode Is Nothing Then
    Set objNode = Nothing
End If

Set xmlDoc = Nothing

Я так понимаю, что нужно поиском найти строку и заменить ее.


Ответы (0 шт):