文件大小单位转换

yjrrklove

看到一个单位转换的思路，挺好的。修改了一下数组超出的虫子，自己保存用

  

子程序名	返回值类型	公开	备 注
格式化字节	文本型		格式化字节到文件单位，如：1024，返回1.00MB，支持到YB
参数名	类 型	参考	可空	数组	备 注
文件长度	双精度小数型
保留位数	整数型				默认为2

变量名	类 型	静态	数组	备 注
c	整数型
单位数组	文本型		0
单位索引	整数型
v	双精度小数型
r	文本型

如果真 (文件长度 ≤ 0)
返回 (“0B”)
c ＝ 1024
保留位数 ＝ 选择 (是否为空 (保留位数), 2, 保留位数)
单位数组 ＝ { “B”, “KB”, “MB”, “GB”, “TB”, “PB”, “EB”, “ZB”, “YB” }
单位索引 ＝ 绝对取整 (求自然对数 (文件长度) ÷ 求自然对数 (c))
如果 (取数组成员数 (单位数组) ＞ 单位索引)
v ＝ 四舍五入 (文件长度 ÷ 求次方 (c, 单位索引), 保留位数)
r ＝ 数值到格式文本 (v, 保留位数, 假) ＋ “” ＋ 单位数组 [单位索引 ＋ 1]
r ＝ “超1024” ＋ 单位数组 [取数组成员数 (单位数组)]
返回 (r)

.版本 2<br /> <br /> .子程序 格式化字节, 文本型, , 格式化字节到文件单位，如：1024，返回1.00MB，支持到YB<br /> .参数 文件长度, 双精度小数型<br /> .参数 保留位数, 整数型, 可空, 默认为2<br /> .局部变量 c, 整数型<br /> .局部变量 单位数组, 文本型, , "0"<br /> .局部变量 单位索引, 整数型<br /> .局部变量 v, 双精度小数型<br /> .局部变量 r, 文本型<br /> <br /> .如果真 (文件长度 ≤ 0)<br />     返回 (“0B”)<br /> .如果真结束<br /> c ＝ 1024<br /> 保留位数 ＝ 选择 (是否为空 (保留位数), 2, 保留位数)<br /> 单位数组 ＝ { “B”, “KB”, “MB”, “GB”, “TB”, “PB”, “EB”, “ZB”, “YB” }<br /> 单位索引 ＝ 绝对取整 (求自然对数 (文件长度) ÷ 求自然对数 (c))<br /> .如果 (取数组成员数 (单位数组) ＞ 单位索引)<br />     v ＝ 四舍五入 (文件长度 ÷ 求次方 (c, 单位索引), 保留位数)<br />     r ＝ 数值到格式文本 (v, 保留位数, 假) ＋ “” ＋ 单位数组 [单位索引 ＋ 1]<br /> .否则<br />     r ＝ “超1024” ＋ 单位数组 [取数组成员数 (单位数组)]<br /> .如果结束<br /> 返回 (r)

补充内容 (2024-3-6 11:21):
单位数组 ＝ { “B”, “KB”, “MB”, “GB”, “TB”, “PB”, “EB”, “ZB”, “YB”, “BB”, “NB”, “DB”, “CB” }

BruceJoysky1987

可以，大佬牛批牛批 | 2024年8月23日03:36:51

chenyucheng

《修改了一下数组超出的虫子》

补充内容 (2024-2-5 23:59):
“bug”还翻译成“虫子”，哈哈哈哈哈

b0y

系统的大文件 不知道为啥 进率好像都是1000