无忧启动论坛

标题: 如何根据文件名列表批量搜索文件 [打印本页]

作者: overcet6 时间: 2014-3-20 14:39
标题: 如何根据文件名列表批量搜索文件
本帖最后由 overcet6 于 2014-3-20 17:34 编辑

比如我要找的文件时13512345678.MP3这样的文件，是有500文件列表保存在TXT中
要在一个大文件夹有10000个文件里搜索，但是这里面的文件名称是形如：1001A13512345678B20140303133232323C16.MP3
这样的文件，有可能有重复，就是一个要查找的号码对应两个或三个这样的长文件名的文件，

根据列表找到文件，把找到的文件重新命名成列表里的名字。如果重命名后文件名重复，自动在后面加“-1”这样的字符以区分
当然了，如果要是能复制出来，或者剪切出来，要新的文件夹里更好了，

请问这种要是用DOS批处理，该怎么做~~~~~~~

我现在都是用dos命令导出文件名列表在excel里，然后再用简单的批处理ren改名字，有点麻烦
有没有一个批处理文件就能一键搞定的，

这里面有一点就是有可能有重复的情况，找了很多软件都不智能，没有判断重复的选项。

最好就是，指定要搜索的源文件夹，指定文件名列表，指定目标文件夹，然后一键搞定，有重复的自动加序号区分。

作者: pznpt 时间: 2014-3-20 21:32
给一个另类解
假设列表文件list.txt，待搜索文件夹D:\ABC，代码保存为test.bat与list.txt放在一起

Set re=Nothing ''&cls&dir /a-d/b/s "D:\ABC"|cscript -nologo -e:vbscript "%~f0" &pause&exit/b
Set fso = CreateObject("Scripting.FileSystemObject")
s = WScript.StdIn.ReadAll
Set file = fso.OpenTextFile("List.txt", 1)
while not file.AtEndOfStream
strLine = Trim(file.ReadLine)
If strLine <> "" Then
name = fso.GetBaseName(strLine)
ext = fso.GetExtensionName(strLine)
pattern = "(.+\\).*" & name & "[^\\]*\." & ext
RenMyFile pattern, name, "." & ext
End If
wend
Sub RenMyFile(strPattern, strName, strExt)
Set re = New RegExp
re.Pattern = strPattern
re.Global = true
re.IgnoreCase = true
For Each m In re.Execute(s)
path = m.SubMatches(0)
strNewName = strName & strExt
n = 0
while fso.FileExists(path & strNewName)
n = n + 1
strNewName = strName & "-" & n & strExt
wend
fso.GetFile(m).Name = strNewName
Next
End Sub

复制代码

作者: dos时代菜鸟 时间: 2014-3-20 22:06
用两个 for 加上 dir /b /s 和 find 就可以搞定。
太晚了，明天如果还需要，我给你研究研究。

作者: dos时代菜鸟 时间: 2014-3-21 10:44
本帖最后由 dos时代菜鸟于 2014-3-21 10:55 编辑

脚本设定文件类型 jpg 路径 e:\

@echo off && setlocal ENABLEDELAYEDEXPANSION
set p1=e:\
set ext=jpg
dir %p1%*.%ext% /b /s /a-d >%temp%\f2.txt
echo 搜索路径：!p1!...........
for /f "delims=" %%c in (file.txt) do (
set name0=%%~nc
echo 正在搜索并处理 !name0!.............
for /f "skip=2 delims=" %%i in ('find /i "%%~nc" "%temp%\f2.txt"') do (
set oldn=%%i
set name=%%~dpi\!name0!
call :nn
echo "!oldn!"-^>"!name0!_!n1!.!ext!"
ren "!oldn!" "!name0!_!n1!.!ext!"
)
)
pause
del "%temp%\f2.txt"
goto :eof
:nn
set /a n1=0
:nn2
if exist "!name!_!n1!.!ext!" (
set /a n1=!n1!+1
goto nn2
)

复制代码

捕获.JPG (43.13 KB, 下载次数: 74)

捕获.JPG (9.77 KB, 下载次数: 71)

作者: overcet6 时间: 2014-3-21 11:48

pznpt 发表于 2014-3-20 21:32
给一个另类解
假设列表文件list.txt，待搜索文件夹D:\ABC，代码保存为test.bat与list.txt放在一起

这个试了一下，很好用，谢谢
老大别怪我得寸进尺啊，要是list.txt里有找不到的号码，能不能显示出来。最好是能够保存在一个txt里。或者不显示直接保存出来在txt里

作者: freesoft00 时间: 2014-3-21 13:08
如果是搜索指定的文件或者一类的文件，然后删除，同时把删除的文件的带绝对路径的信息写入到一个文本文件改如何写。再或者删除文件删除失败的文件写入到一个文本如何写。

作者: overcet6 时间: 2014-3-21 14:17
本帖最后由 overcet6 于 2014-3-24 08:50 编辑

dos时代菜鸟发表于 2014-3-21 10:44
脚本设定文件类型 jpg 路径 e:\

谢谢帮忙，这个试了一下，也不错！！

作者: overcet6 时间: 2014-3-21 14:21

freesoft00 发表于 2014-3-21 13:08
如果是搜索指定的文件或者一类的文件，然后删除，同时把删除的文件的带绝对路径的信息写入到一个文本文件改 ...

如果你要搜索的文件都在同一个文件夹，那要绝对路径有何用呢？如果纯用DOS我不会，要是用软件，倒是好办，你把所有要搜索的文件通过dir /b>123.xls的方法导出到EXCEL，再在excel里和你要找的文件列表vlookup，不就找到删除失败的文件了？

作者: pznpt 时间: 2014-3-21 15:00
本帖最后由 pznpt 于 2014-3-21 15:05 编辑

overcet6 发表于 2014-3-21 11:48
这个试了一下，很好用，谢谢
老大别怪我得寸进尺啊，要是list.txt里有找不到的号码，能不能显示出来。 ...

在19与20行之间插入一行：

If Not re.Test(s) Then fso.OpenTextFile("NoFound.txt", 8, true).WriteLine strName & strExt

复制代码

试试吧

作者: overcet6 时间: 2014-3-21 17:20

pznpt 发表于 2014-3-21 15:00
在19与20行之间插入一行：

试试吧

好的，谢谢

作者: dos时代菜鸟 时间: 2014-3-23 21:02
本帖最后由 dos时代菜鸟于 2014-3-23 21:07 编辑

overcet6 发表于 2014-3-21 14:17
谢谢帮忙，因为我是要在相同类型的文件夹里找到部分文件，省去了用windows自带的搜索工具一个一个搜索， ...

何为：相同类型的文件夹

要搜索各类文件，你直接把 jpg 换成 * 就可以了。这个脚本功能不只是搜索还有更名。

唉，不会是又一个只要鱼而不肯要渔的吧。呵呵。

作者: overcet6 时间: 2014-3-24 08:59

dos时代菜鸟发表于 2014-3-23 21:02
何为：相同类型的文件夹

要搜索各类文件，你直接把 jpg 换成 * 就可以了。这个脚本功能不只是 ...

不好意思，刚开始看到JPG的把我弄懵了，刚才试了一下，真不错，哈哈，谢谢老大，

欢迎光临无忧启动论坛 (http://bbs.wuyou.net./)