[решено] Удалить одну фразу (кодировка файла UTF-8)

Iska · Отправлено: **19:55, 03-01-2012** | #2

njg, попробуйте так:

Код:

Option Explicit

Dim strPath2XML
Dim objXMLDOMNode

With WScript.CreateObject("Msxml2.DOMDocument")
	.async = False
	.setProperty "SelectionLanguage", "XPath"
	
	strPath2XML = "E:\Песочница\0023"
	
	If .load(strPath2XML & "\strings.xml") Then
		For Each objXMLDOMNode In .selectNodes("*/string[. = 'Для разблокировки проведите пальцем по экрану']")
			objXMLDOMNode.removeChild objXMLDOMNode.firstChild
		Next
		
		.save strPath2XML & "\strings2.xml"
	End If
End With

WScript.Quit 0