求一个数字转换器

skyab123

求一个数字 转换器就是 0-9的数字 转换成 其它数字对应就可以了 比如  0123456789 转换成

补充内容 (2024-5-5 17:28):

123456789 转换成这样  一二③⒋5陆⑦八⑨  原数字是我需要转换的  后面是转换结果

无痕雨

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

调试输出 (数字转换_分割 (“123456789”))
调试输出 (数字转换_替换 (“123456789”))

子程序名	返回值类型	公开	备 注
数字转换_分割	文本型
参数名	类 型	参考	可空	数组	备 注
文本信息	文本型

变量名	类 型	静态	数组	备 注
arr	文本型		0
i	整数型
TxT	文本型
Data	文本型

文本_逐字分割 (文本信息, arr)
计次循环首 (取数组成员数 (arr), i)
如果真 (arr [i] ＝ “1”)
TxT ＝ “一”
如果真 (arr [i] ＝ “2”)
TxT ＝ “二”
如果真 (arr [i] ＝ “3”)
TxT ＝ “③”
如果真 (arr [i] ＝ “4”)
TxT ＝ “⒋”
如果真 (arr [i] ＝ “5”)
TxT ＝ “5”
如果真 (arr [i] ＝ “6”)
TxT ＝ “陆”
如果真 (arr [i] ＝ “7”)
TxT ＝ “⑦”
如果真 (arr [i] ＝ “8”)
TxT ＝ “八”
如果真 (arr [i] ＝ “9”)
TxT ＝ “⑨”

Data ＝ Data ＋ TxT
计次循环尾 ()
' 调试输出 (Data)
返回 (Data)

子程序名	返回值类型	公开	备 注
数字转换_替换	文本型
参数名	类 型	参考	可空	数组	备 注
文本信息	文本型

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

TxT ＝ 文本_替换 (文本信息, , , , “1”, “一”, “2”, “二”, “3”, “③”, “4”, “⒋”, “5”, “5”)
TxT ＝ 文本_替换 (TxT, , , , “6”, “陆”, “7”, “⑦”, “8”, “八”, “9”, “⑨”, , )
返回 (TxT)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 调试输出 (数字转换_分割 (“123456789”))<br /> 调试输出 (数字转换_替换 (“123456789”))<br /> <br /> .子程序 数字转换_分割, 文本型<br /> .参数 文本信息, 文本型<br /> .局部变量 arr, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 TxT, 文本型<br /> .局部变量 Data, 文本型<br /> <br /> 文本_逐字分割 (文本信息, arr)<br /> .计次循环首 (取数组成员数 (arr), i)<br />     .如果真 (arr <i> ＝ “1”)<br />         TxT ＝ “一”<br />     .如果真结束<br />     .如果真 (arr <i> ＝ “2”)<br />         TxT ＝ “二”<br />     .如果真结束<br />     .如果真 (arr <i> ＝ “3”)<br />         TxT ＝ “③”<br />     .如果真结束<br />     .如果真 (arr <i> ＝ “4”)<br />         TxT ＝ “⒋”<br />     .如果真结束<br />     .如果真 (arr <i> ＝ “5”)<br />         TxT ＝ “5”<br />     .如果真结束<br />     .如果真 (arr <i> ＝ “6”)<br />         TxT ＝ “陆”<br />     .如果真结束<br />     .如果真 (arr <i> ＝ “7”)<br />         TxT ＝ “⑦”<br />     .如果真结束<br />     .如果真 (arr <i> ＝ “8”)<br />         TxT ＝ “八”<br />     .如果真结束<br />     .如果真 (arr <i> ＝ “9”)<br />         TxT ＝ “⑨”<br />     .如果真结束<br /> <br />     Data ＝ Data ＋ TxT<br /> .计次循环尾 ()<br /> ' 调试输出 (Data)<br /> 返回 (Data)<br /> <br /> <br /> .子程序 数字转换_替换, 文本型<br /> .参数 文本信息, 文本型<br /> .局部变量 TxT, 文本型<br /> <br /> TxT ＝ 文本_替换 (文本信息, , , , “1”, “一”, “2”, “二”, “3”, “③”, “4”, “⒋”, “5”, “5”)<br /> TxT ＝ 文本_替换 (TxT, , , , “6”, “陆”, “7”, “⑦”, “8”, “八”, “9”, “⑨”, , )<br /> 返回 (TxT)

一个是文本替换 一个是逐字分割匹配的

青梅

转换成什么??


补充内容 (2024-5-5 17:19):
空?

skyab123

青梅 发表于 2024-5-5 17:19
转换成什么??

就要把普通的阿拉伯数字转换成 特殊数字符号

无痕雨

skyab123 发表于 2024-5-5 17:21
就要把普通的阿拉伯数字转换成 特殊数字符号

转换成的大概样子是社么样呢 比如0对应什么 1对应什么

skyab123

无痕雨 发表于 2024-5-5 17:21
转换成的大概样子是社么样呢 比如0对应什么 1对应什么

123456789 转换成这样  一二③⒋5陆⑦八⑨

skyab123

青梅 发表于 2024-5-5 17:19
转换成什么??

123456789 转换成这样  一二③⒋5陆⑦八⑨

fire9

  

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

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
a	整数型

a ＝ 123456
调试输出 (数值到金额 (a, 假))

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 a, 整数型<br /> <br /> a ＝ 123456<br /> <br /> 调试输出 (数值到金额 (a, 假))

补充内容 (2024-5-5 17:25):
ee 好像错了，跟题目没啥关系QAQ

青梅

.版本 2
.支持库 spec

你要转换的文本 ＝ 文本_替换 (你要转换的文本, , , , “0”, 特殊符号0, “1”, 特殊符号1, “2”, 特殊符号2, “3”, 特殊符号3, “4”, 特殊符号4)
你要转换的文本 ＝ 文本_替换 (你要转换的文本, , , , “5”, 特殊符号5, “6”, 特殊符号6, “7”, 特殊符号7, “8”, 特殊符号8, “9”, 特殊符号9)
调试输出 (你要转换的文本)

skyab123

fire9 发表于 2024-5-5 17:24
[e=0].版本 2
.支持库 spec

123456789 转换成这样  一二③⒋5陆⑦八⑨  这样的可以实现吗