批处理之家 - Powered by Discuz! Board

标题: [文件操作] [已解决]批处理怎样遍历子目录查找文件改名？ [打印本页]

作者: swanseabrian 时间: 2021-11-6 16:43 标题: [已解决]批处理怎样遍历子目录查找文件改名？

本帖最后由 swanseabrian 于 2021-11-7 09:32 编辑

遍历子目录查找文件改名

excel a b两列,

a列是要查找的文件名, b列是要修改的文件名

在目录文件夹中(包含子文件夹)中
查找a列中的文件名,查找到后,对应修改为 b列中的文件名,这个要怎么操作,
谢谢

作者: idwma 时间: 2021-11-6 19:45

本帖最后由 idwma 于 2021-11-6 19:49 编辑

#@&cls&powershell "type '%~0'|out-string|iex"&pause&exit
$a=New-Object -ComObject Excel.Application
$b=$a.Workbooks.Open("f:\test.xlsx")
$c=$b.sheets.item(1)
for($i=1;"$($c.Range("a$i").Text)" -ne "";$i++){
    [hashtable]$d+=@{"$($c.Range("a$i").Text)"="$($c.Range("b$i").Text)"}
}
$a.Workbooks.Close()
foreach($e in dir -r){
    if($d.containskey("$e.name")){ren $e.fullname $d[$e.name]}
}
复制代码

作者: swanseabrian 时间: 2021-11-6 19:54

回复 2# idwma

估计也只有powershell可以做了吧

作者: swanseabrian 时间: 2021-11-6 20:02

回复 2# idwma

不能对 Null 值表达式调用方法。
所在位置行:10 字符: 8
+    if($d.containskey("$e.name")){ren $e.fullname $d[$e.name]}
+       ~~~~~~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo       : InvalidOperation: (

[]，RuntimeException
+ FullyQualifiedErrorId : InvokeMethodOnNull

不能对 Null 值表达式调用方法。
所在位置行:10 字符: 8
+    if($d.containskey("$e.name")){ren $e.fullname $d[$e.name]}
+       ~~~~~~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo       : InvalidOperation: (:) []，RuntimeException
+ FullyQualifiedErrorId : InvokeMethodOnNull

不能对 Null 值表达式调用方法。
所在位置行:10 字符: 8
+    if($d.containskey("$e.name")){ren $e.fullname $d[$e.name]}
+       ~~~~~~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo       : InvalidOperation: (:) []，RuntimeException
+ FullyQualifiedErrorId : InvokeMethodOnNull

不能对 Null 值表达式调用方法。
所在位置行:10 字符: 8
+    if($d.containskey("$e.name")){ren $e.fullname $d[$e.name]}
+       ~~~~~~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo       : InvalidOperation: (:) []，RuntimeException
报的这是啥错误

作者: idwma 时间: 2021-11-6 20:11

回复 4# swanseabrian

表格文件的路径填对了吗,安装有excel吗

作者: swanseabrian 时间: 2021-11-6 20:17

回复 5# idwma

修改成ansi可以了,但是没改名,哪里的问题

作者: idwma 时间: 2021-11-6 20:26

本帖最后由 idwma 于 2021-11-6 20:33 编辑

回复 6# swanseabrian

#@&cls&powershell "type '%~0'|out-string|iex"&pause&exit
$a=New-Object -ComObject Excel.Application
$b=$a.Workbooks.Open("f:\test.xlsx")
$c=$b.sheets.item(1)
for($i=1;"$($c.Range("a$i").Text)" -ne "";$i++){
    [hashtable]$d+=@{"$($c.Range("a$i").Text)"="$($c.Range("b$i").Text)"}
}
$a.Workbooks.Close()
foreach($e in dir -r){
    if($d.containskey($e.name)){ren $e.fullname $d[$e.name]}
}
复制代码

作者: swanseabrian 时间: 2021-11-6 20:36

回复 7# idwma

powershell真厉害

作者: swanseabrian 时间: 2021-12-3 22:40

回复 7# idwma

老铁,现在有个同样的问题,但是要改的文件名,不带后缀, 这个要怎么加个后缀呀,

之前是找a列的数据文件,改成b列的文件名
现在是要给b列的文件名加个后缀需要,例如后缀是 .jpg,
这个要怎么加上去呢,
就在下面代码里加

#@&cls&powershell "type '%~0'|out-string|iex"&pause&exit
$a=New-Object -ComObject Excel.Application
$b=$a.Workbooks.Open("C:\Users\Administrator\Desktop\bat\1114\1203\图片\图片\经理 - 副本\经理.xlsx")
$c=$b.sheets.item(1)
for($i=1;"$($c.Range("a$i").Text)" -ne "";$i++){
    [hashtable]$d+=@{"$($c.Range("a$i").Text)"="$($c.Range("b$i").Text)"}
}
$a.Workbooks.Close()
foreach($e in dir -r){
    if($d.containskey($e.name)){ren $e.fullname $d[$e.name]+".jpg"}
}
复制代码

最后一行,我加的,显示错误

作者: idwma 时间: 2021-12-4 16:49

回复 9# swanseabrian

if($d.containskey($e.name)){ren $e.fullname ("$($d[$e.name])"+".jpg")}
复制代码

欢迎光临批处理之家 (http://bbs.bathome.net/)