[文本处理] [已解决]请教:怎么用批处理删除当前目录下所有文本文件中指定字符串所在行之后的内容

@echo off
setlocal enabledelayedexpansion
set "fx=*.txt"
set "sx=指定字符串"
for /f "delims=" %%i in ('dir /b /a-d %fx%')do (
    echo %%i
    call :CutFile "%%i"
    move "temp.yky" "%%i"
)
pause
goto :eof

:CutFile
(for /f "delims=" %%j in ('type "%~1"') do (
    echo,%%j
    set "str=%%j"
    if "!str:%sx%=!" neq "%%j" (
        goto :eof
    )
))>"temp.yky"
goto :eof
复制代码

sed -i "0,/指定字符串/!d" *.txt
复制代码

@echo off
cd /d "%~dp0"
set fx=*.txt
set "sx=!!"
for /f "delims=" %%i in ('dir /b %fx%')do (
echo %%i
set "n="
for /f "delims=:" %%j in ('findstr /nc:"%sx%" "%%i"') do set /a n=%%j
setlocal EnableDelayedExpansion
if defined n (
(
  for /L %%k in (!n!,-1,1) do (
    set input=
    set /p "input="
    echo,!input!
  )
)<"%%i" >>tmp.zxy
move /y tmp.zxy "%%i"
)
endlocal
)
pause
exit /b
复制代码