以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  字符截取  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=87352)
--  作者：yjf123
--  发布时间：2016/7/8 19:00:00
--  字符截取
如何截取两个字符内的内容，入13[246]57[98]1223,截取[246]、[98]
--  作者：Hyphen
--  发布时间：2016/7/9 8:29:00
--  
Dim pattern As String = "\\[\\w+(?=\\])\\]"
Dim txt = "13[246]57[98]1223"
Dim rgx = new System.Text.RegularExpressions.Regex(pattern, System.Text.RegularExpressions.RegexOptions.IgnoreCase)

For Each  match As System.Text.RegularExpressions.Match In rgx.Matches(txt)
    Output.Show(match.Value )
Next
--  作者：cyl123
--  发布时间：2016/7/9 11:33:00
--  

如果是四个字符呢：[(  )]
如何截取两个字符内的内容，入13[(246)]57[(98)]1223截取
--  作者：Hyphen
--  发布时间：2016/7/9 11:46:00
--  
Dim pattern As String = "\\[\\(\\w+(?=\\)\\])\\)\\]"
--  作者：yjf123
--  发布时间：2016/7/10 17:51:00
--  
有个问题，只要里面包含字符就失效了：
Dim txt = "13[24*6]57[9{8]1223"
--  作者：大红袍
--  发布时间：2016/7/11 5:11:00
--  

Dim pattern As String = "\\[.+?\\]"
Dim txt = "13[24*6]57[9{8]1223"
Dim rgx = new System.Text.RegularExpressions.Regex(pattern, System.Text.RegularExpressions.RegexOptions.IgnoreCase)


For Each  match As System.Text.RegularExpressions.Match In rgx.Matches(txt)
    Output.Show(match.Value )
Next