[已解决]求助！批处理删除文本文件中的#号及其以后的内容 - BAT求助&讨论 - 批处理之家 BAT,CMD,批处理,PowerShell,VBS,DOS

Rank: 5 Rank: 5

帖子: 635
积分: 969
技术: 107
捐助: 0
注册时间: 2017-11-23

16楼 跳转到 »

发表于 2018-3-27 14:07 | 只看该作者

回复 15# f0229f0229

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

Rank: 5 Rank: 5

帖子: 968
积分: 1266
技术: 93
捐助: 0
注册时间: 2017-10-30

17楼

发表于 2018-3-27 14:09 | 只看该作者

@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
))
复制代码

提供bat代写，为你省时省力省事，支付宝扫码头像支付
微信: unique2random

Rank: 5 Rank: 5

帖子: 968
积分: 1266
技术: 93
捐助: 0
注册时间: 2017-10-30

18楼

发表于 2018-3-27 14:38 | 只看该作者

@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
复制代码

提供bat代写，为你省时省力省事，支付宝扫码头像支付
微信: unique2random

Rank: 1

帖子: 26
积分: 45
技术: 0
捐助: 0
注册时间: 2018-3-15

19楼

发表于 2018-3-27 15:02 | 只看该作者

回复 16# yhcfsr

已上传，请查看

Rank: 1

帖子: 26
积分: 45
技术: 0
捐助: 0
注册时间: 2018-3-15

20楼

发表于 2018-3-27 15:03 | 只看该作者

回复 18# zaqmlp

这段代码运行时报警了

Rank: 1

帖子: 26
积分: 45
技术: 0
捐助: 0
注册时间: 2018-3-15

21楼

发表于 2018-3-27 15:05 | 只看该作者

本帖最后由 f0229f0229 于 2018-3-27 15:09 编辑

回复 17# zaqmlp

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

Rank: 5 Rank: 5

帖子: 968
积分: 1266
技术: 93
捐助: 0
注册时间: 2017-10-30

22楼

发表于 2018-3-27 15:30 | 只看该作者

回复 20# f0229f0229

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

提供bat代写，为你省时省力省事，支付宝扫码头像支付
微信: unique2random

Rank: 1

帖子: 26
积分: 45
技术: 0
捐助: 0
注册时间: 2018-3-15

23楼

发表于 2018-3-27 15:34 | 只看该作者

回复 22# zaqmlp

是腾讯管家提示的

Rank: 5 Rank: 5

帖子: 968
积分: 1266
技术: 93
捐助: 0
注册时间: 2017-10-30

24楼

发表于 2018-3-27 15:48 | 只看该作者

回复 23# f0229f0229

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

提供bat代写，为你省时省力省事，支付宝扫码头像支付
微信: unique2random

Rank: 5 Rank: 5

帖子: 635
积分: 969
技术: 107
捐助: 0
注册时间: 2017-11-23

25楼

发表于 2018-3-27 16:06 | 只看该作者

回复 15# f0229f0229

13楼已修正

Rank: 5 Rank: 5

帖子: 635
积分: 969
技术: 107
捐助: 0
注册时间: 2017-11-23

26楼

发表于 2018-3-27 17:07 | 只看该作者

回复 15# f0229f0229

13楼已修正

Rank: 1

帖子: 26
积分: 45
技术: 0
捐助: 0
注册时间: 2018-3-15

27楼

发表于 2018-3-27 19:23 | 只看该作者

回复 26# yhcfsr

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

Rank: 5 Rank: 5

帖子: 635
积分: 969
技术: 107
捐助: 0
注册时间: 2017-11-23

28楼

发表于 2018-3-27 19:36 | 只看该作者

回复 27# f0229f0229

加我QQ 33892006

Rank: 1

帖子: 26
积分: 45
技术: 0
捐助: 0
注册时间: 2018-3-15

29楼

发表于 2018-3-27 22:21 | 只看该作者

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