以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  VBA 中自定义函数 如何在foxtable中实现。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=41586)

--  作者:tongliaozyr
--  发布时间:2013/10/23 6:39:00
--  VBA 中自定义函数 如何在foxtable中实现。

[求教]

VBA 中有自定义函数 在foxtable中有类似的功能吗?

如果没有,想取字母[或汉字]+数字混合数据的数字部分,[如12b3c=〉123]。


--  作者:lsy
--  发布时间:2013/10/23 7:33:00
--  
Dim str As String = "12ab3c5d"
Dim s As String
For i As Integer = 0 To str.Length - 1
    If Char.IsDigit(str(i)) Then
        s + = str(i)
    End If
Next
Output.Show(s)

--  作者:狐狸爸爸
--  发布时间:2013/10/23 8:12:00
--  

foxtable比vba更强更灵活


--  作者:tongliaozyr
--  发布时间:2013/10/23 9:53:00
--  
确实不错
--  作者:yokeishun
--  发布时间:2013/10/23 11:07:00
--  
嗯,不错