字符串的分割 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 字符串的分割

共有233人关注过本帖树形打印复制链接主题：字符串的分割

newsun2k

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：六尾狐帖子：1435 积分：10592 威望：0 精华：0 注册：2014/8/13 16:19:00

字符串的分割 发帖心情

Post By：2024/4/8 13:58:00 [只看该作者]

我有一个字符串，大概是以下内容：

'-------------------

xxx：

申请日：｛申请日｝

申请号：｛申请号｝

期限：｛dateadd(申请日,d,15)｝

xxxxxxxx

'-------------------

我想从这个字符串中分离得到“｛dateadd(申请日,d,15)｝”，这个里面的“申请日”,d,15，用户都有可能修改的。

什么方法最快？

请指教。

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：106532 积分：541819 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/4/8 14:05:00 [只看该作者]

Dim s As String = "xxxxxxxxx期限：｛dateadd(申请日,d,15)｝xxxxxxxxxx"

Dim a As Integer = s.IndexOf("期限：｛")

If a > -1 Then

Dim b As Integer = s.IndexOf("｝", a)

If b > -1 Then

MsgBox(s.Substring(a + 3, b - a - 2))

End If

逛逛

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：1693 积分：12117 威望：0 精华：7 注册：2013/7/11 10:52:00

Post By：2024/4/8 14:46:00 [只看该作者]

可以试试正则，从某某字符串后开始到某某字符串前结束

Dim a As String = "xxx: 申请日:{申请日} 申请号:{申请号} 期限:{dateadd(申请日,d,15)} xxxxxxxx "

Dim expr = String.Format("(?<={0}).*?(?={1})","期限:","xxxx")

Dim mc = Regex.Matches(a, expr)

msgbox(mc(0).ToString)

主题：字符串的分割