- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何提取字符串中间的字符？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132315)
-- 发布时间：2019/3/19 16:17:00
-- [求助]如何提取字符串中间的字符？
例：发文字号：信边军〔2019〕12号，“发文编号”想提取“12”两个数字，下边代码，如何更改，谢谢
Select Case e.DataCol.name
Case "收到日期",
"发文字号"
If e.DataRow.IsNull("收到日期") Then
e.DataRow("发文编号") = Nothing
Else
Dim s = e.DataRow( "发文字号")
Dim str As String
str &= str.substring(str.indexOf(")")+1,str.indexOf("号"))
e.DataRow("发文编号") = str
End If
End Select
-- 发布时间：2019/3/19 16:21:00
--
\'\'\'
Dim str = "信边军〔2019〕12号"
Dim i1 = str.indexOf("〕")+1
Dim i2 = str.indexOf("号")
Dim s = str.substring(i1, i2-i1)
msgbox(s)
http://www.foxtable.com/webhelp/scr/1273.htm
-- 发布时间：2019/3/19 16:57:00
--
代码：Select Case e.DataCol.name
Case "收到日期", "发文字号"
If e.DataRow.IsNull("收到日期") Then
e.DataRow("发文编号") = Nothing
Else
Dim str = e.DataRow( "发文字号")
Dim i1 = str.indexOf("〕")+1
Dim i2 = str.indexOf("号")
Dim s = str.substring(i1, i2-i1)
e.DataRow("发文编号") = s
End If
End Select
出现下列错误：
此主题相关图片如下：微信图片_20190319165524.jpg
此主题相关图片如下：微信图片_20190319165524.jpg-- 发布时间：2019/3/19 17:00:00
--
\'\'\'
Select Case e.DataCol.name
Case "发文字号"
If e.DataRow.IsNull("发文字号") Then
e.DataRow("发文编号") = Nothing
Else
Dim str = e.DataRow( "发文字号")
Dim i1 = str.indexOf("〕")+1
Dim i2 = str.indexOf("号")
If i1 >= 1 AndAlso i2 >= 2 Then
Dim s = str.substring(i1, i2-i1)
e.DataRow("发文编号") = s
Else
e.DataRow("发文编号") = Nothing
End If
End If
End Select
-- 发布时间：2019/3/19 17:04:00
--
谢谢，成功了，
-- 发布时间：2019/3/19 17:21:00
--
从左边开始，截取字符串，代码是什么？
-- 发布时间：2019/3/19 17:36:00
--
以下是引用hrw68529在2019/3/19 17:21:00的发言：
从左边开始，截取字符串，代码是什么？
从左边开始，截取字符串，代码是什么？
参考
http://www.foxtable.com/webhelp/scr/0240.htm