bat批量把文件名添加到文本内容的每一行,按照文件名排序?

发布网友发布时间：2022-05-15 14:14

共2个回答

热心网友时间：2023-11-15 22:04

这个放excel里处理都可以啊

热心网友时间：2023-11-15 22:04

不清楚你的实际文件/情况，仅以问题中的样例/说明为据；以下代码复制粘贴到记事本，另存为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]::Default))) -Args '%~dp0'"
echo;%#% +%$%%$%/%@% %z%
pause
exit
#>
$path=$args[0];
$newfolder=$path+"#result";
$ext=@('.txt');
if(-not (test-path -liter $newfolder)){[void](md $newfolder)};
$enc=[Text.Encoding]::Default;
$files=@(dir -liter $path|?{($ext -contains $_.Extension) -and ($_ -is [System.IO.FileInfo])});
for($i=0;$i -lt $files.length;$i++){
[System.Collections.ArrayList]$s=@();write-host $files[$i].Name;
$text=[IO.File]::ReadAllLines($files[$i].FullName, $enc);
for($j=0;$j -lt $text.count;$j++){
$line=$files[$i].BaseName+($j+1).toString()+" "+$text[$j];
[void]$s.add($line);
};
$newfile=$newfolder+'\'+$files[$i].Name;
[IO.File]::WriteAllLines($newfile, $s, $enc);
}