将txt导入excel,在后一列输入要添加的内容。用& *** 作符合并两列。再导出到txt文件。
如果要修改代码
把fw.writeline(data&fr.readline)
改成fw.writeline(fr.readline&data)
复制粘贴到记事本,另存为xx.bat,编码选ANSI,跟要处理的文件放一起运行
<# :cls&echo off&cd /d "%~dp0"
rem 在一个txt文件的第几行/某一行/指定行的开头和末尾添加/插入内容
set #=Any question&set _=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%_% %z%
powershell -NoProfile -ExecutionPolicy bypass "[IO.File]::ReadAllText('%~f0',[Text.Encoding]::GetEncoding('GB2312'))|Invoke-Expression"
echo%#% +%$%%$%/%_% %z%
pause
exit
#>
$file="xxx.txt"
$findline=32
$prefix="111"
$suffix="222"
if(-not (test-path -liter $file)){write-host ('"'+$file+'" 未找到')exit}
$enc=[Text.Encoding]::GetEncoding('GB2312')
$text=[IO.File]::ReadAllLines($file, $enc)
for($i=0$i -lt $text.count$i++){
if(($i+1) -eq $findline){$text[$i]=$prefix+$text[$i]+$suffix}
}
[IO.File]::WriteAllLines($file, $text, $enc)
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)