bat每10行插入一个固定字符【下列代码只支持单个txt处理】

我有大量的txt文档,每个文档都需要每隔10行加入一个固定的字符,例如其中一个文档有98行,每隔10行加入固定的字符###

最近有个采集项目需要每10行添加一个标签,而采集工具里面没办法实现,就只能用bat命令了、。

下代码复制粘贴到记事本,另存为xx.bat,编码选ANSI,跟要处理的文件放一起双击运行

复制保持为bat格式并执行。其中

$insertword=”###”; $count=10; 这两个可以自定义设置!

<# :
cls&echo off
rem 对当前目录里的txt文本文件每间隔指定行数插入一行中的内容
set #=Any question&set @=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%@% %z%
cd /d "%~dp0"
set "newfolder=#result"
if not exist "%newfolder%" md "%newfolder%"
powershell -NoProfile -ExecutionPolicy bypass "Invoke-Command -ScriptBlock ([ScriptBlock]::Create([IO.File]::ReadAllText('%~f0',[Text.Encoding]::GetEncoding('GB2312')))) -Args '%~f0'"
echo;%#% +%$%%$%/%@% %z%
pause
exit
#>
$insertword="###";
$count=10;
$newfolder=get-item -liter $env:newfolder;
$self=get-item -liter $args[0];
$path=$self.Directory.FullName;
$files=@(dir -liter $path|?{('.txt' -eq $_.Extension) -and ($_ -is [System.IO.FileInfo])});
if($files.length -ge 1){
$enc=[Text.Encoding]::GetEncoding('GB2312');
write-host $files[0].Name;
$arr=New-Object -TypeName System.Collections.ArrayList;
$text=[IO.File]::ReadAllLines($files[0].FullName,$enc);
for($j=0;$j -lt $text.length;$j++){
[void]$arr.add($text[$j]);
if((($j + 1) % $count) -eq 0){[void]$arr.add($insertword);}
}
$newfile=$newfolder.FullName+'\'+$files[0].Name;
[IO.File]::WriteAllLines($newfile,$arr,$enc);
}
if not exist "%newfolder%" md "%newfolder%" powershell -NoProfile -ExecutionPolicy bypass "Invoke-Command -ScriptBlock ([ScriptBlock]::Create([IO.File]::ReadAllText('%~f0',[Text.Encoding]::GetEncoding('GB2312')))) -Args '%~f0'" echo;%#% +%$%%$%/%@% %z% pause exit #>

未经允许不得转载:郑州seo|不知则问,不能则学!-郑州seo笔记 » bat每10行插入一个固定字符【下列代码只支持单个txt处理】

赞 (0)

Parse error: syntax error, unexpected '}' in /www/wwwroot/www.seobiji.cn/wp-content/themes/xiu/footer.php on line 3