[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[文本处理] 批处理怎样用txt文件第一行内容来重命名文件 (批量)

我想买文件命名为 4IAOC.txt
我的文件夹下还有上千个格式一样的文件,都想这样做。还想请教下

学习了。。。。

TOP

  1. @echo off
  2. setlocal enabledelayedexpansion
  3. for /f "delims=" %%i in ('dir /b /a-d *.txt') do (
  4.     set /p a=<"%%i"
  5.     ren "%%i" "!a:~1,5!.txt"
  6. )
复制代码
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

  1. @echo off
  2. setlocal enabledelayedexpansion
  3. for /r %%i in (*.txt) do (set /p a=<"%%i"
  4. ren "%%i" "!a:~1,5!.txt")
  5. pause
复制代码

TOP

回复 4# zaqmlp


    文字中的   T  提取不出来,丢失的都是T

TOP

回复 5# cpc19960

丢失的字符的文本打包上传发出来
提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

回复 4# zaqmlp

我想把第一行的第2-6到字符提取出来做文件名
    好像你弄的程序里有的只提出来的四个字符,丢了一些。不知道怎么回事。

TOP

回复 3# cpc19960
存为bat文件,跟你的txt放一起运行
提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

回复 2# zaqmlp


    如果可以用我会赞助的,请问这个是放在命令行跑吗,另外哪些参数需要我更改呢?

TOP

本帖最后由 zaqmlp 于 2019-4-2 19:15 编辑
  1. @echo off
  2. mode con lines=2000
  3. set info=互助互利,代码可用,支付宝扫码头像,感谢赞助
  4. rem 有问题,加QQ956535081及时沟通
  5. title %info%
  6. start mshta VBScript:Execute("msgbox(""%info%""):close")
  7. cd /d "%~dp0"
  8. powershell ^
  9.     dir . *.txt^|?{$_ -is [System.IO.FileInfo]}^|%%{^
  10.         $text=@(gc $_.FullName);^
  11.         $fname=$text[0].trim() -replace '[/:\""\t*?^|^<^>\\]','';^
  12.         $newname=$fname+$_.Extension;^
  13.         if((-not (test-path -liter ($newname))) -and ($fname -ne '')){^
  14.             write-host ($_.Name+' --^> '+$newname);^
  15.             move -liter $_.Name $newname -force;^
  16.         };^
  17.     }
  18. pause
复制代码
提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

返回列表