以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110593)
--  作者：168448704
--  发布时间：2017/12/6 8:23:00
--  [求助]
求助，在狐表中如何将整数12转换为十二；10转换为十。115转换为一百一十五的格式。帮助文件里找不到此转换函数啊。
--  作者：有点甜
--  发布时间：2017/12/6 9:01:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/0318.htm

 

Dim n = 112
Dim ary1 As String() = {"壹", "贰", "拾", "佰"}
Dim ary2 As String() = {"一", "二", "十", "百"}
Dim str As String = CUNumber(n)
For i As Integer = 0 To ary2.length -1
    str = str.replace(ary1(i), ary2(i))
Next
msgbox(str)
--  作者：168448704
--  发布时间：2017/12/6 10:32:00
--  
非常感谢，这个问题可不可以采取自定义函数来一次性解决，该如何做？
--  作者：有点蓝
--  发布时间：2017/12/6 12:12:00
--  
函数

dim n  = args(0)
Dim ary1 As String() = {"壹", "贰", "拾", "佰"}
Dim ary2 As String() = {"一", "二", "十", "百"}
Dim str As String = CUNumber(n)
For i As Integer = 0 To ary2.length -1
    str = str.replace(ary1(i), ary2(i))
Next
return str

调用
dim s as string = Functions.Execute("函数名称",112)
msgbox(s)
--  作者：168448704
--  发布时间：2017/12/6 15:28:00
--  
谢谢！非常感谢！