设为首页收藏本站淘宝杂货铺

从F到0 - From F to 0

 找回密码
 注册已关闭
搜索
查看: 2160|回复: 1
收起左侧

已知文件大小(字节)、簇大小(扇区大小) 求实际占用空间的公式 失败返回 -1 易语言计算

[复制链接]
发表于 2019-6-24 19:43:00 | 显示全部楼层 |阅读模式
本帖最后由 QAQ 于 2019-6-24 19:44 编辑

  1. .版本 2
  2. .支持库 spec

  3. .程序集 程序集1

  4. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码


  5. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
  6. 返回 (0)  ' 可以根据您的需要返回任意数值

  7. .子程序 _临时子程序
  8. .局部变量 i, 整数型

  9. ' 本名称子程序用作测试程序用,仅在开发及调试环境中有效,编译发布程序前将被系统自动清空,请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
  10. .变量循环首 (0, 65536, 1, i)
  11.     调试输出 (i, 取占用空间 (i, 256))
  12. .变量循环尾 ()


  13. .子程序 取占用空间, 长整数型, 公开, 通过文件大小、簇大小计算实际占用空间 失败返回-1
  14. .参数 文件大小, 长整数型, , 单位字节
  15. .参数 簇大小, 长整数型, , 单位字节

  16. .如果真 (文件大小 < 0 或 簇大小 ≤ 0)
  17.     返回 (-1)
  18. .如果真结束
  19. 返回 (到长整数 ((文件大小 - 1) ÷ 簇大小 + 1) × 簇大小)
复制代码

相关帖子

您需要登录后才可以回帖 登录 | 注册已关闭

本版积分规则

QQ|手机版|Archiver|从F到0 ( 蒙ICP备17002595号-1 )
蒙公网安备15010402000325号

腾讯云安全认证

GMT+8, 2024-3-29 01:08 , Processed in 0.530030 second(s), 20 queries .

Powered by Discuz! X3.4 Licensed

Copyright © 2001-2021, Tencent Cloud.

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