正则表达式找子字符串-CSDN论坛

⋅XML序列化 List派生类 ⋅C# XML序列化List ⋅C# XML序列化指定节点名称 更多帖子 关注私信空间博客 gooore 本版专家分：1179 结帖率 97.37%: 您好，请问能不能用正则表达式实现VB里面 Left，Right，Mid这样的功能。

我现在要抽一个字符串的子串，但是我想把想抽什么内容开放出来，用正则表达式实现，不知道可不可行。

感谢您的回复

0 2011-12-02 15:41:10

回复数 11 只看楼主引用举报楼主

⋅一个快递的悲催旅程 ⋅押宝游戏 2012年12月,CSDN哪个版块个人专家分最高 ⋅押宝游戏 2012年12月,CSDN哪个版块个人专家分最高 更多帖子 关注私信空间博客 -晴天 本版专家分：3414 进士 2011年总版技术专家分年内排行榜第八 铜牌 2011年12月总版技术专家分月排行榜第三 2011年9月总版技术专家分月排行榜第三 红花 2011年6月 MS-SQL Server大版内专家分月排行榜第一 黄花 2011年12月 MS-SQL Server大版内专家分月排行榜第二 2011年9月 MS-SQL Server大版内专家分月排行榜第二: VB 里貌似木有正则.

0 2011-12-02 15:46:29

只看TA 引用举报 #1 得分 2

⋅请教下有什么办法把下面bas模块中代码挪到类模块中？

⋅张国荣哥哥没有自杀，还活着！有图

⋅打响碎片时间保卫战！2020第一战！！

更多帖子

关注私信空间博客

版祖

本版专家分：29049

版主

签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！

GitHub 绑定GitHub第三方账户获取

黄花 2011年10月 VB大版内专家分月排行榜第二
2011年3月 VB大版内专家分月排行榜第二
2011年2月 VB大版内专家分月排行榜第二

蓝花 2011年5月 VB大版内专家分月排行榜第三
2011年4月 VB大版内专家分月排行榜第三: 引用楼主 gooore 的回复:
您好，请问能不能用正则表达式实现VB里面 Left，Right，Mid这样的功能。

我现在要抽一个字符串的子串，但是我想把想抽什么内容开放出来，用正则表达式实现，不知道可不可行。

感谢您的回复
给出具体事例。你目前用left之类的怎么操作的？

0 2011-12-02 16:04:30

只看TA 引用举报 #2 得分 3

⋅XML序列化 List派生类 ⋅C# XML序列化List ⋅C# XML序列化指定节点名称 更多帖子 关注私信空间博客 gooore 本版专家分：1179: 没有也没有关系，主要想要正则表达式。
我可以把代码转到.net上面去

引用 1 楼 qianjin036a 的回复:
VB 里貌似木有正则.

0 2011-12-02 16:29:28

只看TA 引用举报 #3 得分 0

⋅XML序列化 List派生类 ⋅C# XML序列化List ⋅C# XML序列化指定节点名称 更多帖子 关注私信空间博客 gooore 本版专家分：1179

比如



strSubString=left("AAAABBBBCCC",5)

多少位不固定，字符串没有严格的规律。

引用 2 楼 sysdzw 的回复:

引用楼主 gooore 的回复:
您好，请问能不能用正则表达式实现VB里面 Left，Right，Mid这样的功能。

我现在要抽一个字符串的子串，但是我想把想抽什么内容开放出来，用正则表达式实现，不知道可不可行。

感谢您的回复
给出具体事例。你目前用left之类的怎么操作的？

0 2011-12-02 16:31:10

只看TA 引用举报 #4 得分 0

⋅XML序列化 List派生类 ⋅C# XML序列化List ⋅C# XML序列化指定节点名称 更多帖子 关注私信空间博客 gooore 本版专家分：1179: 我是说，可以外部定义取多少位的。

引用 4 楼 gooore 的回复:
比如

VB code

strSubString=left("AAAABBBBCCC",5)

多少位不固定，字符串没有严格的规律。

引用 2 楼 sysdzw 的回复:
引用楼主 gooore 的回复:
您好，请问能不能用正则表达式实现VB里面 Left，Right，Mid这样的功能。

我现在要抽一个字符串的子串，但是我想把想抽什么内容开放出来，……

0 2011-12-02 16:31:43

只看TA 引用举报 #5 得分 0

⋅一个快递的悲催旅程 ⋅押宝游戏 2012年12月,CSDN哪个版块个人专家分最高 ⋅押宝游戏 2012年12月,CSDN哪个版块个人专家分最高 更多帖子 关注私信空间博客 -晴天 本版专家分：3414 进士 2011年总版技术专家分年内排行榜第八 铜牌 2011年12月总版技术专家分月排行榜第三 2011年9月总版技术专家分月排行榜第三 红花 2011年6月 MS-SQL Server大版内专家分月排行榜第一 黄花 2011年12月 MS-SQL Server大版内专家分月排行榜第二 2011年9月 MS-SQL Server大版内专家分月排行榜第二: 只要有需求，都能用VB来实现的。
用正则，也是一系列处理过程，只不过是系统帮你做了罢了。

