请教正则，如何提取字符串中的内容

deadhunter

1231231测试(铜陵有色)10日上涨5.01%

请教大家，如果我要提取（）内的“铜陵有色”并赋值给一个变量a，用VBS正则怎样实现？

joseph_wh

'VBS取括号中内容
str="1231231测试(铜陵有色)10日上涨5.01%"
strget=mid(str,instr(str,"(")+1,InStrRev ...
feiyunkai 发表于 2011-1-18 13:46

    这个是最方便的方法。

wugecat

这样试试

1. Function RegExpTest1(patrn, strng)
   
2.   Dim regEx, Match, Matches      
   
3.   Set regEx = New RegExp        
   
4.   regEx.Pattern = patrn         
   
5.   regEx.IgnoreCase = True      
   
6.   regEx.Global = True         
   
7.   Set Matches = regEx.Execute(strng)   
   
8.   set RegExpTest1 = Matches
   
9. End Function
   
10. 
    
11. Set a=RegExpTest1 ("[^1231231测试\(].*[^\)10日上涨5.01%]","1231231测试(铜陵有色)10日上涨5.01%")
    
12. 'msgbox a.count
    
13. For i=0 to a.count-1
    
14. msgbox a(i).value
    
15. Next

复制代码

my_way

按照你的需求，不用正则表达式也可以这样：
Dim str : str = "1231231测试(铜陵有色)10日上涨5.01%"
For i = 1 to Len(str)
        If mid(str,i,len("铜陵有色")) = "铜陵有色"  Then
                 a = mid(str,i,len("铜陵有色"))
                 Exit for
        End If
        If i = Len(str) Then
                msgbox "铜陵有色 was not found!"
        End If
Next

superliming

牛

deadhunter

谢谢

feiyunkai

'VBS取括号中内容
str="1231231测试(铜陵有色)10日上涨5.01%"
strget=mid(str,instr(str,"(")+1,InStrRev(str,")")-(instr(str,"(")+1))
msgbox strget

gezhirong

Function regtest(strng,patrn)
Set regex=new regexp
regex.pattern=patrn
regex.global=true
regex.ignorecase=true
set matches=regex.execute(strng)
For each match in matches
        regtest=match
Next
End Function
str="1231231测试(铜陵有色)10日上涨5.01%"
pat="铜陵有色"
a= regtest(str,pat)
msgbox a