[文本处理] 批处理怎样将多个文本文件指定位置的内容放入excel？

alan359

仪器测量的一系列数据，只能保存成文本文档，比如现在有一系列文档data.0 , data0.0 , data1.0 , data2.0 ,……，（.0扩展名是仪器自动设置，其实就是文本文档），每个文本里面每一行有两个数据，其中第一列内容每个文件均相同，第二列为每次测量数据，第一列和第二列之间逗号隔开。现在需要将这些文档数据放到excel里面处理，所以希望通过批处理实现：1. 新建.csv文件，csv文件名为当前文件夹名称，2. 将data.0 的第一列数据放到excel第一列，将data.0 的第二列数据放到excel第二列，将data0.0的第二列数据放到excel的第三列，将data1.0的第二列数据放到excel第四列，……以此类推直到将所有文档内容导入excel中。恳请大神们帮帮忙！

alan359

如data.0为  100,0   data0.0为  100,4        data1.0为  100,8    希望导入excel后为  100,0,4,8
                200,1                   200,5                        200,9                               200,1,5,9
                300,2                   300,6                        300,10                             300,2,6,10
                400,3                   400,7                        400,11                             400,3,7,11

zaqmlp

<# :
@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);
复制代码

Batcher

回复 2# alan359


    建议找几个data文件打包压缩传上来，方便测试代码。

xczxczxcz

qq458609586 一键出最终excel文档。

alan359

回复 4# Batcher


   已上传数据，因为 .0文件上传不成功，扩展名修改为.txt文件

flashercs

joinColumns.bat

<#*,:&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
}
复制代码

cfwyy77_bat

如果楼主要求的结果不指定为 xlsx的话，可以把结果输出为CSV格式，其实输入的就是CSV格式（PS：windows下csv默认关联是用excel打开的 ）
如果原文件数量不多，而且碰巧有类Bash环境，或者有以下用到的 windows下的第三方程序的话，下面的思路可以参考，只是思路，这里没有达到楼主的要求，仅供参考。

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

这里假设有原4个文件，paste合并后取第一列及偶数列即可。

alan359

回复 8# cfwyy77_bat


    不要求xls文件，csv没问题的

terse

@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();
复制代码

xczxczxcz

csv是不是太简单了！exce才算吧。各种字体，线型，边框，格子大小，等等用excel是一次全搞定了，出来就是ok文档。