0 2011-12-02 16:36:28

只看TA 引用举报 #6 得分 4

⋅上海不是实行垃圾分类了吗？ ⋅自动驾驶汽车上路之前，先完善对应的交通事故处理的法律法规再说。 ⋅VC/MFC和VB6拒绝我回帖了！ 更多帖子 关注私信空间博客 赵4老师 本版专家分：40623 状元 2017年总版技术专家分年内排行榜第一 榜眼 2014年总版技术专家分年内排行榜第二 探花 2013年总版技术专家分年内排行榜第三 进士 2018年总版新获得的技术专家分排名前十 2012年总版技术专家分年内排行榜第七

^.{3}相当于Left 3
.{3}$相当于Right 3
^(.{2})(.{3})的第二个子匹配相当于Mid 2 3
VB6调用VBScript控件msscript.ocx:

Function RegExpN(ptn, txt, n) As String

'Debug.Print "[" + RegExpN("[012]{8}", "mno_if22220101_and11000011_or00111100_xor10101010.txt", 1) + "]"

'[22220101]

'Debug.Print "[" + RegExpN("[012]{8}", "mno_if22220101_and11000011_or00111100_xor10101010.txt", 2) + "]"

'[11000011]

'Debug.Print "[" + RegExpN("[012]{8}", "mno_if22220101_and11000011_or00111100_xor10101010.txt", 3) + "]"

'[00111100]

'Debug.Print "[" + RegExpN("[012]{8}", "mno_if22220101_and11000011_or00111100_xor10101010.txt", 4) + "]"

'[10101010]

'Debug.Print "[" + RegExpN("[012]{8}", "mno_if22220101_and11000011_or00111100_xor10101010.txt", 5) + "]"

'[]

'Debug.Print "[" + RegExpN("[a-z]+(\d+)[_.]", "mno_if22220101_and11000011_or00111100_xor10101010.txt", 4) + "]"

'[xor10101010.]

'Debug.Print "[" + RegExpN("[a-z]+(\d+)[_.]", "mno_if22220101_and11000011_or00111100_xor10101010.txt", 4.1) + "]"

'[10101010]

'Debug.Print "[" + RegExpN("<abc>(.*)</abc>", "<html><ab>AB</ab><abc>ABC汉字</abc></html>", 1) + "]"

'[<abc>ABC汉字</abc>]

'Debug.Print "[" + RegExpN("<abc>(.*)</abc>", "<html><ab>AB</ab><abc>ABC汉字</abc></html>", 1.1) + "]"

'[ABC汉字]

Dim rtnstr As String

Dim codestr As String

    rtnstr = ""

    With ScriptControl1

        ' Set script language (VBScript is the default).

        .Language = "VBScript"

        ' Set UI interaction (TRUE is the default).

        .AllowUI = True

        ' Copy the script to the control.

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

codestr = ""

codestr = codestr + "Function RegExpTest(patrn, strng, ns)      " + vbCrLf

codestr = codestr + "    Dim regEx, Match, Matches, RetStr, ii  " + vbCrLf

codestr = codestr + "    Dim nn,ss                              " + vbCrLf

codestr = codestr + "    nn=fix(ns)                             " + vbCrLf

codestr = codestr + "    if nn=ns then                          " + vbCrLf

codestr = codestr + "        ss=-1                              " + vbCrLf

codestr = codestr + "    else                                   " + vbCrLf

codestr = codestr + "        ss=(ns-nn)*10-1                    " + vbCrLf

codestr = codestr + "    end if                                 " + vbCrLf

codestr = codestr + "    Set regEx = New RegExp                 " + vbCrLf

codestr = codestr + "    regEx.Pattern    = patrn               " + vbCrLf

codestr = codestr + "    regEx.IgnoreCase = True                " + vbCrLf

codestr = codestr + "    regEx.Global     = True                " + vbCrLf

codestr = codestr + "    Set Matches = regEx.Execute(strng)     " + vbCrLf

codestr = codestr + "    ii=0                                   " + vbCrLf

codestr = codestr + "    For Each Match in Matches              " + vbCrLf

codestr = codestr + "        ii=ii+1                            " + vbCrLf

codestr = codestr + "        if ii=nn then                      " + vbCrLf

codestr = codestr + "            if ss=-1 then                  " + vbCrLf

codestr = codestr + "                RetStr=Match.Value         " + vbCrLf

codestr = codestr + "            else                           " + vbCrLf

codestr = codestr + "                RetStr=Match.SubMatches(ss)" + vbCrLf

codestr = codestr + "            end if                         " + vbCrLf

codestr = codestr + "            exit for                       " + vbCrLf

codestr = codestr + "        end if                             " + vbCrLf

codestr = codestr + "    Next                                   " + vbCrLf

codestr = codestr + "    RegExpTest = RetStr                    " + vbCrLf

