Как удалить строки определённой длинны из txt файла?

Question

[Kirows]

Есть несколько файлов с 100+к строк.
Как удалить из текстового файла строки содержащие 4 и менее символов.
Нашёл в отдельности функции, срастить мозг не в состоянии.
поиск строки тыц
удаление строки тыц

Comments

[Владимир Мартьянов]

Боюсь, BAT/CMD не прокатят без внешних команд. А вот на Питоне в несколько строк можно сваять скриптец.

Answer 1

[M K]

Пришлось попыхтеть, но упрямство взяло вверх =)
вот код:

@echo off
goto :main
:choosestr
set string=%~1
set strstart=%string:~0,4%
set strend=%string:~-4%
if NOT %strstart%==%strend% echo %string%>>1.txt
goto :EOF
:main
set tpath=%tmp%/%RANDOM%%RANDOM%.tmp
type 1.txt>%tpath%
type nul>1.txt
FOR /F %%i in (%tpath%) do call :choosestr %%i

Везде где 1.txt замените на Ваш фаил
P.S. если нужно могу прокомментировать

Comments

[Kirows]

Это просто шедевр!!!

[patsanchique]

можно комментарии? мне надо удалить строки длиннее 30 символов

[M K]

patsanchique,

rem Вырубаем вывод команд, чтобы не мешались
@echo off 
rem Идём в метку :main
goto :main

:choosestr
rem записывает строку в переменную для удобства
set string=%~1
rem Берём первые 4 символа строки
set strstart=%string:~0,4%
rem Берём последние 4 символа строки
set strend=%string:~-4%
rem Если эти части равны, то в строке не более 4 символов, пишем её в файл
if NOT %strstart%==%strend% echo %string%>>1.txt
rem возвращаемся обратно в цикл в метке :main
goto :EOF
rem P.S. Не для всех строк будет работать такой способ, потому что по счастливой случайности первые символы могут совпасть с последними
rem P.P.S. В Вашем случае можно пойти от обратного: 
rem            если строки раны, то в них не более 30 символов - пишем их в файл.

:main 
rem Генерируем имя временного файла, в который будем писать данные
set tpath=%tmp%/%RANDOM%%RANDOM%.tmp
rem содержимое нашего файла засовываем в этот временный (он автоматически создаётся)
type 1.txt>%tpath%
rem записываем пустоту в наш файл (затираем данные)
type nul>1.txt
rem Каждую строку в нашем временном файле пропускаем через :choosestr
FOR /F %%i in (%tpath%) do call :choosestr %%i

Answer 2

[Евгений Хлебников]

Одна строка в Powershell

Get-Content d:\file.txt | Foreach-Object { if ($_.Length -ge 5) {Out-File -FilePath d:\outfile.txt -InputObject $_ -Append } }

Можно еще добавить Move-Item d:\outfile.txt d:\file.txt -force
если старые данные неважны.