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

@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
1
2
3
4
5
6
7
8
9
10
11
12
@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
1
2
3
4
5
6
7
8
9
10
11
12
@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
1
2
3
4
5
6
7
8
9
10
11
12
@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
1
2
3
4
5
6
7
8
9
10
@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
1
2
3
4
5
6
7
8
9
10
@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

.

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

@DarkJoker1992 148 / 4 / 0 Регистрация: 19.02.2013 Сообщений: 369

	Как скопировать текст от одной заданной метки до другой из одного текстового файла в другой? 11.11.2014, 14:44. Показов 6939. Ответов 11 Метки нет (Все метки) нужно скопировать всё что находится в txt файле ОТ <dekl> ДО </dekl> подскажите пожалуйста, сам найти так и не смог =( 0

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

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

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

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

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

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

volodin661 6671 / 2264 / 346 Регистрация: 10.12.2013 Сообщений: 7,828
	20.11.2016, 03:13
	да-а ... 2 года промежуток провёл в исходном файле, будучи в своё время неудалённым. 0

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

Решение