| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| chars | 文本型 | | 0 |
| result | 长整数型 | | |
| strs | 文本型 | | 0 |
逐字分割 (cnnumber, chars
)strs ＝
分割文本 (cnnumber,
“亿”,
)result ＝
ConverToDigit (strs
[1
])
如果真 (取数组成员数 (strs
) ＞ 1
)
result ＝ result × 100000000
result ＝ result ＋
ConverToDigit (strs
[2
])返回 (result)判断 (cn ＝
“壹” 或 cn ＝
“一”)
num ＝ 1
判断 (cn ＝
“贰” 或 cn ＝
“两” 或 cn ＝
“二”)
num ＝ 2
判断 (cn ＝
“叁” 或 cn ＝
“三”)num ＝ 3
判断 (cn ＝
“肆” 或 cn ＝
“四”)num ＝ 4
判断 (cn ＝
“伍” 或 cn ＝
“五”)num ＝ 5
判断 (cn ＝
“陆” 或 cn ＝
“六”)num ＝ 6
判断 (cn ＝
“柒” 或 cn ＝
“七”)num ＝ 7
判断 (cn ＝
“捌” 或 cn ＝
“八”)num ＝ 8
判断 (cn ＝
“玖” 或 cn ＝
“九”)num ＝ 9
判断 (cn ＝
“拾” 或 cn ＝
“十”)num ＝ 10
判断 (cn ＝
“佰” 或 cn ＝
“百”)num ＝ 100
判断 (cn ＝
“仟” 或 cn ＝
“千”)num ＝ 1000
判断 (cn ＝
“萬” 或 cn ＝
“万”)num ＝ 10000
判断 (cn ＝
“零”)
num ＝ 0
num ＝ 0
返回 (num)|
| ConverToDigit | 整数型 | |
|
| cnnumber | 文本型 | | | |
| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| result | 整数型 | | |
| temp | 整数型 | | |
| chars | 文本型 | | 0 |
| len | 整数型 | | |
| i | 整数型 | | |
| tp1 | 整数型 | | |
逐字分割 (cnnumber, chars
)len ＝
取数组成员数 (chars
)
计次循环首 (len, i
)tp1 ＝
ToDigit (chars
[i
])判断 (tp1 ＝ 10000
)result ＝ result ＋ temp
result ＝ result × 10000
temp ＝ 0
判断 (tp1 ＞ 9
)如果真 (tp1 ＝ 10
且 temp ＝ 0
)temp ＝ 1
result ＝ result ＋ temp × tp1temp ＝ 0
temp ＝ tp1
计次循环尾 ()result ＝ result ＋ temp
返回 (result
)| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 文本 | 文本型 | | |
| n | 整数型 | | |
| 代码 | 整数型 | | |
| 临时 | 文本型 | | |
| 分割后文本 | 文本型 | | 0 |
| i | 整数型 | | |
| 最终文本 | 文本型 | | |
| len | 整数型 | | |
n ＝ 1
文本 ＝ 数据
判断循环首 (n ≤
取文本长度 (文本
))
临时 ＝
取文本中间 (文本, n, 1
)如果真 (取代码 (临时,
) ＜ 0
)临时 ＝
取文本中间 (文本, n, 2
)n ＝ n ＋ 1
加入成员 (分割后文本, 临时)n ＝ n ＋ 1
判断循环尾 ()len ＝
取数组成员数 (分割后文本
)计次循环首 (len, i
)判断 (i ≠ len
)最终文本 ＝ 最终文本 ＋ 分割后文本
[i
] ＋
“ ”最终文本 ＝ 最终文本 ＋ 分割后文本
[i
]计次循环尾 ()result ＝
分割文本 (最终文本,
“ ”,
)
