[文件操作] 求助批处理文件组合的问题

myh17909

鄙人在此诚心求教各位大师高手们，现有一个问题，一个文件夹下都是文本文档，比如说是9个文本，我想把这9个文件按照每7个组合一起放到一个单独的001,002,003……036文件夹中，通过排列组合的方式我求得应该是共有36个组合，现在能不能通过批处理的方式把这个功能实现呢？恳请各位大师想想办法！

terse

不通用

@echo off&setlocal enabledelayedexpansion
set "m=7"
for /f "delims=" %%a in ('dir /b /a-d *.txt') do (
    set /a n+=1
    set _!n!=%%a&set "#!n!=!n!"
    if !n! leq !m! (set s=1!s!)else set "s=!s!0"
)
set/a r=n-m,i=j=1
for /l %%i in (1,1,%r%) do set /a "i*=(n-%%i+1),j*=%%i"
set s=0!s!&set /a "i=i/j+10000"
for /l %%i in (10001 1 !i!) do (
     set f=%%i&set "$="
     md "!f:~-3!" 2>nul
     for /l %%j in (1 1 !n!) do if "!s:~%%j,1!" == "1" set $=!$! !#%%j!
     for /f %%j in ("!s:10= !") do set "j=%%j"
     set s=0!j:0=!!j:1=!1!s:*10=!
     for %%j in (!$!) do copy "!_%%j!" "!f:~-3!"
)
pause
复制代码

flashercs

0<1/*,:
@echo off
REM 功能：将目录下的文件按指定数量组合并拷贝到目标目录
REM 设置文件搜索目录路径
set srcdir="e:\test\new folder"
REM 设置输出文件所在目录路径
set dstdir="e:\test\new folder\new"
REM 设置文件组合的数量
set count=7
cscript -nologo -e:jscript %0 /srcdir:%srcdir% /dstdir:%dstdir% /count:%count%
pause
exit /b
*/
;
var fso = new ActiveXObject('Scripting.FileSystemObject');
var srcdir = WScript.Arguments.Named('srcdir');
var dstdir = WScript.Arguments.Named('dstdir');
var count = parseInt(WScript.Arguments.Named('count'));
if (isNaN(count)) {
  showError('count 不是数字');
  WScript.Quit(1);
}
try {
  var folder = fso.getFolder(srcdir);
} catch (e) {
  showError(srcdir + ' 不存在');
  WScript.Quit(2);
}

if (!fso.FolderExists(dstdir)) {
  try {
    fso.CreateFolder(dstdir);
  } catch (e) {
    showError('无法创建目录：' + dstdir);
    WScript.Quit(3);
  }
}

for (var arrFiles = [], colFiles = new Enumerator(folder.Files); !colFiles.atEnd(); colFiles.moveNext()) {
  arrFiles.push(colFiles.item());
}
for (var arrComb = combination(arrFiles, count), i = 0, l = arrComb.length; i < l; i++) {
  try {
    var currdir = fso.BuildPath(dstdir, String(i + 1));
    if (!fso.FolderExists(currdir)) {
      fso.CreateFolder(currdir);
    }
    var arrCombMember = arrComb[i];
    for (var j = arrCombMember.length - 1; j >= 0; j--) {
      arrCombMember[j].Copy(currdir + '\\', true);
      WScript.Echo(arrCombMember[j].Path + ' >> ' + currdir);
    }
  } catch (e) {
    WScript.Echo('Error:' + currdir);
  }
}

function combination(arr, n) {
  var arrA = [];
  if (0 === n) return [
    []
  ];
  if (n >= arr.length) {
    arrA.push(arr);
    return arrA;
  }
  for (var i = 0, k = arr.length - n + 1; i < k; i++) {
    for (var j = 0, t = combination(arr.slice(i + 1), n - 1), l = t.length; j < l; j++) {
      t[j].unshift(arr[i]);
      arrA.push(t[j]);
    }
  }
  return arrA;
}

function showError(err, source) {
  WScript.Echo('[object Error]' === Object.prototype.toString.call(err) ? [
      err.name,
      'source: ' + (undefined === source ? '' : source),
      'number: ' + (err.number >>> 0).toString(16),
      'equipment: ' + (err.number >> 16 & 0x1FFF),
      'code: ' + (err.number & 0xFFFF),
      'Information: ' + err.message
    ].join('\n') :
    err);
}
复制代码

myh17909

回复 2# Batcher


    谢谢管理，您辛苦了！好人好报

Batcher

@echo off
setlocal enabledelayedexpansion
set n=0
for /f "delims=" %%a in ('dir /b /a-d *.txt') do (
    set /a n+=1
    set "_!n!=%%a"
)

set FolderCount=1000
set "var=1 2 3 4 5 6 7 8 9"
for %%a in (!var!) do (
    set var1=!var:%%a=!
    for %%b in (!var1!) do (
        set var2=!var1:%%b=!
        for %%c in (!var2!) do (
            set var3=!var2:%%c=!
            for %%d in (!var3!) do (
                set var4=!var3:%%d=!
                for %%e in (!var4!) do (
                    set var5=!var4:%%e=!
                    for %%f in (!var5!) do (
                        set var6=!var5:%%f=!
                        for %%g in (!var6!) do (
                            if %%a lss %%b (
                            if %%b lss %%c (
                            if %%c lss %%d (
                            if %%d lss %%e (
                            if %%e lss %%f (
                            if %%f lss %%g (
                                set /a FolderCount+=1
                                set FolderName=!FolderCount:~-3!
                                echo 创建文件夹：!FolderName!
                                if not exist !FolderName! (
                                    md !FolderName!
                                )
                                echo 复制文件：!_%%a! !_%%b! !_%%c! !_%%d! !_%%e! !_%%f! !_%%g!
                                for %%z in ("!_%%a!" "!_%%b!" "!_%%c!" "!_%%d!" "!_%%e!" "!_%%f!" "!_%%g!") do (
                                    copy /y "%%z" !FolderName!\
                                )
                                echo 正在计算下一个组合...
                            ))))))
                        )
                    )
                )
            )
        )
    )
)
复制代码