提取符合特定规则的文本，我用“万能正则表达式”！

ggmmlol

duquancai 发表于 2018-8-18 12:04
18楼的 描述简练且明确，也有模拟结果！没啥毛病。
我也很期待“万能的正则”！
针对18楼的 实例 我扩展 ...

我已经在26楼中 用红字 明确地标明了 fsq119在18楼的描述 和 他在22楼的补充描述 的差异，你又何必一再秀你个人的理解呢？

ggmmlol

如果18楼的提问，不带上所谓的期望结果，那就是如下所示：

提问：
对字串"qwe100eh1eee2e345exxe678ee999eexc"，要求数字之间所夹的单个或连续的“e”，用数字2替换，请问结果是什么？

duquancai

ggmmlol 发表于 2018-8-18 12:23
我已经在26楼中 用红字 明确地标明了 fsq119在18楼的描述 和 他在22楼的补充描述 的差异，你又何必一再秀 ...

好的，我闭嘴，不再参与了。

ggmmlol

duquancai 发表于 2018-8-18 12:04
18楼的 描述简练且明确，也有模拟结果！没啥毛病。
我也很期待“万能的正则”！
针对18楼的 实例 我扩展 ...

刚才回复时跨页了，提问的楼层应该是32楼，所以修改一下。

请试着对32楼的提问给出你的答案。

也请有兴趣参与讨论的朋友，帖出个人对31楼问题的答案。


我自己先带头给出我的答案：

1. '说明：以下代码中用到的REGREPLACE函数，如本主题26楼所示，因此不再重复贴出。
   
2. Sub test() '答32楼提问
   
3.     '字串"qwe100eh1eee2e345exxe678ee999eexc"，要求数字之间所夹的单个或连续的“e”,用数字2替换
   
4.     s = "qwe100eh1eee2e345exxe678ee999eexc"
   
5.     MsgBox REGREPLACE(s, "(\d)e+(?=\d)", "$12")
   
6. End Sub

复制代码

ggmmlol

duquancai 发表于 2018-8-18 12:29
好的，我闭嘴，不再参与了。

本贴欢迎参与讨论，对同一个问题，也可以说出自己的答案，以做比较、改进。

但我相信，任何人参与讨论时，都希望对方是在讨论同一个问题，而不是自己把问题本身做了一番“修改”之后再来讨论，然后纠缠不休。

可以说，紧接在fsq119于18楼提问之后，我就指出了 他的提问与他的“期望结果”两者是自相矛盾的。而且，我也同时 从基本的定义上给出了正则表达式(\d)e+(?=\d)

这些，你都视而不见，我说你是纠缠不休，并没有委屈了你。所以，如果你诚意参与讨论，那请先回答一下32楼的提问吧。

因为，只有不带结果导向（或者说不预设结果）的提问， 才是参与讨论者 能够 各抒己见的基础，只有这样，也才是显示出 提问的人、以及其他参与者之间公平讨论的诚意。

当然，如果你仍然自己闭嘴，我也同样不会反对。

fsq119

duquancai 发表于 2018-8-18 12:04
18楼的 描述简练且明确，也有模拟结果！没啥毛病。
我也很期待“万能的正则”！
针对18楼的 实例 我扩展 ...

借用楼主的Evaluate方法：
a = Evaluate(Chr(34) & REGREPLACE(s, "(\d)((e)+)(?=\d)", "$1"" & len(""$2"") & ""$3") & Chr(34))

ggmmlol

讲一个冷笑话：
小明：老姐，你知道什么时候1加上1 会等于3吗？
老姐：啊？1加上1 ，怎么可能会等于3？!
小明：哈哈，这你都不懂吧！答案是：“在你算错的时候！”
老姐：……好你个臭小子，原来你是在考我“脑筋急转弯”哪！

一把小刀闯天下

'参与一下，巨笨的方法

'正则我觉得规则较多不喜欢学，还是流水代码用起来舒服

'字串"qwe100eh1eee2e345exxe678ee999eexc"，要求数字之间所夹的单个或连续的“e”,用数字2替换

Option Explicit

Sub test()
  Dim s, i, j, k
  s = "qwe100eh1eee2e345exxe678ee999eexc"
  Debug.Print s
  s = s & "?"
  For i = 1 To Len(s) - 1
    If IsNumeric(Mid(s, i, 1)) And Mid(s, i + 1, 1) = "e" Then
      For j = i + 1 To Len(s) - 1
        If IsNumeric(Mid(s, j, 1)) Then
          For k = i + 1 To j - 1: Mid(s, k, 1) = "2": Next
          i = j - 1: Exit For
        End If
        If Mid(s, j, 1) <> "e" Then i = j - 1: Exit For
      Next
    End If
  Next
  Debug.Print Left(s, Len(s) - 1)
End Sub

fsq119

Evaluate方法，楼主用的好，学习了。
关于我示例的描述，你也不必再纠结。
扰乱了楼主的发帖，实在是不好意思了！静待后续好文。

ggmmlol

fsq119 发表于 2018-8-18 13:50
Evaluate方法，楼主用的好，学习了。
关于我示例的描述，你也不必再纠结。
扰乱了楼主的发帖，实在是不好 ...

Evaluate方法，仍有局限，一是 只能用于VBA代码或名称定义，而不能直接用于单元格中，另一点是其参数长度不能超过255个字符的限制。

如果想在单元格中构造公式，使得用正则表达式对象的Replace方法捕获的分组中的每一个值都可以被二次加工，那么，可以用一个“=”号来代替宏表函数Evaluate，而且单元格 公式中允许的字符总数要宽泛得多。

具体的例子，可以参考以下求助贴中11楼，我所做的回复和演示:

如何用公式将单元格中某一组数字批量加3？
http://club.excelhome.net/thread-1419039-2-1.html