建议增加 转换_转数据大小为标准显示 已附上源代码

乐乐大人

  

子程序名	返回值类型	公开	备 注
转换_转数据大小为标准显示	文本型		'最高支持pb位 以科学的方式显示文件大小 不清楚在32位下的反应 注意返回虽然是kbtb什么的 但实际是kib mib 进制为1024 1000是标准的kb mb的进制位 KiB  一共四种 1Kb表示1000个bit 1Kib表示1024个bit 1KB表示1000个Byte字节 KiB表示1024个Byte字节
参数名	类 型	参考	可空	数组	备 注
b	文本型				‘文本型的b大小 不是bit比特 是Byte字节 如取文件大小返回的就是byte

变量名	类 型	静态	数组	备 注
小数文本	双精度小数型
预处理数	双精度小数型

' 1024=1kb
' 1048576=1mb
' 1073741824=1gb
' 1099511627776=1tb
' 1.1259e+15=1pb
' 1024  kb
' 1024*1024 mb
' 1024*1024*1024 gb
' 1024*1024*1024*1024 tb
' 1024*1024*1024*1024*1024 pb
' 1024*1024*1024*1024*1024*1024 eb
' 先判断是否大于 大于则按文本处理转换后返回
如果真 (取文本长度 (b) ＞ 19 或 到整数 (取文本左边 (b, 10)) ＞ 9223372036 或 到整数 (取文本右边 (b, 9)) ＞ 854775807)  ' 超过小数最大尾数会出错 或处理结果超过最大长整数
如果 (取文本长度 (b) ＝ 19)  ' 如果是19位但超过了最大长整数就除10处理 文本处理方式
小数文本 ＝ 到数值 (取文本左边 (b, 18) ＋ “.” ＋ 取文本右边 (b, 1))
预处理数 ＝ 小数文本 ÷ 1024 ÷ 1024 ÷ 1024 ÷ 1024 ÷ 1024 ÷ 1024
返回 (到文本 (四舍五入 (预处理数 × 10, 2)) ＋ “eb”)
小数文本 ＝ 到数值 (取文本左边 (b, 19) ＋ “.” ＋ 取文本右边 (b, 取文本长度 (b) － 19))  ' 转换到双精度小数型
预处理数 ＝ 小数文本 ÷ 1024 ÷ 1024 ÷ 1024 ÷ 1024 ÷ 1024 ÷ 1024
计次循环首 (取文本长度 (b) － 19, )
预处理数 ＝ 预处理数 × 10
计次循环尾 ()
返回 (到文本 (四舍五入 (预处理数, 2)) ＋ “eb”)

' 正式按整数处理
如果真 (到长整数 (b) ＜ 1024)  ' 小于这个则为  b
返回 (b ＋ “b”)
如果真 (到长整数 (b) ＜ 1048576)  ' 小于这个则为  kb
返回 (到文本 (四舍五入 (到长整数 (b) ÷ 1024, 2)) ＋ “kb”)
如果真 (到长整数 (b) ＜ 1073741824)  ' 小于这个则为 mb
返回 (到文本 (四舍五入 (到长整数 (b) ÷ 1024 ÷ 1024, 2)) ＋ “mb”)
如果真 (到长整数 (b) ＜ 1099511627776)  ' 小于这个则为  gb
返回 (到文本 (四舍五入 (到长整数 (b) ÷ 1024 ÷ 1024 ÷ 1024, 2)) ＋ “gb”)
如果真 (到长整数 (b) ＜ 1.1259e+015)  ' 小于这个则为  tb
返回 (到文本 (四舍五入 (到长整数 (b) ÷ 1024 ÷ 1024 ÷ 1024 ÷ 1024, 2)) ＋ “tb”)
如果真 (到长整数 (b) ＜ 1.1529e+018)  ' 小于这个则为  pb
返回 (到文本 (四舍五入 (到长整数 (b) ÷ 1024 ÷ 1024 ÷ 1024 ÷ 1024 ÷ 1024, 2)) ＋ “pb”)
返回 (到文本 (四舍五入 (到长整数 (b) ÷ 1024 ÷ 1024 ÷ 1024 ÷ 1024 ÷ 1024 ÷ 1024, 2)) ＋ “eb”)

