
rem 在当前目录里的多个txt文本文件开头插入/添加指定内容
set #=Any questions&set _=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%_% %z%
set "newfolder=result"
if not exist "%newfolder%" (md "%newfolder%")
for /f "delims=" %%a in ('dir /a-d-h/b *.txt') do (
>"%newfolder%\%%~nxa" echoinsert information
>>"%newfolder%\%%~nxa" type "%%~a"
)
echo%#% +%$%%$%/%_% %z%
pause
exit
打开记事本把下面代码贴入并修改要添加的文字注意检查分行情况 另存为xx.bat 放要处理的一批txt文件同位置双击运行: @echo off :: 注意把要加的内容写在第7(即代码中more +7的那个数)行之下 for /f "delims=" %%i in ('dir/b *.txt')do ( echo %%i more +7 "%~0">>"%%i") echo 处理完毕&ping -n 3 127.1>nul goto :eof 此处改成要加的内容(可以为多行)不清楚你的实际文件/情况,仅以问题中的样例/说明为据;以下代码复制粘贴到记事本,另存为xx.bat,编码选ANSI,跟要处理的文件放一起运行<# :
cls&echo off
rem 在多个txt文本文件内的每一行开头分别添加/插入自身文件名称和递增数字序号
set #=Any question&set @=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%@% %z%
cd /d "%~dp0"
powershell -NoProfile -ExecutionPolicy bypass "Invoke-Command -ScriptBlock ([ScriptBlock]::Create([IO.File]::ReadAllText('%~f0',[Text.Encoding]::GetEncoding('GB2312')))) -Args '%~f0'"
echo%#% +%$%%$%/%@% %z%
pause
exit
#>
$ext=@(".txt")
$self=get-item -liter $args[0]
$path=$self.Directory.FullName
$newfolder=$path+'\#result'
if(-not (test-path -liter $newfolder)){[void](md $newfolder)}
$enc=[Text.Encoding]::GetEncoding('GB2312')
$files=@(dir -liter $path|?{($ext -contains $_.Extension) -and ($_ -is [System.IO.FileInfo])})
[System.Collections.ArrayList]$s=@()write-host $files[0].Name
$text=[IO.File]::ReadAllLines($files[0].FullName, $enc)
for($j=0$j -lt $text.count$j++){
$line=$files[0].BaseName+($j+1).toString()+' '+$text[$j]
[void]$s.add($line)
}
$newfile=$newfolder+'\'+$files[0].Name
[IO.File]::WriteAllLines($newfile, $s, $enc)
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)