CMD/BAT - [решено] Как удалить последнюю строку в текстовом файле?

megaloman · Отправлено: **19:51, 21-02-2014** | #11

Можно извратиться вот так, при этом последнее имя файла из Dir не попадёт в текстовый файл

Код:

@Echo Off

Set "File=100001.txt"
Set "Mask=20??????.jrn"

SetLocal EnableExtensions EnableDelayedExpansion

Set "String='"
FOR /F "usebackq delims=" %%i in (`Dir "%Mask%" /b /A:-D /O:N 2^>nul`) Do If !String!==' (Set "String=%%i"&Del "%File%" 2>Nul) Else (Echo !String!>>"%File%"&Set "String=%%i")

Или, чтобы легче читалось, то же самое

Код:

@Echo Off

Set "File=100001.txt"
Set "Mask=20??????.jrn"

SetLocal EnableExtensions EnableDelayedExpansion

Set "String='"
FOR /F "usebackq delims=" %%i in (`Dir "%Mask%" /b /A:-D /O:N 2^>nul`) Do (
	If !String!==' ( 
		Set "String=%%i"
		Del "%File%" 2>Nul
	) Else (
		Echo !String!>>"%File%"
		Set "String=%%i"
	)
)

Или, если вернуться к изначальной теме "Как удалить последнюю строку в текстовом файле?", то на этой же идее

Код:

@Echo Off

Set "File=100001.txt"

SetLocal EnableExtensions EnableDelayedExpansion

Set "String='"
FOR /F "usebackq delims=" %%i in (`Type "%File%"`) Do If !String!==' (Set "String=%%i"&Del "%File%" 2>Nul) Else (Echo !String!>>"%File%"&Set "String=%%i")

Georgio · Отправлено: **20:19, 21-02-2014** | #12

"Немного экзотики"...

Использование команды "fc":

Код:

@echo off
set text_file=100001.txt
for /f %%i in ('find /c /v ""^<"%text_file%"') do set /a n=%%i-1
>nul copy nul 0.tmp
>1.tmp fc /lb%n% 0.tmp "%text_file%"
>2.tmp<1.tmp more +4
>3.tmp<2.tmp find /v "*****"
del 0.tmp 1.tmp 2.tmp
>nul move "%text_file%" "%text_file%.bak"
>nul move 3.tmp %text_file%

Жаль только, что слишком длинные строки команда "fc" располагает в несколько строк.

В случае использования только двух временных файлов в конце переписанного файла будут две лишние пустые строки:

Код:

@echo off
set text_file=100001.txt
for /f %%i in ('find /c /v ""^<"%text_file%"') do set /a n=%%i-1
>nul copy nul 0.tmp
fc /lb%n% 0.tmp "%text_file%"| more +4|>1.tmp find /v "*****"
del 0.tmp
>nul move "%text_file%" "%text_file%.bak"
>nul move 1.tmp %text_file%

Anufriev · Отправлено: **10:05, 14-09-2018** | #13

Цитата megaloman:

)
Или, если вернуться к изначальной теме "Как удалить последнюю строку в текстовом файле?", то на этой же идее

Код:

@Echo Off
Set "File=100001.txt"
SetLocal EnableExtensions EnableDelayedExpansion
Set "String='"
FOR /F "usebackq delims=" %%i in (`Type "%File%"`) Do If !String!==' (Set "String=%%i"&Del "%File%" 2>Nul) Else (Echo !String!>>"%File%"&Set "String=%%i")

»

День добрый, данный батник хорошо работает, если обрабатывать только один файл

вопрос, а как его подправить, что бы он обрабатывал несколько файлов?

megaloman · Отправлено: **12:19, 14-09-2018** | #14

Anufriev, Неужели это я писал? Задача решалась применительно к конкретной ситуации (это я свою совесть успокаиваю). Боюсь, возможны косяки, если есть пустые строки и всякие спецсимволы.

Цитата Anufriev:

что бы он обрабатывал несколько файлов? »

- не понимаю, что за файлы и где, как имена задаются.
Если тупо и не думать, организуем процедуру и в неё будем передавать имена файлов

Код:

@Echo Off
	SetLocal EnableExtensions EnableDelayedExpansion
	Call :LastDel "100001.txt" 
	Call :LastDel "D:\тра ля ля\1200001.txt" 
	Call :LastDel "\\Server\Share\ogogo.ini" 
GoTo :Eof

:LastDel
	Set "File=%~1"
	Set "String='"
	FOR /F "usebackq delims=" %%i in (`Type "%File%"`) Do If !String!==' (Set "String=%%i"&Del "%File%" 2>Nul) Else (Echo !String!>>"%File%"&Set "String=%%i")
GoTo :Eof

