[文本处理] 【已解决】BAT或VBS：如何将各列数据进行全组合

var fso = WScript.CreateObject('Scripting.FileSystemObject'),
  srcdir = 'E:/数据1',
  dstdir = 'E:/数据2';

for (colFiles = new Enumerator(fso.GetFolder(srcdir).Files); !colFiles.atEnd(); colFiles.moveNext()) {
  var ofile = colFiles.item();
  try {
    var tsread = ofile.OpenAsTextStream(1, -2);
    var tswrite = fso.OpenTextFile(fso.BuildPath(dstdir, ofile.Name),2,true,-2);
    var arrLines = [],
      maxCols = 0;
    while (!tsread.atEndOfStream) {
      var arrSplit = tsread.readline().split('\t');
      arrLines.push(arrSplit);
      maxCols = Math.max(maxCols, arrSplit.length);
    }
    var arrColumns = Array(maxCols);
    for (var i = maxCols - 1; i >= 0; i--) {
      arrColumns[i] = [];
    }
    for (i = 0; i < arrLines.length; i++) {
      for (var j = arrLines[i].length - 1; j >= 0; j--) {
        if (arrLines[i][j] !== '') {
          arrColumns[j].push(arrLines[i][j]);
        }
      }
    }
    // permute
    var arrOut = [''];
    for (i = arrColumns.length - 1; i >= 0; i--) {
      var arrOut_ = [];
      for (j = 0; j < arrColumns[i].length; j++) {
        for (var k = 0; k < arrOut.length; k++) {
          arrOut_.push(arrColumns[i][j] + arrOut[k]);
        }
      }
      arrOut = arrOut_;
    }
    // WSH.Echo(arrOut);
    tswrite.writeline(arrOut.join('\r\n'));
  } catch (e) {
    WScript.Echo(e.message);
    continue
  } finally {
    if(tsread){
      tsread.close();
    }
    if(tswrite){
      tswrite.close();
    }
  }
}
复制代码

from itertools import product
import os

srcDir="E:/数据1"
dstDir="E:/数据2"

txtfiles=[f for f in os.listdir(srcDir) if f.endswith("txt") and os.path.isfile(f)]

for txt in txtfiles: 
    with open(txt,encoding="utf-8") as f:
        lines = [line.strip("\n").split("\t") for line in f]        
    columns = [[i for i in colHasEmpty if i] for colHasEmpty in zip(*lines)] 
    with open(os.path.join(dstDir,txt),"w",encoding="utf-8") as fw:
        for i in product(*columns):                
            print("".join(i),file=fw)  
复制代码