大写到数值

ljh1921

  

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

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

调试输出 (大写到数值 (“三百九十五”))
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
大写到数值	文本型
参数名	类 型	参考	可空	数组	备 注
大写数据	文本型

变量名	类 型	静态	数组	备 注
大写数据组	文本型		0
i	整数型
大写数值	文本型
结果	文本型
JS	对象
成员数	整数型
数字	文本型

JS.创建 (“ScriptControl”, )
JS.写属性 (“Language”, “JScript”)
文本_逐字分割_汇编 (大写数据, 大写数据组)
成员数 ＝ 取数组成员数 (大写数据组)
计次循环首 (成员数, i)
大写数值 ＝ 大写数据组 [i]
数字 ＝ 文本_数字 (大写数值, i ＝ 1)
结果 ＝ 结果 ＋ 数字
计次循环尾 ()
返回 (JS.文本方法 (“Eval”, 结果))

子程序名	返回值类型	公开	备 注
文本_逐字分割_汇编	整数型		超长文本计算时有优势 调用该命令前请确定内容不为空
参数名	类 型	参考	可空	数组	备 注
参_内容	文本型
参_文本数组	文本型

变量名	类 型	静态	数组	备 注
空白文本	文本型

如果真 (参_内容 ＝ “”)
返回 (0)
空白文本 ＝ 取空白文本 (取文本长度 (参_内容) × 2)
置入代码 ({ 139, 69, 8, 139, 48, 139, 125, 252, 172, 168, 128, 117, 26, 60, 32, 116, 247, 60, 9, 116, 243, 60, 13, 116, 239, 60, 10, 116, 235, 132, 192, 116, 28, 170, 176, 9, 170, 235, 225, 60, 161, 117, 10, 134, 224, 172, 60, 161, 116, 214, 134, 224, 78, 170, 172, 170, 176, 9, 170, 235, 203, 49, 192, 170 })
参_文本数组 ＝ 分割文本 (空白文本, 到文本 ({ 9 }), )
返回 (取数组成员数 (参_文本数组))

子程序名	返回值类型	公开	备 注
文本_数字	文本型
参数名	类 型	参考	可空	数组	备 注
文本	文本型
首字	逻辑型

变量名	类 型	静态	数组	备 注
c	文本型
temp	整数型
d	文本型

c ＝ “零一二三四五六七八九”
d ＝ “十百千”
temp ＝ 寻找文本 (c, 文本, , 假)
如果真 (temp ≠ -1)
返回 (选择 (首字, “”, “+”) ＋ 到文本 (到整数 (temp ＼ 2)))
temp ＝ 寻找文本 (d, 文本, , 假)
返回 (选择 (首字, “”, “*”) ＋ “1” ＋ 取重复文本 (到整数 (temp ＼ 2) ＋ 1, “0”))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 调试输出 (大写到数值 (“三百九十五”))<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 大写到数值, 文本型, 公开<br /> .参数 大写数据, 文本型<br /> .局部变量 大写数据组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 大写数值, 文本型<br /> .局部变量 结果, 文本型<br /> .局部变量 JS, 对象<br /> .局部变量 成员数, 整数型<br /> .局部变量 数字, 文本型<br /> <br /> JS.创建 (“ScriptControl”, )<br /> JS.写属性 (“Language”, “JScript”)<br /> 文本_逐字分割_汇编 (大写数据, 大写数据组)<br /> 成员数 ＝ 取数组成员数 (大写数据组)<br /> .计次循环首 (成员数, i)<br />     大写数值 ＝ 大写数据组 <i><br />     数字 ＝ 文本_数字 (大写数值, i ＝ 1)<br />     结果 ＝ 结果 ＋ 数字<br /> .计次循环尾 ()<br /> 返回 (JS.文本方法 (“Eval”, 结果))<br /> <br /> .子程序 文本_逐字分割_汇编, 整数型, , 超长文本计算时有优势 调用该命令前请确定内容不为空<br /> .参数 参_内容, 文本型<br /> .参数 参_文本数组, 文本型, 数组<br /> .局部变量 空白文本, 文本型<br /> <br /> .如果真 (参_内容 ＝ “”)<br />     返回 (0)<br /> .如果真结束<br /> 空白文本 ＝ 取空白文本 (取文本长度 (参_内容) × 2)<br /> 置入代码 ({ 139, 69, 8, 139, 48, 139, 125, 252, 172, 168, 128, 117, 26, 60, 32, 116, 247, 60, 9, 116, 243, 60, 13, 116, 239, 60, 10, 116, 235, 132, 192, 116, 28, 170, 176, 9, 170, 235, 225, 60, 161, 117, 10, 134, 224, 172, 60, 161, 116, 214, 134, 224, 78, 170, 172, 170, 176, 9, 170, 235, 203, 49, 192, 170 })<br /> 参_文本数组 ＝ 分割文本 (空白文本, 到文本 ({ 9 }), )<br /> 返回 (取数组成员数 (参_文本数组))<br /> <br /> .子程序 文本_数字, 文本型<br /> .参数 文本, 文本型<br /> .参数 首字, 逻辑型<br /> .局部变量 c, 文本型<br /> .局部变量 temp, 整数型<br /> .局部变量 d, 文本型<br /> <br /> c ＝ “零一二三四五六七八九”<br /> d ＝ “十百千”<br /> temp ＝ 寻找文本 (c, 文本, , 假)<br /> .如果真 (temp ≠ -1)<br />     返回 (选择 (首字, “”, “+”) ＋ 到文本 (到整数 (temp ＼ 2)))<br /> .如果真结束<br /> temp ＝ 寻找文本 (d, 文本, , 假)<br /> 返回 (选择 (首字, “”, “*”) ＋ “1” ＋ 取重复文本 (到整数 (temp ＼ 2) ＋ 1, “0”))

易之神童

牛，我就看看

上帝工程师

看看

ljh1921

qcby 发表于 2023-3-6 23:20
万和亿没有吗调试输出 (大写到数值 (“九万”))
[23:20:30] * “90”

主要是搞个思路嘛

qcby

万和亿没有吗调试输出 (大写到数值 (“九万”))
[23:20:30] * “90”