如何提取整个列中某一段字符，形成字符串集合 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何提取整个列中某一段字符，形成字符串集合

共有3857人关注过本帖树形打印复制链接主题：如何提取整个列中某一段字符，形成字符串集合

rongping

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

加好友

发短信

等级：小狐帖子：349 积分：2993 威望：0 精华：0 注册：2018/3/15 16:46:00

如何提取整个列中某一段字符，形成字符串集合 发帖心情

Post By：2022/5/9 13:16:00 [只看该作者]

假如我有一个表，表名学生表。表有一个列叫备注，在备注的单元格里面有一段文本，我看过《鲁迅》，《唐诗三百首》，《安徒生童话》等等。我想把每一个备注单元格里面的书名提取出来给一个字符串集合，请问如何实现？

有点蓝

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

加好友

发短信

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

Post By：2022/5/9 13:45:00 [只看该作者]

Dim s As String = "我看过《鲁迅》，《唐诗三百首》，《安徒生童话》等等。"

Dim p As String = "(?<=《).*?(?=》)"

Dim rgx = New System.Text.RegularExpressions.Regex(p, System.Text.RegularExpressions.RegexOptions.IgnoreCase)

For Each match As System.Text.RegularExpressions.Match In rgx.Matches(s)

Output.Show(match.Value )

rongping

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

加好友

发短信

等级：小狐帖子：349 积分：2993 威望：0 精华：0 注册：2018/3/15 16:46:00

Post By：2022/5/9 14:57:00 [只看该作者]

以下是引用有点蓝在2022/5/9 13:45:00的发言：

Dim s As String = "我看过《鲁迅》，《唐诗三百首》，《安徒生童话》等等。"

Dim p As String = "(?<=《).*?(?=》)"

Dim rgx = New System.Text.RegularExpressions.Regex(p, System.Text.RegularExpressions.RegexOptions.IgnoreCase)

For Each match As System.Text.RegularExpressions.Match In rgx.Matches(s)

Output.Show(match.Value )

Dim shus As New List(Of String)
shus = DataTables("学生管理").SQLGetValues("备注")
Dim i As Integer
Dim p As String = "(?<=《).*?(?=》)"
Dim rgx = New System.Text.RegularExpressions.Regex(p, System.Text.RegularExpressions.RegexOptions.IgnoreCase)

For i = 0 To names.Count - 1
For Each match As System.Text.RegularExpressions.Match In rgx.Matches(shus(i))
Output.Show(match.Value )
Next
Next

为什么我这样不行？

有点蓝

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

加好友

发短信

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

Post By：2022/5/9 15:04:00 [只看该作者]

请上传实例说明

下一主题 >> << 上一主题

主题：如何提取整个列中某一段字符，形成字符串集合