[Bob256]

Код:

@echo off
setlocal enabledelayedexpansion
Set _find="https://portal.rosreestr.ru/xsl/GKN/Vidimus/04/common.xsl"
Set _replace="\\serv\папки\xml\common.xsl"
for %%J in (*.xml) do (
  set s=%%~nJ
  if "!s:~-6!" neq "_local" (
    for /f "delims=" %%I in (%%~sJ) do (
      set s=%%I
      echo !s:%_find%=%_replace%!>"%%~nJ_local.xml"
    )
    start iexplore.exe "%%~dpJ%%~nJ_local.xml"
  )
)

[firstarey]

благодарю за помощь, но отрабатывает не совсем корректно:
требуется заменить только указанное значение, а в результате отработки скрипта получается 2 разных файла (во втором отсутствует заменяемое значение)
прикладываю файл-пример, чтобы Вы могли проверить

[firstarey]

читать дальше »

http://rghost.ru/40431526

[firstarey]

попробовал так же через CHGSTR.EXE, но он убивает кодировку и в итоговом файле вместо русских букв кракозябры

есть ли какой то способ обработать xml файл заменив >< на >\n< (т.е. перенос строк после закрытия тега) ?
тогда было бы проще - можно заменить вторую строку целиком

[Iska]

firstarey, пробуйте WSH:

читать дальше »

Код:

Option Explicit

Dim strFile
Dim objNode

If WScript.Arguments.Count = 1 Then
	strFile = WScript.Arguments.Item(0)
	
	If WScript.CreateObject("Scripting.FileSystemObject").FileExists(strFile) Then
		With WScript.CreateObject("MSXML2.DOMDocument")
			.async = False
			.load strFile
			
			If .parseError.errorCode = 0 Then
				For Each objNode In .childNodes
					If objNode.nodeType = 7 Then
						If objNode.baseName = "xml-stylesheet" Then
							If objNode.data = "type=""text/xsl"" href=""https://portal.rosreestr.ru/xsl/GKN/Vidimus/04/common.xsl""" Then
								WScript.Echo "Node found"
								
								objNode.data = "type=""text/xsl"" href=""\\serv\папки\xml\common.xsl"""
								
								Exit For
							End If
						End If
					End If
				Next
			Else
				WScript.Echo "Error [" & .parseError.errorCode & "] in xml [" & strFile & "]"
			End If
			
			.save strFile
		End With
	Else
		WScript.Echo "File [" & strFile & "] not found"
	End If
Else
	WScript.Echo "Usage: " & WScript.ScriptName & " <xml-file>"
End If

WScript.Quit 0

Update: Забыл про:

вторая задача: запустить IE в автономном режиме на просмотр этого файла »

читать дальше »

Код:

Option Explicit

Const READYSTATE_COMPLETE = 4

Dim strFile
Dim objNode
Dim objIE


If WScript.Arguments.Count = 1 Then
	strFile = WScript.Arguments.Item(0)
	
	If WScript.CreateObject("Scripting.FileSystemObject").FileExists(strFile) Then
		With WScript.CreateObject("MSXML2.DOMDocument")
			.async = False
			.load strFile
			
			If .parseError.errorCode = 0 Then
				For Each objNode In .childNodes
					If objNode.nodeType = 7 Then
						If objNode.baseName = "xml-stylesheet" Then
							If objNode.data = "type=""text/xsl"" href=""https://portal.rosreestr.ru/xsl/GKN/Vidimus/04/common.xsl""" Then
								WScript.Echo "Node found"
								
								objNode.data = "type=""text/xsl"" href=""\\serv\папки\xml\common.xsl"""
								
								.save strFile
								
								Exit For
							End If
						End If
					End If
				Next
			Else
				WScript.Echo "Error [" & .parseError.errorCode & "] in xml [" & strFile & "]"
			End If
		End With
		
		With WScript.CreateObject("InternetExplorer.Application")
			.Navigate("file:///" & strFile)
			
			Do
				WScript.Sleep 100
			Loop Until Not .Busy And .ReadyState = READYSTATE_COMPLETE
			
			.Visible = True
		End With
	Else
		WScript.Echo "File [" & strFile & "] not found"
	End If
Else
	WScript.Echo "Usage: " & WScript.ScriptName & " <xml-file>"
End If

WScript.Quit 0

[firstarey]

Iska, простите, а как запустить *.wsh файл ?
дважды нажимаю выходит окно "сценарий не указан"
совсем не знаком с wsh

[Iska]

firstarey, сохраните код в файле с расширением «.vbs» (VBScript — один из языков, поддерживаемых WSH «искаропки»). Перетащите на него Ваш xml (сначала опробуйте на копии).

[firstarey]

средствами CHGSTR.EXE довольно легко решается задача, но проблема в том, что он все русские символы переводит в CP1251 из UTF-8
может есть какой простой способ вернуть кодировку на место ?

Iska, Ваш скрипт работает, большое спасибо

[th1zar@vk]

Для полноценного локального отображения данных выписок, необходимо немного подредактировать сам шаблон преобразования, т.к. в нем имеется ссылка на Портал Росреестра. Необходимо убрать эту ссылку. Либо же, как вариант, воспользоваться специальной версией преобразований для локального просмотра.