批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖

[文本处理] 如何批量处理一个文件夹指定行数的特殊字符的删减问题

本帖最后由 jsqwert 于 2020-2-20 13:44 编辑

所有文件都会以这开头,第19行会不定时出现一个上箭头符号,怎么自动处理一个文件夹里的文件,另外文件最后如未是箭头就要删除箭头后面的空格
要更改成去掉箭头 也可以换成空格

要更改成去掉最后有箭头的空格,

文件

   
附件: 您需要登录才可以下载或查看附件。没有帐号?注册

回复 7# jsqwert

没赞助没动力
提供bat代写,为你省时省力省事,支付宝扫码头像支付
QQ: 956535081

TOP

回复 6# zaqmlp

如是要指定文件路径,应修改那里呢?

TOP

修改原文件,注意备份
  1. <# :
  2. cls
  3. @echo off
  4. set info=互助互利,支付宝扫码头像,感谢打赏
  5. rem 有问题,可加QQ956535081及时沟通
  6. title %info%
  7. set "rootpath=%~dp0"
  8. if "%rootpath:~-1%" equ "\" (set "rootpath=%rootpath:~,-1%")
  9. cd /d "%rootpath%"
  10. powershell -NoProfile -ExecutionPolicy bypass "Invoke-Command -ScriptBlock ([ScriptBlock]::Create([IO.File]::ReadAllText('%~f0',[Text.Encoding]::Default))) -Args '%rootpath%'"
  11. echo;%info%
  12. pause
  13. exit
  14. #>
  15. $n=19;
  16. $files=@(dir -liter $args[0]|?{(@('.txt') -contains $_.Extension) -and ($_ -is [System.IO.FileInfo])});
  17. for($i=0;$i -lt $files.length;$i++){
  18.     write-host $files[$i].Name;
  19.     $text=[IO.File]::ReadAllText($files[$i].FullName, [Text.Encoding]::Default);
  20.     $text=$text -replace '(?<=\x0C)\s+$','';
  21.     $text=$text -split '\n';
  22.     if($text.length -ge $n){$text[$n-1]=$text[$n-1] -replace '\x0C','';};
  23.     $text=$text -join "`n";
  24.     [IO.File]::WriteAllText($files[$i].FullName, $text, [Text.Encoding]::Default);
  25. }
复制代码
提供bat代写,为你省时省力省事,支付宝扫码头像支付
QQ: 956535081

TOP

回复 3# Batcher


    已经放 上两个文件

TOP

你要把那个 箭头 发上来 让人家复制用啊。:L
QQ: 458609586
脚本默认优先 [PowerShell]

TOP

回复 1# jsqwert


    请把1.txt和11.txt打包压缩传上来
【批处理在线视频分享】http://bbs.bathome.net/thread-31727-1-1.html
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html

我帮忙写的代码不需要付钱,不用找我要支付宝或微信账号。如果一定要给,请到微信群给大家发红吧。

TOP

补充下,前面段可用空格 替换箭头符号, 末尾处,如有箭头需删除箭头后的空格,如无箭头符号即 无需删除末尾的空格。

TOP

返回列表