.版本 2<br /> <br /> .子程序 转换_转数据大小为标准显示, 文本型, , '最高支持pb位 以科学的方式显示文件大小 不清楚在32位下的反应 注意返回虽然是kbtb什么的 但实际是kib mib 进制为1024 1000是标准的kb mb的进制位 KiB  一共四种 1Kb表示1000个bit 1Kib表示1024个bit 1KB表示1000个Byte字节 KiB表示1024个Byte字节<br /> .参数 b, 文本型, , ‘文本型的b大小 不是bit比特 是Byte字节 如取文件大小返回的就是byte<br /> .局部变量 小数文本, 双精度小数型<br /> .局部变量 预处理数, 双精度小数型<br /> <br /> ' 1024=1kb<br /> ' 1048576=1mb<br /> ' 1073741824=1gb<br /> ' 1099511627776=1tb<br /> ' 1.1259e+15=1pb<br /> ' 1024  kb<br /> ' 1024*1024 mb<br /> ' 1024*1024*1024 gb<br /> ' 1024*1024*1024*1024 tb<br /> ' 1024*1024*1024*1024*1024 pb<br /> ' 1024*1024*1024*1024*1024*1024 eb<br /> ' 先判断是否大于 大于则按文本处理转换后返回<br /> .如果真 (取文本长度 (b) ＞ 19 或 到整数 (取文本左边 (b, 10)) ＞ 9223372036 或 到整数 (取文本右边 (b, 9)) ＞ 854775807)  ' 超过小数最大尾数会出错 或处理结果超过最大长整数<br />     .如果 (取文本长度 (b) ＝ 19)  ' 如果是19位但超过了最大长整数就除10处理 文本处理方式<br />         小数文本 ＝ 到数值 (取文本左边 (b, 18) ＋ “.” ＋ 取文本右边 (b, 1))<br />         预处理数 ＝ 小数文本 ÷ 1024 ÷ 1024 ÷ 1024 ÷ 1024 ÷ 1024 ÷ 1024<br />         返回 (到文本 (四舍五入 (预处理数 × 10, 2)) ＋ “eb”)<br />     .否则<br />         小数文本 ＝ 到数值 (取文本左边 (b, 19) ＋ “.” ＋ 取文本右边 (b, 取文本长度 (b) － 19))  ' 转换到双精度小数型<br />         预处理数 ＝ 小数文本 ÷ 1024 ÷ 1024 ÷ 1024 ÷ 1024 ÷ 1024 ÷ 1024<br />         .计次循环首 (取文本长度 (b) － 19, )<br />             预处理数 ＝ 预处理数 × 10<br />         .计次循环尾 ()<br />         返回 (到文本 (四舍五入 (预处理数, 2)) ＋ “eb”)<br />     .如果结束<br /> <br /> .如果真结束<br /> ' 正式按整数处理<br /> .如果真 (到长整数 (b) ＜ 1024)  ' 小于这个则为  b<br />     返回 (b ＋ “b”)<br /> .如果真结束<br /> .如果真 (到长整数 (b) ＜ 1048576)  ' 小于这个则为  kb<br />     返回 (到文本 (四舍五入 (到长整数 (b) ÷ 1024, 2)) ＋ “kb”)<br /> .如果真结束<br /> .如果真 (到长整数 (b) ＜ 1073741824)  ' 小于这个则为 mb<br />     返回 (到文本 (四舍五入 (到长整数 (b) ÷ 1024 ÷ 1024, 2)) ＋ “mb”)<br /> .如果真结束<br /> .如果真 (到长整数 (b) ＜ 1099511627776)  ' 小于这个则为  gb<br />     返回 (到文本 (四舍五入 (到长整数 (b) ÷ 1024 ÷ 1024 ÷ 1024, 2)) ＋ “gb”)<br /> .如果真结束<br /> .如果真 (到长整数 (b) ＜ 1.1259e+015)  ' 小于这个则为  tb<br />     返回 (到文本 (四舍五入 (到长整数 (b) ÷ 1024 ÷ 1024 ÷ 1024 ÷ 1024, 2)) ＋ “tb”)<br /> .如果真结束<br /> .如果真 (到长整数 (b) ＜ 1.1529e+018)  ' 小于这个则为  pb<br />     返回 (到文本 (四舍五入 (到长整数 (b) ÷ 1024 ÷ 1024 ÷ 1024 ÷ 1024 ÷ 1024, 2)) ＋ “pb”)<br /> .如果真结束<br /> 返回 (到文本 (四舍五入 (到长整数 (b) ÷ 1024 ÷ 1024 ÷ 1024 ÷ 1024 ÷ 1024 ÷ 1024, 2)) ＋ “eb”)

建议这里为文本型不要改回长整数型 因为涉及到长整数9223372036854775807会成为负数的问题 虽然不可能有人有这么大的单字节需要转换- -

项目部002

收到，收录进下个版本模块中

z36482845

好嗨哦  顶

乐乐大人