<# :
@echo off
set info=互助互利,支付宝扫码头像,感谢赞助
rem 有问题,可加QQ956535081及时沟通
title %info%
set "rootpath=%~dp0"
if "%rootpath:~-1%" equ "\" (set "rootpath=%rootpath:~,-1%")
cd /d "%rootpath%"
powershell -NoProfile -ExecutionPolicy bypass "Invoke-Command -ScriptBlock ([ScriptBlock]::Create([IO.File]::ReadAllText('%~f0',[Text.Encoding]::Default))) -Args '%rootpath%'"
echo;%info%
pause
exit
#>
Add-Type -TypeDefinition @'
using System;
using System.Collections.Generic;
using System.Runtime.InteropServices;
public static class ExpDir
{
    [DllImport("Shlwapi.dll", CharSet = CharSet.Unicode)]
    public static extern int StrCmpLogicalW(string p1, string p2);
    public static string[] Sort(string[] f)
    {
        Array.Sort(f, StrCmpLogicalW);
        return f;
    }  
}
'@;
$outfile=$args[0]+'\'+(gi -liter $args[0]).Name+'.csv';
$files=@(dir -liter $args[0]|?{($_.name -match '^data\d*\.0$') -and ($_ -is [System.IO.FileInfo])});
$list=[ExpDir]::Sort($files);
[System.Collections.ArrayList]$s=@();
$max=0;
for($i=0;$i -lt $list.count;$i++){
    $text=[IO.File]::ReadAllLines(($args[0]+'\'+$list[$i]),[Text.Encoding]::Default);
    if($text.count -ge $max){$max=$text.count};
    if($i -eq 0){
        [void]$s.add($text);
    }else{
        [System.Collections.ArrayList]$t=@();
        for($j=0;$j -lt $text.count;$j++){
            [void]$t.add($text[$j].split(',')[1]);
        };
        [void]$s.add($t);
    };
};
[System.Collections.ArrayList]$ss=@();
for($i=0;$i -lt $max;$i++){
    [System.Collections.ArrayList]$tt=@();
    for($j=0;$j -lt $s.count;$j++){
        if($s[$j][$i] -eq $null){
            [void]$tt.add(',');
        }else{
            [void]$tt.add($s[$j][$i]);
        };
    };
    [void]$ss.add($($tt -join ','));
};
[IO.File]::WriteAllLines($outfile, $ss, [Text.Encoding]::Default);
复制代码

<#*,:&cls
@echo off
pushd "%~dp0"
Powershell -NoProfile -ExecutionPolicy RemoteSigned -Command ". ([ScriptBlock]::Create((Get-Content -LiteralPath \"%~0\" -ReadCount 0 | Out-String ))) "
popd
pause
exit /b
#>
$outfile = Join-Path -Path ($pwd.Path) -ChildPath "$($pwd.Path|Split-Path -Leaf).xlsx"
try {
  $oExcelApp = New-Object -ComObject Excel.Application
}
catch {
  try {
    $oExcelApp = New-Object -ComObject ET.Application
  }
  catch {
    throw
  }
}
function Open-Text {
  param (
    [string]$Path
  )
  try {
    $oExcelApp.Workbooks.OpenText($Path, 936, 1, 1, -4142, $false, $false, $false, $true, $false, $false, $null, @(@(1, 2), @(2, 2)))
    return $true
  }
  catch {
    return $false
  }
}
try {
  $oExcelApp.AutomationSecurity = 3
  $oExcelApp.DisplayAlerts = $false
  $oExcelApp.Interactive = $false
  $oExcelApp.Visible = $false
  # open data.0 as the base workbook
  
  if (Open-Text -Path (Join-Path -Path $pwd.Path -ChildPath "data.0")) {
    $oWorkbook = $oExcelApp.Workbooks.Item("data.0")
    $oWorksheet = $oWorkbook.Worksheets.Item(1)
  }
  else {
    Write-Error -Message "Can't open data.0"
    throw
  }
  
  Convert-Path "data?*.0" | Sort-Object -Property { (Split-Path $_ -Leaf).Remove(0, 4).Split(".")[0] -as [int] } | ForEach-Object -Begin {
    $column = 3
  } -Process {
    if ( Open-Text -Path $_) {
      $oWorkbook1 = $oExcelApp.Workbooks.Item((Split-Path $_ -Leaf))
      $oWorkbook1.Worksheets.Item(1).UsedRange.Columns.Item(2).Copy($oWorksheet.Cells.Item(1, $column++))
      $oWorkbook1.Close()
      Write-Host "Add $_ success" -ForegroundColor Green
    }
    else {
      Write-Error -Message "Can't open $_"
    }
  } -End {
    $oWorkbook.SaveAs($outfile, 51, $null, $null, $false, $false, 3, 2, $false, $null, $null, $true)
  }
}
catch {
  $_ | Out-String | Write-Host -ForegroundColor Red
}
finally {
  $oExcelApp.Workbooks.Close()
  $oExcelApp.Quit()
  [void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($oExcelApp)
  Remove-Variable oExcelApp
}
复制代码

ls *.txt | xargs paste -d, | cut -d, -f1,2,4,6,8
复制代码

@set @i=0 /* & @echo off & dir /b/a-d/on *.0 |cscript -nologo -e:jscript "%~0" & pause & exit */
var fso=new ActiveXObject("Scripting.FileSystemObject");
var filename=fso.GetFolder(".");
filename +=  "\\" +fso.GetFolder(".").name + ".xlsx";
var oXL = new ActiveXObject("Excel.Application");
oXL.visible = true;
var excel = oXL.Workbooks.Add;
excel.Worksheets(1).Activate;
var t = true, n = 1, m = 2, f =  fso.GetFolder(".");
while (!WScript.StdIn.AtEndOfStream){
      var  file = WScript.StdIn.Readline();
      var arr =  fso.OpenTextFile(file,1).ReadAll().replace(/^\r\n/gm, "").replace(/\r\n$/gm,"").split("\r\n");
      if (t) {
           for(i = 0, len = arr.length; i < len; i++ ){
               var ar = arr[i].split(",");
               excel.Worksheets(1).Cells(i+1,n).value = '' + ar[0];
               excel.Worksheets(1).Cells(i+1,m).value = '' + ar[1];
           };
               t = false, n += m;
      };
          else {
             for(i = 0, len = arr.length; i < len; i++ ){
                 var ar = arr[i].split(",");
                 excel.Worksheets(1).Cells(i+1,n).value = '' + ar[1];
             };
             n++;
      };
}

excel.Worksheets(1).SaveAs(filename);
excel.Close();
oXL.Application.Quit();
复制代码