Как скопировать текст от одной заданной метки до другой из одного текстового файла в другой? - CMD/BAT - Ответ 9794776

@echo off
 
set "in=example.txt"
set "out=new.txt"
set "from=<dekl>"
set "to=</dekl>"
 
mshta vbscript:Execute("On Error Resume Next:Set o=CreateObject(""Scripting.FileSystemObject""):a=o.OpenTextFile(""%in%"").ReadAll():t=""%from%""+Split(Split(a,""%from%"")(1),""%to%"")(0)+""%to%"":o.OpenTextFile(""%out%"",2,True).Write(t):o.OpenTextFile(""%in%"",2,True).Write(Replace(a,t,"""")):close()")
 
exit /b

@echo off
 
set "in=example.txt"
set "out=new.txt"
set "from=<dekl>"
set "to=</dekl>"
 
mshta vbscript:Execute("On Error Resume Next:With CreateObject(""VBScript.RegExp""):.Pattern=""%from%[\s\S]*%to%"":.IgnoreCase=True:Set o=CreateObject(""Scripting.FileSystemObject""):a=o.OpenTextFile(""%in%"").ReadAll():t=.Execute(a).Item(0):End With:o.OpenTextFile(""%out%"",2,True).Write(t):o.OpenTextFile(""%in%"",2,True).Write(Replace(a,t,"""")):close()")
 
exit /b