开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 3070|回复: 3
收起左侧

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

[复制链接]
结帖率:67% (4/6)
发表于 2019-2-11 18:53:16 | 显示全部楼层 |阅读模式   湖北省武汉市
  
子程序名返回值类型公开备 注
转换_转数据大小为标准显示文本型 '最高支持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”)

建议这里为文本型不要改回长整数型 因为涉及到长整数9223372036854775807会成为负数的问题 虽然不可能有人有这么大的单字节需要转换- -
发表于 2019-2-14 14:19:06 | 显示全部楼层   广东省揭阳市
收到,收录进下个版本模块中
回复 支持 反对

使用道具 举报

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

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 诚聘英才| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 800073686,邮箱:800073686@b.qq.com
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

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