[文件操作] 批处理如何从txt文本中读取文件名并对将指定目录下的指定扩展名的文件进行重命名

我来了

想弄个批处理　读取TXT批理改名的
1.某目录下存在　*.jpg
2.读取  改名.txt(一行一个中文的文件名)
3.改成上面　(一行一个).扩展名  不变。



看到sina某博客上面有一篇，大意跟这个差不多，不过要用到excel填充功能生成；ren 一列，更名前后的文件名各一列，完事运行批处理，
觉得那种比较麻烦，求个一劳永逸的，谢谢大家。

BAT-VBS

回复 8# 我来了


    *.jpg，改名.txt，test.bat放到同一个目录下面

hankerer

回复 1# 我来了


    没看明白你想表达的意思。

我来了

回复  我来了


    直接用
BAT-VBS 发表于 2013-1-27 22:41

>>%temp%\bathome.txt type 改名.txt




bathome.txt
改名.txt

不明白，这两个文件要放入哪个目录呢？路径如何修改呢？

BAT-VBS

回复 6# 我来了


    直接用

我来了

BAT-VBS 发表于 2013-1-27 19:22

    大哥啊，请明示下，你这个该咋用呢？

BAT-VBS

@echo off
setlocal enabledelayedexpansion
>%temp%\bathome.txt echo,
>>%temp%\bathome.txt type 改名.txt
set n=1
for /f "delims=" %%a in ('dir /b *.jpg') do (
    set skip=skip=!n!
    call :changename "!skip!" "%%a"
    set /a n+=1
)
goto :eof

:changename
for /f "%~1 delims=" %%b in (%temp%\bathome.txt) do (
    ren "%~2" "%%b.jpg"
    goto :eof
)
复制代码

我来了

从论坛中得到消息，又下载了个叫　　拖把更名，结果也有这个功能，但还是想知道答案。

我来了

因为直接写入的话，会出现乱码，所以上面改成了^v
汗~~~

我来了

我用按键精灵结合TC，　编了一个

a=Plugin.File.ReadFileEx("C:\Documents and Settings\Administrator\桌面\批量改名.txt")
b = Split(a, "|")

For i = 0 To UBound(b) - 1

Delay 50
KeyDown "F2", 1
Call Plugin.Sys.SetCLB(b(i))
b(i)=Plugin.Sys.GetCLB()
Delay 50
KeyUp "F2", 1
Delay 50
KeyDown "Ctrl", 1
Delay 50
KeyDown "V", 1
Delay 79
KeyUp "V", 1
Delay 39
KeyUp "Ctrl", 1
Delay 50
KeyDown "Enter", 1
Delay 78
KeyUp "Enter", 1
Delay 50
KeyDown "Down", 1
Delay 74
KeyUp "Down", 1
   
next

效果尚可，但觉得不如　批处理的实在