文件大小转换源码 字节转换成KB/MB/GB

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击

调试输出 (文件_大小单位转换 (取文件尺寸 (“I:\电影\” ＋ “007：幽灵党.rmvb”)))  ' 1676902240    1.56GB
调试输出 (文件_大小单位转换 (取文件尺寸 (“C:\Users\Administrator\Desktop\” ＋ “Config.ini”)))  ' 172  ' 172 字节

.子程序 文件_大小单位转换, 文本型, 公开
.参数 Size, 双精度小数型
.局部变量 局_单位, 文本型

.如果真 (Size ＜ 1024)
    局_单位 ＝ “B”
.如果真结束
.如果真 (Size ＞ 1024 且 Size ＜ 1024 × 1024 × 1024 且 Size ＜ 1024 × 1024)
    Size ＝ Size ÷ 1024
    局_单位 ＝ “KB”
.如果真结束
.如果真 (Size ＞ 1024 × 1024 且 Size ＜ 1024 × 1024 × 1024)
    Size ＝ Size ÷ 1024 ÷ 1024
    局_单位 ＝ “MB”
.如果真结束
.如果真 (Size ＞ 1024 × 1024 × 1024)
    Size ＝ Size ÷ 1024 ÷ 1024 ÷ 1024
    局_单位 ＝ “GB”
.如果真结束
返回 (到文本 (四舍五入 (Size, 2)) ＋ “ ” ＋ 局_单位)

@350246356