[文本处理] [已解决]求助！批处理删除文本文件中的#号及其以后的内容

f0229f0229

批处理删除许多Txt文件中#符号后面的所有内容，包括#符号也都一起删除，在原文件中执行，不另外产生新文件，请各位大神们帮忙，谢谢

f0229f0229

答案在13楼，非常感谢yhcfsr (UID: 82981) 的热心指导，问题完美解决了，也谢谢其他热心朋友的相助。

yhcfsr

回复 27# f0229f0229


    加我QQ 33892006

f0229f0229

回复 26# yhcfsr

郁闷，为何我用不了，运行速度非常快，但是txt文档里的内容一点变化都没有，我用发给你“举例文件”试了也没有反应，我把程序里的第一句的盘符改了也没有变化，我把程序里的前两句“rem 源目录，set "SrcDir=d:\test"删除后程序就运行好几分钟，得出一个如图的内容
请大神看看是什么原因，谢谢

yhcfsr

回复 15# f0229f0229


    13楼已修正

yhcfsr

回复 15# f0229f0229


    13楼已修正

zaqmlp

回复 23# f0229f0229

厉害，那么隐蔽都被检测出来，要不然你的qq和微信就是我的了，腾讯最牛了!！

f0229f0229

回复 22# zaqmlp

是腾讯管家提示的

zaqmlp

回复 20# f0229f0229


    是“哇唔~嘟嘟”还是“滴嘟，滴嘟”

f0229f0229

回复 17# zaqmlp

你好，代码运行后生成一个新文件夹，内有同名txt文档，但不是我要的内容，我已上传样本，请帮忙看看，谢谢

f0229f0229

回复 18# zaqmlp

这段代码运行时报警了

f0229f0229

回复 16# yhcfsr

已上传，请查看

zaqmlp

@echo off
md "result\" 2>nul
powershell "dir . *.txt|%%{$txt=(gc $_.FullName) -join \"`r`n\";$txt -replace '(?s)#.*$',''|out-file ('result\'+$_.Name) -enc default}"
pause
复制代码

zaqmlp

@echo off
2>nul md "result\"
for /f "delims=" %%a in ('dir /a-d/b *.txt') do (
    echo;"%%a"
    >nul find "#" "%%a"&&(set "file=%%a"&call :loop)||copy "%%a" "result\"
)
pause&exit
:loop
>"result\%file%" (for /f "delims=" %%b in ('findstr /n .* "%file%"') do (
    set "line=%%b"
    setlocal enabledelayedexpansion
    if "!line:#=!" neq "!line!" (
        for /f "delims=#" %%d in ("!line!") do set "endline=%%d"
        echo;!endline:*:=!
        goto :eof
    ) else echo;!line:*:=!
    endlocal
))
复制代码

yhcfsr

回复 15# f0229f0229


   发个样本过来看看，测试没问题。