Не тестировал.
Если это все файлы по какой-то маске в определённой папке, возможно организация For c тем же вызовом процедуры - уточните задачу, если надо. Опять же, работая с текстом в CMD, можно хорошо вляпаться.

YuS_2 · Отправлено: **20:20, 14-09-2018** | #15

Цитата megaloman:

Опять же, работая с текстом в CMD, можно хорошо вляпаться. »

Дык, почему бы не воспользоваться powershell?

Код:

$arr = dir *.txt #либо прописываем массив с конкретными файлами, имеющими различные пути и расширения.
$arr|%{$a = gc $_.fullname;$a|select -skiplast 1|sc $_.fullname}

Anufriev · Отправлено: **06:21, 15-09-2018** | #16

Цитата YuS_2:

Цитата megaloman:
Опять же, работая с текстом в CMD, можно хорошо вляпаться. »
Дык, почему бы не воспользоваться powershell?

Код:

$arr = dir *.txt #либо прописываем массив с конкретными файлами, имеющими различные пути и расширения.
$arr|%{$a = gc $_.fullname;$a|select -skiplast 1|sc $_.fullname}

-------
scio me nihil scire »

увы, не везде и не всегда можно использовать что-то лучше cmd

Цитата megaloman:

Не тестировал.
Если это все файлы по какой-то маске в определённой папке, возможно организация For c тем же вызовом процедуры - уточните задачу, если надо. Опять же, работая с текстом в CMD, можно хорошо вляпаться. »

простите, что не конкретно описал

файлы имеют маску *.xml
находятся в одной папке, при удалении строки копируются в другую папку
содержимое разнообразное, но всегда нужно удалить последнюю строку (подпись) она тоже меняется

p.s. может и правда отдельную тему создать, что-бы людям проще было найти (я посчитал, что можно небольшой корректировкой кода обойтись, наивный?)

YuS_2 · Отправлено: **13:42, 15-09-2018** | #17

Цитата Anufriev:

увы, не везде и не всегда можно использовать что-то лучше cmd »

увы, это так.
Но что мешает стремиться к лучшему?

Iska · Отправлено: **17:10, 15-09-2018** | #18

Ориентироваться на строки в xml-файлах… Я бы не стал.

Anufriev · Отправлено: **05:08, 17-09-2018** | #19

Цитата megaloman:

Anufriev, дайте хотя бы один файл для примера, переименуйте его в txt и прикрепите к сообщению
Сильно сомневаюсь, что для xml »

Утро доброе, прошу

p.s. Естественно данный занулены

Iska · Отправлено: **05:50, 17-09-2018** | #20

Цитата Anufriev:

но всегда нужно удалить последнюю строку (подпись) она тоже меняется »

Скажите, коллега, подпись всегда одна и та же? А если могут быть разные — не попадётся ли как-нибудь однажды в подписи символ 0x0A или 0x0D, сиречь LineFeed, або CarriageReturn? Тройку нулевых символов я там уже вижу.

Цитата Anufriev:

увы, не везде и не всегда можно использовать что-то лучше cmd »

Ну, WSH везде есть.

Скрытый текст

Код:

Option Explicit

Dim strSourceFolder

Dim objFSO
Dim objFile

Dim arrContent


If WScript.Arguments.Count = 1 Then
	strSourceFolder = WScript.Arguments.Item(0)
	
	Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
	
	If objFSO.FolderExists(strSourceFolder) Then
		For Each objFile In objFSO.GetFolder(strSourceFolder).Files
			If StrComp(objFSO.GetExtensionName(objFile.Name), "xml", 0) = 0 Then
				With objFSO.OpenTextFile(objFile.Path)
					arrContent = Split(.ReadAll(), vbCrLf)
					.Close
				End With
				
				ReDim Preserve arrContent(UBound(arrContent) - 1)
				
				objFile.Copy objFSO.BuildPath(strSourceFolder, objFSO.GetBaseName(objFile.Name) & ".bak"), True
				
				With objFSO.CreateTextFile(objFile.Path, True)
					.Write Join(arrContent, vbCrLf) & vbCrLf
					.Close
				End With
			Else
				' Nothing to do
			End If
		Next
	Else
		WScript.Echo "Can't find source folder [" & strSourceFolder & "]."
		WScript.Quit 2
	End If
	
	Set objFSO = Nothing
Else
	WScript.Echo "Usage: cscript.exe //nologo """ & WScript.ScriptName & """ <Source folder>"
	WScript.Quit 1
End If

WScript.Quit 0

Путь к целевому каталогу указывается параметром скрипта (также можно просто перетащить папку на скрипт в Проводнике). Для каждого обработанного xml-файла создаётся резервная копия .bak.