以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请问如何写表达式，才能提取星号后面的字符？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=102520)
--  作者：zhanglian
--  发布时间：2017/6/21 17:29:00
--  请问如何写表达式，才能提取星号后面的字符？
请教下版主大人，我有一列，格式是字符，都是这样的：

128*3.55，

320*308.66*2.8，

224*5.3，

125*2.65，

70*64.6*1.5，

175*180*25，

115*120*15，

等等。

我现在需要提取最后一个数字，也就是最后一个星号（*）的最后的数字。
我新建了一个表达式列，但是发现没有函数有这个功能啊？Substring函数也不行，因为字符串有长有短。请问这个表达式如何写？请版主大人赐教！在下万分感谢！
--  作者：有点色
--  发布时间：2017/6/21 17:34:00
--  

参考代码

 

Dim str As String = "320*308.66*2.8,"
Dim ary() As String = str.Split("*")
Dim n As Double = val(ary(ary.length-1))
msgbox(n)

 

DataColChanged事件

 

 

If e.DataCol.Name = "第一列" Then
   
    Dim str As String = e.newvalue
    Dim ary() As String = str.Split("*")
    Dim n As Double = val(ary(ary.length-1))
    e.DataRow("第二列") = n
   
End If
--  作者：zhanglian
--  发布时间：2017/6/21 18:00:00
--  
谢谢！只能写代码？看起来好复杂。好吧。先慢慢啃这个代码吧。