[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[文件操作] [已解决]批处理如何根据文件名把Word文件放入内?

本帖最后由 liaoguinan 于 2024-1-16 15:50 编辑



如图如何根据word后缀3位数判断对应文件夹,把word文件剪切进对应的文件?
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2

回复 1# liaoguinan
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. for /f "tokens=1,2 delims=-" %%a in ('dir /b /a-d *.doc') do (
  4.     set "FileNum=%%b"
  5.     set "FileNum=!FileNum:~0,3!"
  6.     md "!FileNum!" 2>nul
  7.     move "%%a-%%b" "!FileNum!\"
  8. )
复制代码
测试代码之前请做好备份

TOP

不知楼主的表述是否准确,但是按照楼主的图示,可以这样:
  1. for /f "delims=" %%i in ('dir /b /a-d *.doc') do if exist "%%~ni" move "%%i" "%%~ni\"
复制代码

TOP

回复 3# qixiaobin0715


    好像是可以了,但是我描述好像搞错了




应该是这样的格式

TOP

本帖最后由 qixiaobin0715 于 2024-1-16 14:42 编辑

你的需求有点奇葩:
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. for /f "tokens=1* delims=-" %%i in ('dir /b /ad') do (
  4.     set str=%%j
  5.     set str=!str:~,3!
  6.     if defined str set _!str!=%%i-%%j
  7. )
  8. for /f "tokens=1* delims=-" %%i in ('dir /b /a-d *.doc') do (
  9.     set str=%%j
  10.     set str=!str:~,3!
  11.     if not "%%j"=="" (
  12.         for %%k in (!str!) do (
  13.             if defined _%%k move "%%i-%%j" "!_%%k!\"
  14.         )
  15.     )
  16. )
  17. pause
复制代码
1

评分人数

TOP

回复 5# qixiaobin0715


    运行没见有反应?

TOP

回复 6# liaoguinan
代码已修改。

TOP

回复 7# qixiaobin0715


    感谢感谢

TOP

返回列表