[文本处理] 【已解决】批处理修改目录下所有文件的特定行

secifidian

我想要将D:\2F下所有文件的第二行修改为‘b3lyp/6-311g pop=nboread’，第18行修改为‘$NBO NAOMO $END’，并删除19行之后的内容。

zaqmlp

打包个文件发出来吧

@echo off
set info=互助互利,支付宝扫码头像,感谢赞助
rem 有问题,可加QQ956535081及时沟通
title %info%
start mshta VBScript:Execute("msgbox(""%info%""):close")
cd /d "%~dp0"
set "文件夹=D:\2F"
md "%文件夹%\结果" 2>nul
powershell ^
    dir -liter '%文件夹%' *.txt^|?{$_ -is [System.IO.FileInfo]}^|%%{^
        write-host $_.FullName;^
        $text=@(gc $_.FullName);^
        $text[1]='b3lyp/6-311g pop=nboread';^
        $text[17]='$NBO NAOMO $END';^
        [IO.File]::WriteAllLines(('%文件夹%\结果\'+$_.Name), $text[0..18], [Text.Encoding]::Default);^
    }
pause
复制代码

ivor

dir -Path D:\2F | %{$data = gc $_ -TotalCount 19;$data[1] = 'b3lyp/6-311g pop=nboread'; $data[17] = '$NBO NAOMO $END';}
复制代码

secifidian

回复 2# zaqmlp

多谢大佬，但是我的文件并不是文本文件

zaqmlp

回复 4# secifidian
把*.txt去掉或改为*.gjf

secifidian

回复 2# zaqmlp
谢谢大佬，我已经解决了。