(补充)求助一个正则表达式

Ericcccccc

学号	字符串
22134	希望得到家庭电话2234599asd缩短87王小明学号22134的结果
	结果
	希望得到的结果

求助一个正则表达式，删除"家庭电话"---“22134”之间的内容，输出结果如绿色背景部分
其中，22134是引用A2的结果，是个变量
.Pattern = "\希望得到.+\A2"结果出问题了，大神帮忙看看

lsdongjh和zopey大神的结果可以获取到条件不重复时的数据，如果条件有数次重复时，该怎么处理

学号	字符串
22134	希望得到家庭电话2234599asd缩短87王小明学号22134的结果完全希望得到1123456asdg22134的结果
	结果
	希望得到的结果完全希望得到的结果

lsdongjh

myRegExp.Pattern = "(希望得到).*?(“ & Range("A2“).text & ”的结果)"
ResultString = myRegExp.Replace(SubjectString, "$1$2")

注意：A2单元格中不能出现 正则的关键字或符号

zopey

Sub test()
txt = "希望得到家庭电话223459987王小明学号22134的结果"
txt2 = "22134"

With CreateObject("vbscript.regexp")
    .Global = True
    .Pattern = "家庭电话.+" & txt2
    If .test(txt) Then
        MsgBox Replace(txt, .Execute(txt)(0), "")
    End If
End With
End Sub

Ericcccccc

zopey 发表于 2019-1-22 13:56
Sub test()
txt = "希望得到家庭电话223459987王小明学号22134的结果"
txt2 = "22134"

能帮忙看看补充的需求吗，条件重复时的获取

Ericcccccc

lsdongjh 发表于 2019-1-22 13:45
myRegExp.Pattern = "(希望得到).*?(“ & Range("A2“).text & ”的结果)"
ResultString = myRegExp.Repla ...

能帮忙看看补充的需求吗，条件重复时的获取

lsdongjh

1. myRegExp.Pattern = "((完全)*希望得到).*?(的结果)"
   
2. ResultString = myRegExp.Replace(SubjectString, "$1$3")

复制代码

microyip

1. Function 正则提取应用()
   
2.     Dim oData As Object, nData As Integer
   
3.     Dim regExp As Object, sStr As String
   
4.    
   
5.     Set regExp = CreateObject("Vbscript.RegExp")
   
6.     With regExp
   
7.         .Global = True
   
8.         .IgnoreCase = True
   
9.         sStr = "希望得到家庭电话2234599asd缩短87王小明学号22134的结果完全希望得到1123456asdg22134的结果"
   
10.         .Pattern = "希望得到.+?的结果"
    
11.         Set oData = .Execute(sStr)
    
12.         If oData.Count > 0 Then
    
13.             sStr = ""
    
14.             With oData
    
15.                 For nData = 1 To .Count
    
16.                     sStr = sStr & "希望得到的结果"
    
17.                 Next
    
18.             End With
    
19.         End If
    
20.     End With
    
21. End Function

复制代码

ggmmlol

用Replace方法。如图所示：

mzbao

1. Sub RegxReplace()
   
2.     Dim RegX As Object, txt$
   
3.    
   
4.     txt = [B2]
   
5.    
   
6.     Set RegX = CreateObject("vbscript.regexp")
   
7.     RegX.Global = True
   
8.     RegX.Pattern = "((完全)?希望得到)((?!的结果).)*(的结果)"
   
9.    
   
10.     txt = RegX.Replace(txt, "$1$4")
    
11.    
    
12.     Debug.Print txt
    
13. End Sub

复制代码

Ericcccccc

lsdongjh 发表于 2019-1-22 15:34

请问这里的"$1$3"是什么意思