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

[文件操作] 求助批处理怎样按照文件名里面的数字放入对应的文件夹?

问题描述如下:E盘下,名称为“源文档”的文件夹中有60个文本文档,文本的名称如“01几何”,“03英语”等这种数字加汉字的形式。怎样写出批处理能将这些文本按顺序放入其他文件夹中?如“01几何”放入名称为“1号文件夹”的文件夹里,“02地理”放入“2号文件夹”,“03英语”放入“3号文件夹”,以此类推,最后把60个文本都放完60个文件夹为止。麻烦各位高手帮一下忙,谢谢!

回复 2# uhjjhjff11d


    非常感谢这位高手,我试试。好人一生平安

TOP

回复 2# uhjjhjff11d


请教一下专家,那如果是下面这样的情况怎么求解?

含有60个文本文档的A文件夹共有35个,然后这35个文件夹当中的文本(已经按照默认排序),第一个(A01文件夹)里的第1个文档,放到B01文件夹当中的01号文件夹;第一个A01文件夹里的第2个文档,放到B02文件夹当中的01号文件夹……第一个A01文件夹里的第35个文档,放到B35文件夹当中的01号文件夹。
以此类推,第35个(A35文件夹)里的第1个文档,放到B01文件夹当中的35号文件夹……第35个(A35文件夹)里的第34个文档,放到B34文件夹当中的35号文件夹,第35个(A35文件夹)里的第35个文档,放到B35文件夹当中的35号文件夹。

这样的话,批处理应该怎么做?

麻烦您了

TOP

本帖最后由 myh17909 于 2019-11-6 00:03 编辑

回复 2# uhjjhjff11d


    我上面的表述能看清楚吗专家?我可能说的比较啰嗦一点,我再组织一下

TOP

本帖最后由 myh17909 于 2019-11-6 14:44 编辑

回复 2# uhjjhjff11d


这么跟您说吧,文本文档存放的35个文件夹是A01——A35。凡是A01文件夹里的60个文本,全部按默认排序一个一个的放到B01——B60的第1个子文件夹;A02文件夹里的60个文本,全部放到B01——B60的第2个子文件夹;以此类推,A13文件夹里的60个文本,全部放到B01——B60的第13个子文件夹,直到A35文件夹里的60个文本,全部放到B01——B60的第35个子文件夹。

TOP

这样试试呢
  1. @echo off&setlocal enabledelayedexpansion
  2. for /f "delims=" %%a in ('dir /b /ad A*') do (
  3.      for /f "delims=" %%b in ('dir /b "%%a"') do (
  4.           set filename=%%b
  5.           copy "%%a\%%b" "B!filename:~,2!\"
  6.     )
  7. )
  8. pause
复制代码

TOP

回复 6# terse


    谢谢您,我试试了给您反馈

TOP

  1. if ($PSVersionTable.PSVersion.Major -lt 3) { 'PS 版本太低,退出'; cmd /c Pause`&exit }
  2. $folderB = '你的B文件夹名称';
  3. $folderA = '你的A文件夹名称';
  4. ls ".\$folderA" -Dir | % {
  5. iex ([Text.Encoding]::GetEncoding(1200).GetString([convert]::FromBase64String('JABGAEQAIAA9ACAAKAAkAF8ALgBQAFMAQwBoAGkAbABkAE4AYQBtAGUAKQAuAHIAZQBwAGwAYQBjAGUAKAAnAEEAJwAsACAAJwAnACkAOwAKACAAIAAgACAAJABmAGkAbABlAHMAIAA9ACAAKABsAHMAIAAiACQAKAAkAF8ALgBGAHUAbABsAE4AYQBtAGUAKQBcACoALgB0AHgAdAAiACAALQBmAGkAbABlACAAfAAgAFMAbwByAHQAKQAuAEYAdQBsAGwATgBhAG0AZQA7AAoAIAAgACAAIAAwAC4ALgAoACQAZgBpAGwAZQBzAC4AQwBvAHUAbgB0ACAALQAgADEAKQAgAHwAIAAlACAAewAKACAAIAAgACAAIAAgACAAIAAkAEIAIAA9ACAAIgAuAFwAJABmAG8AbABkAGUAcgBCAFwAIgAgACsAIAAnAEIAJwAgACsAIAAoACQAXwAgACsAIAAxACkALgBUAG8AUwB0AHIAaQBuAGcAKAAnADAAMAAnACkAIAArACAAJwBcACcAIAArACAAJABGAEQAOwAKACAAIAAgACAAIAAgACAAIABtAGQAIAAkAEIAIAAtAGUAYQAgACcAUwBpAGwAZQBuAHQAbAB5AEMAbwBuAHQAaQBuAHUAZQAnACAAfAAgAG8AdQB0AC0AbgB1AGwAbAA7AAoAIAAgACAAIAAgACAAIAAgAG0AbwB2AGUAIAAkAGYAaQBsAGUAcwBbACQAXwBdACAALQBkAGUAcwB0ACAAJABCACAALQBGAG8AcgBjAGUAIAAtAHYAZQByAGIAOwAKACAAIAAgACAAfQA=')))
  6. }
  7. cmd /c set/p=全部完成 退出<nul`&pause>nul`&exit
复制代码
QQ: 己阵亡
脚本优先 [PowerShell win10]

TOP

回复 8# xczxczxcz


    谢谢您,辛苦了,好人一生平安

TOP

返回列表