[文本处理] 批处理如何在文本首个/第一个出现的含有指定字符串/关键字的行的末尾添加指定内容

lyhli13

求助!编辑文本文件。
本人那小白，请求大神帮帮忙！
有一个20万行左右的文本文件，要求找到关键字的那行之后，在行末尾加入一段字符，再之后保存文件就可以了。（只做一次，后面如果有关键字的行就不用做处理）
文本文件大小4M左右，关键字位置大概在2之3万行左右，最好处理效率要高，不能太慢。。。
有哪位热心大哥能帮忙写段代码，万分感谢！！！！

GNU

修改之前：
a
b
关键字
c
关键字
d


修改之后：
a
b
关键字 bathome
c
关键字
d

是这个意思吗？

lyhli13

对对，就是在指定行尾加几个字符。
文件比较大，用批处理能写出比较高效的代码吗？

Nsqs

:on error resume next
:sub class_bat
	' 2>nul&echo off&cls
	cscript -nologo -e:vbs "%~0"
	pause
	exit sub
:end sub
set fso=CreateObject("Scripting.FileSystemObject")
set regexp=new regexp
file="1.txt"
RegExp.Global=0:RegExp.IgnoreCase=-1
RegExp.Pattern="(.*关键字.*)" '关键字
t=timer
read=fso.opentextfile(file).readall
s="abc" '替换后
result=RegExp.Replace(read,"$1"&s)
wsh.echo timer-t &" 秒"
fso.createtextfile("new.txt").write result
set fso=nothing:set regexp=nothing
复制代码

保存bat即可

GNU

把你的文件压缩一下传到百度网盘，方便测试。

lyhli13

100万行数据2秒处理完,保存vbs即可
Nsqs 发表于 2016-12-22 13:38

多谢大神！我那个专用应用程式貌似只能调用bat格式的批处理，麻烦能不能再用bat批处理代码写个？

Nsqs

回复 6# lyhli13


    更改

WHY

$s = [IO.File]::ReadAllText('a.txt', [Text.Encoding]::Default);
([regex]('(?i)' + [regex]::Escape("Here's your [Keyword]") + '[^\r\n]*')).Replace($s, '$&ABC', 1) > b.txt
复制代码

WHY

gawk "{if($0~/Here's your \[Keyword]/ && !a){a=1;$0=$0\"ABC\"}};1" a.txt > b.txt
复制代码

pcl_test

@echo off
set "file=文本.txt"
for /f "delims=:" %%a in ('findstr /nl /c:"关键词" "%file%"') do set n=%%a&goto :end
:end
if defined n (
    (for /f "tokens=1* delims=:" %%a in ('findstr /n .* "%file%"') do (
        if "%%a" equ "%n%" (echo;%%b添加的内容) else echo;%%b
    ))>"$tmp.txt"
    rem move "$tmp.txt" "%file%"
) else echo;Not Found
pause
复制代码

pcl_test

/*&cls
@echo off
set "file=文本.txt"
set "keywords=关键字"
set "addstr=添加的内容"
set "tmpfile=$tmp.txt"
cscript -nologo -e:jscript "%~f0" "%file%" "%tmpfile%" "%keywords:\=\\%" "%addstr%"
rem move "%tmpfile%" "%file%"
pause&exit
*/

var fso=new ActiveXObject('Scripting.FileSystemObject');
var text=fso.OpenTextFile(WSH.Arguments(0), 1).ReadAll();
var keywords=WSH.Arguments(2).replace(/[*.?+$^[\](){}|/]/g, '\\$&')
var reg=new RegExp(keywords+'[^\\r\\n]*')
var text=text.replace(reg, '$&'+WSH.Arguments(3));
fso.CreateTextFile(WSH.Arguments(1), 2).Write(text);
复制代码

lyhli13

多谢各路大神！多谢管理哈哈
你们的智慧让我在工作中轻松了好多啊，减少了一个很烦人又必须要做的动作，真心感谢你们的帮助！！！谢谢谢谢了！！！
如果还有什么问题我会再回来请教各位的！