[已解决]批处理如何读取EXCEL信息给指定目录下的文件创建文件夹且按照序号归类？

liaoguinan

如何读取EXCEL信息给指定目录下的文件创建文件夹且按照序号归类

例如第一条就是创建1.1.1.1-1-1（小明）文件夹并把图片1-3移动到这个文件夹下
第二条就是创建1.1.1.1-1-4（小明）文件夹并把图片4移动到这个文件夹下以此类推

Batcher

回复 1# liaoguinan


    请把Excel文件上传到网盘以便测试代码

liaoguinan

回复 2# Batcher


    链接：https://pan.baidu.com/s/1yks3JThkBk0Qh6ajOoalhA?pwd=3903 提取码：3903

77七

把文件另存为 csv格式

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. for /f "useback tokens=1-5 delims=," %%a in ("1.csv") do (
   
4.         set /a n+=1
   
5.         set m=%%b
   
6.         call :1 !n!
   
7.         md "%%a%%b%%c%%d%%e"
   
8.         for /l %%l in (%%b,1,!m!) do (
   
9.                 set k=00%%l
   
10.                 move "!k:~-3!.jpg" "%%a%%b%%c%%d%%e"
    
11.         )
    
12. )
    
13. pause & exit
    
14. 
    
15.         :1
    
16.         for /f "useback skip=%~1 tokens=1-5 delims=," %%a in ("1.csv") do (
    
17.                 set /a m=%%b-1
    
18.                 exit /b
    
19.         )
    
20.         exit /b

复制代码

liaoguinan

回复 4# 77七


    for /f "useback tokens=1-5 delims=," %%a in ("C:\Users\Administrator\Desktop\1.csv") do (


大神这一段的这个路径如何修改才能脚本正常呢？貌似我这样修改会出错，就是想读取桌面这个

77七

回复 5# liaoguinan


这样改没错的，是不是遗漏了一处？一共有两处需要修改。
   路径如果有中文，批处理需要保存为ansi编码格式。

liaoguinan

回复 6# 77七


    @echo off
setlocal enabledelayedexpansion
for /f "useback tokens=1-5 delims=," %%a in ("C:\Users\Administrator\Desktop\1.csv") do (
        set /a n+=1
        set m=%%b
        call :1 !n!
        md "%%a%%b%%c%%d%%e"
        for /l %%l in (%%b,1,!m!) do (
                set k=00%%l
                move "!k:~-3!.jpg" "%%a%%b%%c%%d%%e"
        )
)
pause & exit

        :1
        for /f "useback skip=%~1 tokens=1-5 delims=," %%a in ("C:\Users\Administrator\Desktop\1.csv") do (
                set /a m=%%b-1
                exit /b
        )
        exit /b


两处都改了，运行提示“系统找不到文件C:\Users\Administrator\Desktop\1.csv”

批处理文件和1.csv在处理的文件夹下运行是没问题的正常，但是把1.csv移到桌面就不行了

Batcher

回复 4# 77七


    useback改成usebackq

liaoguinan

回复 8# Batcher


还是一样

77七

回复 9# liaoguinan


  

1. @echo off
   
2. if not exist "C:\Users\Administrator\Desktop\1.csv" (
   
3.         echo 找不到文件
   
4. )
   
5. pushd "C:\Users\Administrator\Desktop"
   
6. dir /b /s /a-d 1.csv
   
7. pause

复制代码

确定1.csv在desktop下吗

liaoguinan

回复 10# 77七


    对的

77七

回复 11# liaoguinan


   10楼代码，试了吗，找得到文件吗？

liaoguinan

回复 12# 77七

liaoguinan

回复 12# 77七


    还有一个问题就是最后一个文件夹如果不是一张的话好像不会把其他的放进去呢？

比如最后一个文件夹是图片号10-15页码这种的话他只会把图片号10放进去

77七

回复 14# liaoguinan


   
那就别修改csv文件了。

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. for /f "useback tokens=1-5 delims=," %%a in ("1.csv") do (
   
4.         set /a n+=1
   
5.         set m=999
   
6.         call :1 !n!
   
7.         md "%%a%%b%%c%%d%%e"
   
8.         for /l %%l in (%%b,1,!m!) do (
   
9.                 set k=00%%l
   
10.                 if exist "!k:~-3!.jpg" (
    
11.                         move "!k:~-3!.jpg" "%%a%%b%%c%%d%%e"
    
12.                 )
    
13.         )
    
14. )
    
15. pause & exit
    
16. 
    
17.         :1
    
18.         for /f "useback skip=%~1 tokens=1-5 delims=," %%a in ("1.csv") do (
    
19.                 set /a m=%%b-1
    
20.                 exit /b
    
21.         )
    
22.         exit /b

复制代码