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

f0229f0229

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

yhcfsr

也不给段例文，你是想删除每行中#后的内容，还是删除#后的全文内容？？
建议用POWERSHELL，如果文中有特殊英文标点，文本处理会失真。[code]$SrcDir="D:\test";#源目录

Batcher

请把原始文件和删除之后想要实现的效果分别发出来看看

f0229f0229

回复 2# yhcfsr
对不起，想简单了，原文件内“#”之前的内容有多有少格式固定，“#”之后内容大部分是这样的固定格式，我想要的效果是：不管文本内容里有多少个“#”符号，都只保留第一个“#”符号之前的内容，“#”符号之后（包括“#”符号在内），不管是什么格式，有多少内容，全部删除，并且都在原文件内执行，不产生新的文件，还请大神帮忙，谢谢
1 1 1 1 1 1 1 1 1
2 2 2 2 2 2 2 2 2
3 3 3 3 3 3 3 3 3
#START_USER_DATA
1  2  3  4  5  6
7  8  9 10 11 12
13 14 15 16 17 18
19 20 21 22 23 24
25 26 27 28 29 30
31 32 33 34 35 36
37 38 39 40 41 42
#CONFIG_DATA20
8 8 8 88  8  8  8
#END_USER_DATA

批处理以后的效果
1 1 1 1 1 1 1 1 1
2 2 2 2 2 2 2 2 2
3 3 3 3 3 3 3 3 3

f0229f0229

回复 3# Batcher

对不起，想简单了，原文件内“#”之前的内容有多有少格式固定，“#”之后内容大部分是这样的固定格式，我想要的效果是：不管文本内容里有多少个“#”符号，都只保留第一个“#”符号之前的内容，“#”符号之后（包括“#”符号在内），不管是什么格式，有多少内容，全部删除，并且都在原文件内执行，不产生新的文件，还请大神帮忙，谢谢
1 1 1 1 1 1 1 1 1
2 2 2 2 2 2 2 2 2
3 3 3 3 3 3 3 3 3
#START_USER_DATA
1  2  3  4  5  6
7  8  9 10 11 12
13 14 15 16 17 18
19 20 21 22 23 24
25 26 27 28 29 30
31 32 33 34 35 36
37 38 39 40 41 42
#CONFIG_DATA20
8 8 8 88  8  8  8
#END_USER_DATA

批处理以后的效果
1 1 1 1 1 1 1 1 1
2 2 2 2 2 2 2 2 2
3 3 3 3 3 3 3 3 3

yhcfsr

回复 4# f0229f0229
POWERSHELL

$SrcDir="D:\test";#源目录
Get-ChildItem -Path $SrcDir -Recurse -Filter *.txt|ForEach-Object{
$str=$null;$flag=$false;
    $content=Get-Content -Path $_.fullname;
    foreach($line in $content){
       for($i=0;$i -lt $line.Length;$i++){
        if($line[$i] -eq '#'){$flag=$true;break}else{$str+=$line[$i]}
       }#for
       if($flag){break;}else{$str+="`r`n"} 
    }#foreach
    Out-File -FilePath $_.FullName -InputObject $str;       
}
复制代码

f0229f0229

回复 6# yhcfsr
谢谢大神帮忙，我没有用过这种程序，后辍名改为ps1后运行要求修改安全策略，我选择“N”后不能运行，请问能否写成BAT形式的来运行，文本文件内“#”符号前边的内容都是数字格式的，应该不会影响内容，还请大神指点，谢谢

yhcfsr

回复 7# f0229f0229


    关于PS脚本限制的问题讲很多了，这里不赘述了。必须管理员打开PS，输入Set-ExecutionPolicy Unrestricted，先择全是才能解除。
除非安全级别很高的地方，否则，这样做也没什么危险。

f0229f0229

回复 8# yhcfsr
谢谢大神指导，能否给一个批处理的版本，从使用上来说，我更喜欢用批处理，谢谢

yhcfsr

回复 9# f0229f0229


    你的#号是否都在行的开头（或者行尾）？如果在行的中间，就有些麻烦。

f0229f0229

回复 10# yhcfsr

都在行的开头

yhcfsr

回复 11# f0229f0229


随手写了个，完全没什么效率，多文件长文本执行时间很长。先用着吧，有时间再搞个优化的。不过BAT处理长文本的效率本身就很差，还是要习惯powershell

@echo off
rem 源目录
set "SrcDir=D:\test"

for /f  "delims=" %%a in ('dir /a-d/s/b "%SrcDir%\*.txt"') do (
	call :read_txt "%%a"
	if exist "%%a.log" move /y "%%a.log" "%%a"
)	
pause&exit

:read_txt
setlocal
set "file=%~1"
(for /f  "delims=" %%b in ('findstr /n ".*" "%file%"') do (
        set "var=%%b"
		setlocal enabledelayedexpansion
        set var=!var:*:=!
		echo;"!var!"|findstr "#">nul&&(endlocal&goto:eof)
		echo;!var!
		endlocal
))>"%file%.log"
endlocal
复制代码

yhcfsr

【修正】优化上面的代码，效率比上面那个快10倍不止

@echo off
rem 源目录
set "SrcDir=D:\test"

for /f  "delims=" %%a in ('dir /a-d/s/b "%SrcDir%\*.txt"') do (
	set line=&set n=
	for /f "delims=[]" %%b in ('find /n "#" ^<"%%a"') do if not defined line set/a line=%%b
	if defined line (
		(for /f "delims=" %%b in ('findstr /n ".*" "%%a"') do (
			set/a n+=1&set "var=%%b"
			setlocal enabledelayedexpansion
			if !n! lss !line! set "var=!var:*:=!"&&echo;!var!
			endlocal
		))>"%%a.log"
		if exist "%%a.log" move /y "%%a.log" "%%a"
	)   
)
复制代码

f0229f0229

回复 12# yhcfsr
你好，试用了一下，单个Txt文档都运行不完，我根据你的指点，在想能不能将以下步骤转化为批处理程序来运行，第一步，统计当前文件夹中的Txt文档数量，第二步，同时在每个文件中向下查找“#”，找到后选择“#”至文档的最后一行包括“#”都删除，然后保存，如果有个别Txt文档内容里没有查找到“#”就跳过，这样是不是就运行快了，还请大神帮忙，谢谢

f0229f0229

回复 13# yhcfsr

你好，这个程序运行了一下，发现对文本文档里的内容没有改变，不知何故，还请大神再修改一下，谢谢