Как скопировать текст от одной заданной метки до другой из одного текстового файла в другой?

@DarkJoker1992 · Регистрация: 19.02.2013

Студворк — интернет-сервис помощи студентам

нужно скопировать всё что находится в txt файле ОТ <dekl> ДО </dekl>
подскажите пожалуйста, сам найти так и не смог =(

@temkasky · 11.11.2014, 15:13

notepad++
выделить синтаксис, свернуть массив <dekl></dekl> и копировать его

@DarkJoker1992 · 11.11.2014, 15:13 **[ТС]**

-_- причём тут notepad++, мне bat нужен.

@temkasky · 11.11.2014, 15:17

DarkJoker1992, ах, прости, не дочитал раздел в котором статья находится)

@DarkJoker1992 · 11.11.2014, 15:18 **[ТС]**

бывает =)

@ComSpec · 11.11.2014, 15:49

Bash

@echo off
 
set "in=D:\Test\example.txt"
set "out=D:\Test\new.txt"
set "from=^<dekl^>"
set "to=^</dekl^>"
 
type "%in%">.tmp
mshta "vbscript:CreateObject("Scripting.FileSystemObject").GetStandardStream(1).Write("%from%"+Split(Split(CreateObject("Scripting.FileSystemObject").OpenTextFile(".tmp").ReadAll(),"%from%")(1),"%to%")(0)+"%to%")&Close()">"%out%"
del .tmp
 
exit /b

@DarkJoker1992 · 11.11.2014, 16:33 **[ТС]**

простите а как сделать что бы <dekl> </dekl> не входили в out файл?

@ComSpec · 11.11.2014, 16:53

DarkJoker1992, надо было писать "между", а то я специально включил разделители в вывод результата.

Без включения разделителей:

Bash

@echo off
 
set "in=D:\Test\example.txt"
set "out=D:\Test\new.txt"
set "from=^<dekl^>"
set "to=^</dekl^>"
 
type "%in%">.tmp
mshta "vbscript:CreateObject("Scripting.FileSystemObject").GetStandardStream(1).Write(Split(Split(CreateObject("Scripting.FileSystemObject").OpenTextFile(".tmp").ReadAll(),"%from%")(1),"%to%")(0))&Close()">"%out%"
del .tmp
 
exit /b

.

@Azartno · 20.11.2016, 00:20

ComSpec, большое вам спасибо за это решение! Очень помогло!

Пусть спустя несколько лет, но можно вас попросить ещё подсказать - как после копирования, в отдельный файл строк в заданном промежутке, ещё и удалить этот промежуток из исходного файла?

Т.е. скопировали и сохранили в новый файл ОТ <dekl> ДО </dekl> (включая сами <dekl> и </dekl>), а потом в исходном файле удалили всё ОТ <dekl> ДО </dekl> (включая сами <dekl> и </dekl>).

Заранее спасибо!

volodin661 · 20.11.2016, 03:13

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

@alpap · 20.11.2016, 20:07

Azartno,

Windows Batch file

@echo off
set "f=file.txt"
set "sp=<dekl></dekl>"
<"%f%" (for /f "delims=" %%a in ('find/v ""') do (
  set "s=%%a"& echo "%%a"|findstr/rnc:"%sp:><=>.*<%" && (
   >"new_file.txt" (cmd/v/c echo:!s:*:^^=!)
  ) || (
   >>$ (cmd/v/c echo:!s:*:^^=!)
  )
 )
)& move $ "%f%"
exit

.

@ComSpec · 21.11.2016, 02:35

Сообщение от Azartno

...скопировали и сохранили в новый файл ОТ <dekl> ДО </dekl> (включая сами <dekl> и </dekl>), а потом в исходном файле удалили всё ОТ <dekl> ДО </dekl> (включая сами <dekl> и </dekl>).

Вариант 1:

Windows Batch file

@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

.

Вариант 2:

Windows Batch file

@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

.

volodin661 5888 / 1730 / 295 Регистрация: 10.12.2013 Сообщений: 6,071
	20.11.2016, 03:13	10
	да-а ... 2 года промежуток провёл в исходном файле, будучи в своё время неудалённым. 0

@DarkJoker1992 148 / 4 / 0 Регистрация: 19.02.2013 Сообщений: 369
		1
	Как скопировать текст от одной заданной метки до другой из одного текстового файла в другой? 11.11.2014, 14:44. Показов 5924. Ответов 11 Метки нет (Все метки) нужно скопировать всё что находится в txt файле ОТ <dekl> ДО </dekl> подскажите пожалуйста, сам найти так и не смог =( 0

@temkasky 81 / 81 / 50 Регистрация: 26.11.2012 Сообщений: 303
	11.11.2014, 15:13	2
	notepad++ выделить синтаксис, свернуть массив <dekl></dekl> и копировать его 0

@DarkJoker1992 148 / 4 / 0 Регистрация: 19.02.2013 Сообщений: 369
	11.11.2014, 15:13 [ТС]	3
	-_- причём тут notepad++, мне bat нужен. 0

@temkasky 81 / 81 / 50 Регистрация: 26.11.2012 Сообщений: 303
	11.11.2014, 15:17	4
	DarkJoker1992, ах, прости, не дочитал раздел в котором статья находится) 0

@DarkJoker1992 148 / 4 / 0 Регистрация: 19.02.2013 Сообщений: 369
	11.11.2014, 15:18 [ТС]	5
	бывает =) 0

@DarkJoker1992 148 / 4 / 0 Регистрация: 19.02.2013 Сообщений: 369
	11.11.2014, 16:33 [ТС]	7
	простите а как сделать что бы <dekl> </dekl> не входили в out файл? 0

@Azartno 0 / 0 / 0 Регистрация: 20.11.2016 Сообщений: 1
	20.11.2016, 00:20	9
	ComSpec, большое вам спасибо за это решение! Очень помогло! Пусть спустя несколько лет, но можно вас попросить ещё подсказать - как после копирования, в отдельный файл строк в заданном промежутке, ещё и удалить этот промежуток из исходного файла? Т.е. скопировали и сохранили в новый файл ОТ <dekl> ДО </dekl> (включая сами <dekl> и </dekl>), а потом в исходном файле удалили всё ОТ <dekl> ДО </dekl> (включая сами <dekl> и </dekl>). Заранее спасибо! 0

Опции темы

Как скопировать текст от одной заданной метки до другой из одного текстового файла в другой?

Решение