Board logo

标题: [文本处理] 批处理如何根据Excel表格列出的文件与文件夹对应的关系将文件移动到相应文件夹里？ [打印本页]
作者: michaelaa    时间: 2016-5-21 12:19     标题: 批处理如何根据Excel表格列出的文件与文件夹对应的关系将文件移动到相应文件夹里？

本帖最后由 pcl_test 于 2016-5-21 14:00 编辑

有一个文件夹ALL包含了所有文件，文件名以10001,10002........11000.PDF几千个文件，现在想将这些文件归档。
手上有一份清单Excel表，里面有信息归类如下:
10001.PDF     A
10002.PDF     B
10003.PDF     C
10004.PDF     A
10005.PDF     C
10006.PDF     C
10007.PDF     A
10008.PDF     C
10009.PDF     C
.
.
.

然后以A,B,C.....创建文件夹，将对应的PDF文件移动到文件夹里面。
假设所有的文件都在D盘，请老师指教如何操作，谢谢！
作者: michaelaa    时间: 2016-5-21 13:42

有老师帮帮我吗？
作者: /zhqsystem/zhq    时间: 2016-5-21 13:44

本帖最后由 /zhqsystem/zhq 于 2016-5-21 15:45 编辑

回复 1# michaelaa
文件超过1K过大不传了
红色区域,被论坛过滤改成空格了,无语
  1. @echo off&setlocal enabledelayedexpansion

  2. for /f "delims=" %%i in ('type ".\all.txt"')do (

  3. set "name=%%i"

  4. set "name=!name:TAB标点手动写入=\!"

  5. for /f "delims=" %%j in ("\!name!")do (

  6.   if not exist "%~f1\%%~pj\" md "%~f1\%%~pj"

  7.   move,"%~f1\%%~nxj" "%~f1\%%~pj"

  8. )

  9. )

  10. pause
复制代码

文本格式[注意不是空格是TAB的键的标点,word本身复制出的列就是这个格式不需要改动]
ATAB标点10001.PDF
作者: michaelaa    时间: 2016-5-21 13:46

回复 3# /zhqsystem/zhq
请问是回答我的问题吗？
作者: /zhqsystem/zhq    时间: 2016-5-21 13:55

回复 4# michaelaa
3楼已更新,按错键好几次没编辑完就回,无语
作者: michaelaa    时间: 2016-5-21 14:02

回复 3# /zhqsystem/zhq
老师你好，谢谢你的回答，复制出来的文本，没有写入你的代码啊。
作者: michaelaa    时间: 2016-5-21 14:29

回复 3# /zhqsystem/zhq

老师是复制出这样子吗？然后怎么操作
A        10001.PDF
B        10002.PDF
C        10003.PDF
A        10004.PDF
C        10005.PDF
C        10006.PDF
A        10007.PDF
C        10008.PDF
C        10009.PDF
A        10010.PDF
B        10011.PDF
C        10012.PDF
A        10013.PDF
C        10014.PDF
C        10015.PDF
A        10016.PDF
C        10017.PDF
C        10018.PDF
A        10019.PDF
作者: /zhqsystem/zhq    时间: 2016-5-21 15:26

回复 7# michaelaa
代码处已更新附带说明,由于文件过大比代码字数多没有上传
作者: michaelaa    时间: 2016-5-21 16:08

回复 8# /zhqsystem/zhq

诶，还是不行，指定的路径无效。
作者: michaelaa    时间: 2016-5-21 16:18

回复 3# /zhqsystem/zhq

按照你的指点，做了两个文件，运行Bat，但是提示指定的路径无效。
作者: 回家路上    时间: 2016-5-21 16:39

  1. @echo off

  2. :: 放文件的目录

  3. set p=%~dp0FileCenter

  4. :: All.txt和脚本放一起

  5. for /f "tokens=1,* delims=	 " %%i in (All.txt) do (

  6. 	mkdir "%p%\%%i" 2>nul

  7. 	if exist "%p%\%%j" (

  8. 		move "%p%\%%j" "%p%\%%i"

  9. 	) else echo;%%j文件不存在，请核对！

  10. )

  11. pause & exit /b
复制代码
作者: michaelaa    时间: 2016-5-21 18:07

回复 11# 回家路上

谢谢老师回复，但是还是不成功！返回文件不存在，请核对！
作者: /zhqsystem/zhq    时间: 2016-5-21 19:27

回复 10# michaelaa
取值拖拽是文件夹并非是文件也就是将all文件夹拖拽到批处理上,
all.txt要放在BAT的所在目录即可生效,
我的预想是不可能每次拖拽文件,上万个拖拽到猴年马月啊,一个文件夹全部搞定



欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2