codestr = codestr + "    Set regEx = Nothing                    " + vbCrLf

codestr = codestr + "End Function                               " + vbCrLf

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

        .AddCode codestr

        Dim oMod As Object

        Set oMod = .Modules(GlobalModule)

        rtnstr = oMod.Run("RegExpTest", ptn, txt, n)

        Set oMod = Nothing

    End With

    RegExpN = rtnstr

End Function

0 2011-12-02 16:48:08

只看TA 引用举报 #7 得分 13

⋅请教下有什么办法把下面bas模块中代码挪到类模块中？

⋅张国荣哥哥没有自杀，还活着！有图

⋅打响碎片时间保卫战！2020第一战！！

更多帖子

关注私信空间博客

版祖

本版专家分：29049

版主

签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！

GitHub 绑定GitHub第三方账户获取

黄花 2011年10月 VB大版内专家分月排行榜第二
2011年3月 VB大版内专家分月排行榜第二
2011年2月 VB大版内专家分月排行榜第二

蓝花 2011年5月 VB大版内专家分月排行榜第三
2011年4月 VB大版内专家分月排行榜第三

引用 4 楼 gooore 的回复:

比如
VB code

strSubString=left("AAAABBBBCCC",5)

多少位不固定，字符串没有严格的规律。

引用 2 楼 sysdzw 的回复:
引用楼主 gooore 的回复:
您好，请问能不能用正则表达式实现VB里面 Left，Right，Mid这样的功能。

我现在要抽一个字符串的子串，但是我想把想抽什么内容开放出来，用正则表达式实现，……

'此代码由“正则测试工具 v1.1.35”自动生成，请直接调用TestReg过程

Private Sub TestReg()

    Dim strData As String

    Dim reg As Object

    Dim matchs As Object, match As Object



    strData = "AAAABBBBCCC"



    Set reg = CreateObject("vbscript.regExp")

    reg.Global = True

    reg.IgnoreCase = False

    reg.MultiLine = True

    reg.Pattern = "^.{5}"

    Set matchs = reg.Execute(strData)

    For Each match In matchs

        Debug.Print match.Value

    Next

End Sub

0 2011-12-02 16:49:27

只看TA 引用举报 #8 得分 12

⋅快过年了，好人一生平安。 ⋅关于VB的0、""(空字符串)、Null、Empty、与 Nothing 的区别，升三星散分。 ⋅[已处理] =========================c s d n为何反复要求登录=================== 更多帖子 关注私信空间博客 chinaboyzyq 本版专家分：54077 红花 2010年7月 VB大版内专家分月排行榜第一 2010年6月 VB大版内专家分月排行榜第一 2010年5月 VB大版内专家分月排行榜第一 2010年4月 VB大版内专家分月排行榜第一 黄花 2011年12月 VB大版内专家分月排行榜第二 2011年9月 VB大版内专家分月排行榜第二 2011年8月 VB大版内专家分月排行榜第二 2010年8月 VB大版内专家分月排行榜第二 2009年9月 VB大版内专家分月排行榜第二 蓝花 2012年2月 VB大版内专家分月排行榜第三 2011年11月 VB大版内专家分月排行榜第三 2011年3月 VB大版内专家分月排行榜第三 2011年1月 VB大版内专家分月排行榜第三 2010年3月 VB大版内专家分月排行榜第三 2010年2月 VB大版内专家分月排行榜第三 2009年10月 VB大版内专家分月排行榜第三 2009年8月 VB大版内专家分月排行榜第三: vb里可以引用正则表达式：
microsoft vbscript regular expressions 5.5

0 2011-12-02 16:53:01

只看TA 引用举报 #9 得分 5

⋅請問 listbox 添加資料的問題 ⋅請問高手可以幫助我一下嗎？ ⋅关于注册表的删除....HELP 更多帖子 关注私信空间博客 polosa 本版专家分：1: 
 <a href="http://www..........">
 感谢有你感恩节!!!!
 </a>
 
 
 QQ群：
 <img src="111.img">

 BBBBB 群
 </a>
 
 
 <img src="222.img">
 在线
 

请问要如何使用正则表达式取出：title1,title2,title3 里面的内容，而且也要取出 title1 的网址并避开 title3,title3 内的 <img src ...

0 2011-12-03 08:09:25

只看TA 引用举报 #10 得分 1

⋅XML序列化 List派生类 ⋅C# XML序列化List ⋅C# XML序列化指定节点名称 更多帖子 关注私信空间博客 gooore 本版专家分：1179: 楼上的你直接用DOM解析XML好了
我准备结贴了。

如果不知道该怎么解决，就开个新帖子吧

引用 10 楼 polosa 的回复:

 <a href="http://www..........">
 感谢有你感恩节!!!!
 </a>
 
 
 QQ群：
 <img src="111.img">

 BBBBB 群
 </a>
 
 <span class="titl……

0 2011-12-07 18:00:58

只看TA 引用举报 #11 得分 0

正则表达式找子字符串 [问题点数：40分，结帖人gooore]