整数型数值转换金钱单位K、M

eyyhs

整数型 金额=123456789

小于1000的 就直接 输出 数值

小于等于K单位的 就以K为单位输出 例如   整数型 金额=9999   输出 0.9k

大于等于M单位的 就以M为单位输出 例如  整数型 金额=99999   输出 9.9M

大于M以后的单位 都以M为单位输出 例如  整数型  金额=999999  输出 99.9M
有没有大佬会这个转换，写了半天都写不出来

zainex

寻找文本 + 取文本中间:

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
取数值格式	文本型
参数名	类 型	参考	可空	数组	备 注
数值	整数型

变量名	类 型	静态	数组	备 注
结果	双精度小数型
后缀	文本型
文本	文本型
位	整数型

结果 ＝ 数值 ÷ 10000
判断 (数值 ≥ 10000)
后缀 ＝ “M”
判断 (数值 ≥ 1000)
后缀 ＝ “K”
结果 ＝ 数值
文本 ＝ 到文本 (结果)
位 ＝ 寻找文本 (文本, “.”, , 假)
如果真 (位 ≠ -1)
文本 ＝ 取文本中间 (文本, 1, 位 ＋ 1)
返回 (文本 ＋ 后缀)

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
金额	整数型		0
数	整数型

金额 ＝ { 999, 9999, 99999, 999999 }
计次循环首 (取数组成员数 (金额), 数)
调试输出 (格式化文本 (“金额=%d%s输出 %s”, 金额 [数], 字符 ( #Tab键 ), 取数值格式 (金额 [数])))
计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库
eAPI	应用接口支持库

.版本 2<br /> .支持库 spec<br /> .支持库 eAPI<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 取数值格式, 文本型<br /> .参数 数值, 整数型<br /> .局部变量 结果, 双精度小数型<br /> .局部变量 后缀, 文本型<br /> .局部变量 文本, 文本型<br /> .局部变量 位, 整数型<br /> <br /> 结果 ＝ 数值 ÷ 10000<br /> .判断开始 (数值 ≥ 10000)<br />     后缀 ＝ “M”<br /> .判断 (数值 ≥ 1000)<br />     后缀 ＝ “K”<br /> .默认<br />     结果 ＝ 数值<br /> .判断结束<br /> 文本 ＝ 到文本 (结果)<br /> 位 ＝ 寻找文本 (文本, “.”, , 假)<br /> .如果真 (位 ≠ -1)<br />     文本 ＝ 取文本中间 (文本, 1, 位 ＋ 1)<br /> .如果真结束<br /> 返回 (文本 ＋ 后缀)<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 金额, 整数型, , "0"<br /> .局部变量 数, 整数型<br /> <br /> 金额 ＝ { 999, 9999, 99999, 999999 }<br /> .计次循环首 (取数组成员数 (金额), 数)<br />     调试输出 (格式化文本 (“金额=%d%s输出 %s”, 金额 [数], 字符 (#Tab键), 取数值格式 (金额 [数])))<br /> .计次循环尾 ()

明天自然醒

  

子程序名	返回值类型	公开	备 注
子程序1	文本型
参数名	类 型	参考	可空	数组	备 注
x	整数型

判断 (x ＞ 1000000)
返回 (数值到格式文本 (x ÷ 1000000, , 假) ＋ “M”)
判断 (x ＞ 10000)
返回 (数值到格式文本 (x ÷ 10000, , 假) ＋ “W”)
判断 (x ＞ 1000)
返回 (数值到格式文本 (x ÷ 1000, , 假) ＋ “K”)
返回 (数值到格式文本 (x, , 假))

.版本 2<br /> <br /> .子程序 子程序1, 文本型<br /> .参数 x, 整数型<br /> <br /> .判断开始 (x ＞ 1000000)<br />     返回 (数值到格式文本 (x ÷ 1000000, , 假) ＋ “M”)<br /> .判断 (x ＞ 10000)<br />     返回 (数值到格式文本 (x ÷ 10000, , 假) ＋ “W”)<br /> .判断 (x ＞ 1000)<br />     返回 (数值到格式文本 (x ÷ 1000, , 假) ＋ “K”)<br /> .默认<br />     返回 (数值到格式文本 (x, , 假))<br /> .判断结束

你送的花开了

一看就是三角洲的

zainex

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
取数值格式	文本型
参数名	类 型	参考	可空	数组	备 注
数值	整数型

变量名	类 型	静态	数组	备 注
结果	双精度小数型
后缀	文本型
文本	文本型
正则	正则表达式

结果 ＝ 数值 ÷ 10000
判断 (数值 ≥ 10000)
后缀 ＝ “M”
判断 (数值 ≥ 1000)
后缀 ＝ “K”
结果 ＝ 数值
正则.创建 (“[0-9]+(\.[0-9])?”, )
文本 ＝ 正则.替换 (到文本 (结果), “$0”, 1, , 假, 假)
返回 (文本 ＋ 后缀)

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
金额	整数型		0
数	整数型

金额 ＝ { 999, 9999, 99999, 999999 }
计次循环首 (取数组成员数 (金额), 数)
调试输出 (格式化文本 (“金额=%d%s输出 %s”, 金额 [数], 字符 ( #Tab键 ), 取数值格式 (金额 [数])))
计次循环尾 ()

i支持库列表	支持库注释
RegEx	正则表达式支持库
spec	特殊功能支持库
eAPI	应用接口支持库

.版本 2<br /> .支持库 RegEx<br /> .支持库 spec<br /> .支持库 eAPI<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 取数值格式, 文本型<br /> .参数 数值, 整数型<br /> .局部变量 结果, 双精度小数型<br /> .局部变量 后缀, 文本型<br /> .局部变量 文本, 文本型<br /> .局部变量 正则, 正则表达式<br /> <br /> 结果 ＝ 数值 ÷ 10000<br /> .判断开始 (数值 ≥ 10000)<br />     后缀 ＝ “M”<br /> .判断 (数值 ≥ 1000)<br />     后缀 ＝ “K”<br /> .默认<br />     结果 ＝ 数值<br /> .判断结束<br /> 正则.创建 (“[0-9]+(\.[0-9])?”, )<br /> 文本 ＝ 正则.替换 (到文本 (结果), “$0”, 1, , 假, 假)<br /> 返回 (文本 ＋ 后缀)<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 金额, 整数型, , "0"<br /> .局部变量 数, 整数型<br /> <br /> 金额 ＝ { 999, 9999, 99999, 999999 }<br /> .计次循环首 (取数组成员数 (金额), 数)<br />     调试输出 (格式化文本 (“金额=%d%s输出 %s”, 金额 [数], 字符 (#Tab键), 取数值格式 (金额 [数])))<br /> .计次循环尾 ()

输出符合你的要求:

精益君哥

这还不简单啊~按照小数然后取整~ 例子 取整数  (9999/1000)+"K" 长度<=4的情况

eyyhs

明天自然醒 发表于 2025-8-6 09:36
[e=1].版本 2

.子程序 子程序1, 文本型

.版本 2
.支持库 spec

A ＝ 10001
调试输出 (子程序1 (A))

结果  * “1.0001W”     好像不对哦~~！

eyyhs

zainex 发表于 2025-8-6 12:27
[e=1].版本 2
.支持库 RegEx
.支持库 spec

可以不用正则吗，用普通的判断能实现吗，某些环境下我用不了正则表达式- -