如何根据文件名列表批量搜索文件

overcet6

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

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

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


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

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



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

overcet6

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

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

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

dos时代菜鸟

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

何为：相同类型的文件夹

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

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

overcet6

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

试试吧

好的，谢谢

pznpt

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

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

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

复制代码

试试吧

overcet6

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

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

overcet6

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

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

freesoft00

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

overcet6

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

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

dos时代菜鸟

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

1. @echo off && setlocal ENABLEDELAYEDEXPANSION
   
2. set p1=e:\
   
3. set ext=jpg
   
4. 
   
5. dir %p1%*.%ext% /b /s /a-d >%temp%\f2.txt
   
6. echo 搜索路径：!p1!...........
   
7. for /f "delims=" %%c in (file.txt) do (
   
8. set name0=%%~nc
   
9. echo 正在搜索并处理 !name0!.............
   
10. for /f "skip=2 delims=" %%i in ('find /i "%%~nc" "%temp%\f2.txt"') do (
    
11. set oldn=%%i
    
12. set name=%%~dpi\!name0!
    
13. call :nn
    
14.    echo "!oldn!"-^>"!name0!_!n1!.!ext!"
    
15.    ren "!oldn!" "!name0!_!n1!.!ext!"
    
16. )
    
17. )
    
18. pause
    
19. del "%temp%\f2.txt"
    
20. goto :eof
    
21. :nn
    
22. set /a n1=0
    
23. :nn2
    
24. if exist "!name!_!n1!.!ext!" (
    
25.         set /a n1=!n1!+1
    
26.              goto nn2
    
27.         )
    

复制代码

dos时代菜鸟

用两个 for 加上 dir /b /s 和 find 就可以 搞定 。
太晚了 ，明天 如果 还需要 ，我 给你研究研究 。

pznpt

给一个另类解
假设列表文件list.txt，待搜索文件夹D:\ABC，代码保存为test.bat与list.txt放在一起

1. Set re=Nothing ''&cls&dir /a-d/b/s "D:\ABC"|cscript -nologo -e:vbscript "%~f0" &pause&exit/b
   
2. Set fso = CreateObject("Scripting.FileSystemObject")
   
3. s = WScript.StdIn.ReadAll
   
4. Set file = fso.OpenTextFile("List.txt", 1)
   
5. while not file.AtEndOfStream
   
6.     strLine = Trim(file.ReadLine)
   
7.     If strLine <> "" Then
   
8.         name = fso.GetBaseName(strLine)
   
9.         ext = fso.GetExtensionName(strLine)
   
10.         pattern = "(.+\\).*" & name & "[^\\]*\." & ext
    
11.         RenMyFile pattern, name, "." & ext
    
12.     End If
    
13. wend
    
14. 
    
15. Sub RenMyFile(strPattern, strName, strExt)
    
16.     Set re = New RegExp
    
17.     re.Pattern = strPattern
    
18.     re.Global = true
    
19.     re.IgnoreCase = true
    
20.     For Each m In re.Execute(s)
    
21.         path = m.SubMatches(0)
    
22.         strNewName = strName & strExt
    
23.         n = 0
    
24.         while fso.FileExists(path & strNewName)
    
25.             n = n + 1
    
26.             strNewName = strName & "-" & n & strExt
    
27.         wend
    
28.         fso.GetFile(m).Name = strNewName
    
29.     Next
    
30. End Sub

复制代码