找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 14149|回复: 5

[已解决]修改代码增加输出内容

  [复制链接]
发表于 2021-5-25 18:49:56 | 显示全部楼层 |阅读模式
本帖最后由 a6236130 于 2021-5-27 15:05 编辑
  1. @if(0)==(0) echo off & dir /b /s /on/a-d | CScript -NoLogo -E:JScript %0 >文件名_大小.txt &  pause & exit @end
  2. var fso=new ActiveXObject("Scripting.FileSystemObject");
  3. var k=1024, m=1048576, g=1073741824;
  4. while (!WScript.StdIn.AtEndOfStream){
  5.     var name = WScript.StdIn.ReadLine();
  6.     var f =fso.GetFile(name)
  7.     WSH.Echo(f.name,filesize(f.size))
  8. };
  9. function filesize(size) {
  10.     switch(true){
  11.         case size>g :
  12.             size = (size/g).toFixed(2) + ' GB';
  13.             break;
  14.         case size>m :
  15.             size = (size/m).toFixed(2) + ' MB';
  16.             break;
  17.         case size>k :
  18.             size = (size/k).toFixed(2) + ' KB';
  19.             break;
  20.         default :
  21.             size = size + ' 字节';
  22.     };
  23.     return size;
  24. }
复制代码
代码如上:需要改成两种版本。
第一:在源代码的基础上  批处理生成的TXT文本的内容中增加每个文件的路径
第二:改成统计计算单位,不管文件大小是否大于或者小于MB的基础值,每个文件统一按MB单位来计算(保持两位小数点),并生成文本(也需要带上文件路径)
发表于 2021-5-25 20:21:33 | 显示全部楼层
此帖仅作者可见
 楼主| 发表于 2021-5-26 08:42:55 | 显示全部楼层
此帖仅作者可见
 楼主| 发表于 2021-5-26 09:04:32 | 显示全部楼层
此帖仅作者可见
发表于 2021-5-26 09:44:18 | 显示全部楼层
此帖仅作者可见
发表于 2021-5-26 11:14:43 | 显示全部楼层
此帖仅作者可见
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 04:05 , Processed in 0.015569 second(s), 7 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表