[已解决]正则表达式摘取字符

roserice

求高手帮忙
1   想把这个字符串  " 移动：宁波海曙丁家村南NR（new_5GY）；[需求ID31712]" ,  移动：和NR间的字符提取出来 2   想把 这个字符串      "移动：宁波镇海宁大潘天寿艺术学院新大楼（移动5G二期新建二阶段 优先0715）；[需求ID29020]" 中的  "宁波镇海宁大潘天寿艺术学院新大楼" 提取出来

Sub aa4()
Dim mygetnum As String
Dim regEX As Object
strSrc = "移动：宁波海曙丁家村南NR（new_5GY）；[需求ID31712]"
  Set regEX = CreateObject("vbscript.regexp")

  With regEX
.Global = True
.Pattern = "[移动: \w][NR\w]"     
    mygetnum = .Replace(strSrc, "")
  End With

    Debug.Print mygetnum
End Sub


谢谢

最佳答案

月排行榜 / 总排行榜

砂海

2021-10-6 12:00

roserice 发表于 2021-10-6 09:43
老师给这个方法是好用的,再麻烦一下,现在我用  "  .Pattern = "移动.\.*" 可以把 "移动:"去掉,用  ".Patt ...

.Pattern ="移动：|NR.*|（.*"

跳转到最佳答案楼层

cutecpu

砂海

2楼的我这里 测试不成功

学艺不精 ,

.Pattern = "
(移动：).*?(?=(NR|（))
"
再把结果 的 "移动：" 去掉 , 这样貌似达到楼主要求

roserice

谢谢老师回答，公式的意思是从空格开始，提取不含空格的字符串？+是什么意思？自定义函数我刚打开excel时是显示结果的，但是双击公式单元格时，显示＃value错误，请老师再指教，谢谢

cutecpu

roserice 发表于 2021-10-6 00:37
谢谢老师回答，公式的意思是从空格开始，提取不含空格的字符串？+是什么意思？自定义函数我刚打开excel时是 ...

Function demo(s)
    Set re = CreateObject("vbscript.regexp")
    re.Pattern = "：([^（]+)"
    demo = re.Execute(s)(0).submatches(0)
End Function

※ 可能是编码的问题，红色部份请再人工重新输入试试 ( 全型冒号 、全型左括号)

+ 号的意思是 前面的字元重覆 1 次以上

roserice

cutecpu 发表于 2021-10-6 01:44
Function demo(s)
    Set re = CreateObject("vbscript.regexp")
    re.Pattern = "：([^（]+)"

老师给这个方法是好用的,再麻烦一下,现在我用 "  .Pattern = "移动.\.*" 可以把 "移动:"去掉,用  ".Pattern = "NR.*" " 可以把NR开始的字符去掉,想问下老师怎么才能把这两个式子组合在一起,起到掐头去尾的作用,从而达到解题 的作用,谢谢了

砂海

roserice 发表于 2021-10-6 09:43
老师给这个方法是好用的,再麻烦一下,现在我用  "  .Pattern = "移动.\.*" 可以把 "移动:"去掉,用  ".Patt ...

.Pattern ="移动：|NR.*|（.*"

cutecpu

roserice 发表于 2021-10-6 09:43
老师给这个方法是好用的,再麻烦一下,现在我用  "  .Pattern = "移动.\.*" 可以把 "移动:"去掉,用  ".Patt ...

7 楼大侠 完美地解决兄弟的问题