- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]字符串提取 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=175952)
-- 发布时间：2022/3/24 23:18:00
-- [求助]字符串提取
求助，如果表a第一列值含有<>这个符号
填充捕捉<hg> Ctrl+H
表a第二列，自动录入值
hg
也就是<提取左右单括号中间的文字>
-- 发布时间：2022/3/24 23:27:00
--
Dim s As String = "也就是<提取左右单括号中间的文字> "
Dim i As Integer = s.IndexOf("<")
If i > -1 Then
Dim j As Integer = s.IndexOf(">",i)
If j > -1 Then
msgbox(s.SubString(i+1,j - i-1))
End If
End If
-- 发布时间：2022/3/25 15:58:00
-- 回复：（有点蓝）Dim s As String = "也就是<提取左...
蓝大师，我改成括号，怎么只能开头是（的才能执行？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:改成括号不行，求助.foxdb |
-- 发布时间：2022/3/25 16:08:00
--
中英文括号的差别：http://www.foxtable.com/webhelp/topics/1273.htm
-- 发布时间：2022/3/25 16:16:00
--
\'\'\'
If e.DataCol.Name = "第三列" Then
If e.DataRow.IsNull("第三列") Then
e.DataRow("第四列") = Nothing
Else
Dim s As String = e.DataRow("第三列")
s = s.Replace("（","(").Replace("）",")")
Dim ss As String = s.split("(")(1)
ss = ss.split(")")(0)
e.DataRow("第四列") = ss
End If
End If