[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
给你两参考 结果显示符合不 可自己修改下
  1. @if(0)==(0) ECHO OFF
  2. CScript.exe -NoLogo -E:JScript %0 "%~dp0test.csv" "D37 D38 D39"
  3. pause&exit
  4. @end
  5. var filePath=  WSH.Arguments.Item(0)
  6. var oXL = new ActiveXObject("Excel.application");
  7. var oWB = oXL.Workbooks.open(filePath);
  8. oWB.worksheets(1).select();
  9. var oSheet = oWB.ActiveSheet;
  10. var ar = WSH.Arguments.Item(1).split(' ');
  11. var t = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
  12. var arr = [],len = ar.length;
  13. for (var i = 0; i < len; i++) {
  14.   var n = t.indexOf(ar[i].slice(0,1))+1;
  15.   var m = ar[i].slice(1);
  16.   arr.push(oSheet.Cells(m,n));
  17. }
  18. WSH.echo(arr);
  19. oXL.Quit();
复制代码
  1. @if(0)==(0) ECHO OFF
  2. CScript.exe -NoLogo -E:JScript %0 <test.csv "D37 D38 D39"
  3. pause&exit
  4. @end
  5. var arr = WSH.StdIn.Readall().split('\r\n');
  6. var len = arr.length;
  7. for (var i = 0; i < len; i++) {
  8.   arr[i] = arr[i].replace(/,,/gi,',\s,').split(/\,/);
  9. }
  10. var ar = WSH.Arguments.Item(0).split(' ');
  11. var t = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
  12. var tarr = [],len = ar.length;
  13. for (var i = 0; i < len; i++) {
  14.   var n = t.indexOf(ar[i].slice(0,1));
  15.   var m = ar[i].slice(1)-1;
  16.   tarr.push(arr[m][n]);
  17. }
  18. WSH.echo(tarr)
复制代码

TOP

返回列表