77七

回复 30# feiyan


   
我刚测试了一下，代码正常，1.txt是否是代码中要求的格式？

a|1.pdf|2*.pdfCOPY

877

回复 31# 77七


    大佬在吗？看一下我的最新帖吧~求助您

feiyan

回复 31# 77七
这个我试了下，不知道为什么，就是1.txt 里面，如果我的文件夹和文件名多一些，第二个文件夹和之后文件夹就没有显示。当我只是个文件夹和单个文件就没有这个问题。
举例：
A|1*|2*|3*|
B|1*|2*|
C|3*|*00*|
这样也不行
A|1*||2*||3*|
B|1*||2*|
C|3*||*00*|
下面这这个模式没问题
A|1*|
B|1*|
C|3*|

77七

回复 33# feiyan


  

A|1*|2*|3*|COPY

尽量不要修改格式，虽然这样也没错，就怕把代码也随意改了，格式中包括含有空格的文件名等等，不需要加引号了。
上一个代码，我用你的格式，测试也没发现问题，
可以试试点击上一个代码的 copy 按钮 复制代码，不要选中复制。
或者试试以下的

@echo off
rem 文本格式 a|1.pdf|2*.pdf
rem 批处理保存为ansi编码格式
cd /d "C:\Users\Administrator\Desktop\test1\"
for /f "tokens=1* delims=|" %%a in ('type "1.txt"') do (
	echo 创建文件夹 "%%a"
	md "%%a" 2>nul
	set "folder=%%a"
	set "str="
	call :1 "%%b"
	echo=
)
pause & exit
 
	:1
	if not defined str (
		set "str=%~1"
	)
	for /f "tokens=1* delims=|" %%x in ("%str%") do (
		echo 查找文件 "%%x"
		if exist "D:\文件数据库\%%x" (
			copy "D:\文件数据库\%%x" "%folder%"
		) else (
			>>log.txt echo %%x
		)
		if "%%y" neq "" (
			set "str=%%y"
			goto :1
		) else (
			exit /b
		)
	)COPY

feiyan

回复 34# 77七 这个程序完美

feiyan

回复 34# 77七 hi 77,非常感谢，想你喝杯咖啡，给我个支付宝的二维码吧。

77七

回复 36# feiyan




谢谢！请以你的名义捐助到论坛吧！
http://bbs.bathome.net/thread-10403-1-1.html

feiyan

回复 37# 77七 如君所愿，已经向论坛捐助50元。祝77中秋快乐。

feiyan

回复 34# 77七 七七，能帮忙把添加个功能，希望能遍历查找D:文件数据库的多层子文件夹，因为有些文件在子文件夹或孙文件夹内。文件夹可能有好几层的。

77七

回复 39# feiyan


  

@echo off
rem 文本格式 a|1.pdf|2*.pdf
rem 批处理保存为ansi编码格式
cd /d "C:\Users\Administrator\Desktop\test1\"
for /f "tokens=1* delims=|" %%a in ('type "1.txt"') do (
	echo 创建文件夹 "%%a"
	md "%%a" 2>nul
	set "folder=%%a"
	set "str="
	call :1 "%%b"
	echo=
)
pause & exit
 
	:1
	if not defined str (
		set "str=%~1"
	)
	for /f "tokens=1* delims=|" %%x in ("%str%") do (
		echo 查找文件 "%%x"
		(for /f "delims=" %%i in ('dir /b /s /a-d "d:\文件数据库\%%x" 2^>nul') do (
			copy "%%i" "%folder%"
		)) || (
			>>log.txt echo %%x
		)
		if "%%y" neq "" (
			set "str=%%y"
			goto :1
		) else (
			exit /b
		)
	)COPY

feiyan

回复 40# 77七 感谢，完美。