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

【有偿】自动更新EX表格工具

本帖最后由 z1366870839 于 2020-5-6 17:10 编辑

比如我几十个txt文本在几台虚拟机里面
想要自动列出来统计数据后保存表格自动存放到与物理机共享里面的一个ex表格里【每天定时更新这样(比如设置中午十二点更新一次,第二天中午十二点更新一次)】
可以的话来加我Q:905653371(备注bat之家)

比如
文本A(        =TAB)
1111        200        abcd        17.97 23.74 16.4 2.73
1111        200        abcd        17.97 23.74 16.4 2.73
文本B(        =TAB)
1111        201        abcd        17.97 23.74 16.4 2.73
1111        201        abcd        16 23 16.14 2.73
在EX表格里面会保存
每一行保存
200  35.94 47.48 32.8 5.46
201  33.97 46.74 32.54 5.46
后面四个数值要当前文本内的每一竖的都相加,不能A文本呢样举例:17.97+23.74,正确应该是17.97+17.97

  1. <# :
  2. cls
  3. @echo off
  4. cd /d "%~dp0"
  5. powershell -NoProfile -ExecutionPolicy bypass "Invoke-Command -ScriptBlock ([ScriptBlock]::Create([IO.File]::ReadAllText('%~f0',[Text.Encoding]::Default))) -Args '%~dp0'"
  6. pause
  7. exit
  8. #>
  9. $path=$args[0];
  10. $outfile=$path+'xxx.csv';
  11. [System.Collections.ArrayList]$s=@();
  12. $files=@(dir -liter $path -recurse|?{('.txt' -eq $_.Extension) -and ($_ -is [System.IO.FileInfo])});
  13. for($i=0;$i -lt $files.length;$i++){
  14.     $text=[IO.File]::ReadAllLines($files[$i].FullName,[Text.Encoding]::Default);
  15.     $tmp=@('',0,0,0,0);
  16.     for($j=0;$j -lt $text.count;$j++){
  17.         $arr=$text[$j] -split '\t';
  18.         $tmp[0]=$arr[1];
  19.         $tmp[1]+=(1*$arr[3]);
  20.         $tmp[2]+=(1*$arr[4]);
  21.         $tmp[3]+=(1*$arr[5]);
  22.         $tmp[4]+=(1*$arr[6]);
  23.     };
  24.     $line=$tmp -join ',';
  25.     [void]$s.add($line);
  26. };
  27. [IO.File]::WriteAllLines($outfile, $s, [Text.Encoding]::Default);
复制代码
提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

返回列表