[第127期]替换特定规则范围内的字符[已总结评分]

ykqrs · 发表于 2019-11-20 14:17

本帖最后由 ykqrs 于 2019-11-21 15:25 编辑

复制代码

今天中午有时间又琢磨了一下，又重新看了一下答题要求，这个不让循环真是费脑，想不出来！！！！
只有笨办法，由于楼主的主体代码不让修改，而我又的确不知道Call Form_Initialize这一句是干嘛用的，所以添加了一个只为不出错误的Form_Initialize()过程，原楼层不知为何无法编辑，只能再占用一层，抱歉！

Sub Form_Initialize()
End Sub
Private Function ReplaceRestrictive$(ByVal StrSource$)
Dim reg
Set reg = CreateObject("vbscript.regexp")
reg.Pattern = "(.*?\d)(\e)(?=\d)"
reg.Global = True
StrSource = reg.Replace(StrSource, "$1" & 2)
reg.Pattern = "(.*?\d)(\e{2})(?=\d)"
StrSource = reg.Replace(StrSource, "$1" & 22)
reg.Pattern = "(.*?\d)(\e{3})(?=\d)"
StrSource = reg.Replace(StrSource, "$1" & 222)
reg.Pattern = "(.*?\d)(\e{4})(?=\d)"
StrSource = reg.Replace(StrSource, "$1" & 2222)
'此处往下可继续。。。。。呵呵
ReplaceRestrictive = StrSource
End Function

复制代码

ykqrs · 发表于 2019-11-21 15:28

真的不想占楼，编辑完不显示。
今天从早上折腾到现在，总想一句替换没成功，只能这样了，然后，不玩了，再晚就傻了，踏踏实实坐等学习！

Sub Form_Initialize()
End Sub
Private Function ReplaceRestrictive$(ByVal StrSource$)
Dim reg
Set reg = CreateObject("vbscript.regexp")
reg.Global = True
reg.Pattern = "(\e)(?!\e*?\d)"
StrSource = StrReverse(reg.Replace(StrSource, "々 + √"))
StrSource = StrReverse(reg.Replace(StrSource, "√ + 々"))
StrSource = Replace(StrSource, "e", 2)
StrSource = Replace(StrSource, "々 + √", "e")
ReplaceRestrictive = StrSource
End Function

复制代码

mmlzh · 发表于 2019-11-25 17:07

不会玩正则，凑个热闹，不能用循环

来个仅适合案例的代码

'###############下方为参赛者代码区#####################
Sub Form_Initialize()
End Sub
Private Function ReplaceRestrictive$(ByVal StrSource$)
Dim regx, S$, Strnew$
S = StrSource
Set regx = CreateObject("vbscript.regexp")
regx.Pattern = "([0-9])(e)([0-9])"
regx.Global = True
S = regx.Replace(S, "$12$3")
regx.Pattern = "([0-9])(e){2}([0-9])"
S = regx.Replace(S, "$122$3")
regx.Pattern = "([0-9])(e){3}([0-9])"
S = regx.Replace(S, "$1222$3")
regx.Pattern = "([0-9])(e){4}([0-9])"
S = regx.Replace(S, "$12222$3")
ReplaceRestrictive = S
End Function
'###############上方为参赛者代码区#####################

复制代码

aoe1981 · 发表于 2019-11-25 22:44

蒙出了一个结果，也不知道合不合规，请指教。

运行很慢，鄙人用的是office2019家庭和学生版，可以运行的。

代码如下，其中借用了您的“通用正则替换函数”：

Option Explicit
'###############?·?????????????#####################
Private Sub Form_Initialize()
Range("b2:b" & Cells(Rows.Count, 1).End(xlUp).Row).Value = ""
End Sub
Public Function REGREPLACE(ByVal text1$, ByVal pttn$, Optional ByVal strReplacer$ = " ")
With CreateObject("vbscript.regexp")
.Global = True
.Pattern = pttn
REGREPLACE = .Replace(text1, strReplacer)
End With
End Function
Function Autocal(Cell)
With CreateObject("Access.Application")
Autocal = .Eval(Cell)
End With
End Function
Private Function ReplaceRestrictive$(ByVal StrSource$)
ReplaceRestrictive = Autocal(Chr(34) & REGREPLACE(StrSource, "(\d)(e+)(?=\d)", "$1"" & string(len(""$2""),""2"") & """) & Chr(34))
End Function
'###############???????????????#####################
Private Sub CommandButton1_Click()
Dim r&, ar(), br(), i&
r = Cells(Rows.Count, 1).End(xlUp).Row
If r < 2 Then Exit Sub
Call Form_Initialize
ar = Range("A1").Resize(r)
ReDim br(2 To r, 1 To 1)
For i = 2 To r
br(i, 1) = ReplaceRestrictive(ar(i, 1))
Next
Range("b2").Resize(r - 1) = br
End Sub

复制代码

附件如下：

sayhi95 · 发表于 2019-12-8 16:39

效果做出来了，但是两个过程相互调用不知道算不算递归，正则直接替换实在搞不来

jsgj2023 · 发表于 2019-12-9 12:05

本帖最后由 jsgj2023 于 2019-12-12 11:15 编辑

Private Function ReplaceRestrictive$(ByVal StrSource$)
Dim RegExp As Object, sRes As String
Set RegExp = CreateObject("VbScript.RegExp")
With RegExp
.Global = True
.IgnoreCase = False
.Pattern = ""
.Pattern = "^([^\de]*e+)()|([^\de]e+)(\d)"
sRes = .Replace(StrSource, "$1$3" & vbNullChar & "$2$4")
.Pattern = "e(?=e*\d)"
sRes = .Replace(sRes, "2")
sRes = Replace(sRes, vbNullChar, "")
ReplaceRestrictive = sRes
End With
End Function

复制代码

请测试,谢谢!

月关 · 发表于 2019-12-11 11:23

我以为只有我才会蒙起头来玩硬写的把戏，原来老师们无耻起来不输于我呀

我有跟 ykqrs 老师一样的困惑，一直不知道 Call Form_Initialize 这句是干嘛的怎么用…… 为此还特意的去看了看自定义函数的套路，也是没找到答案。

楼主快公布答案吧

ggmmlol · 发表于 2019-12-11 11:25

参与本期竞赛的截止日期已到，现在开贴，开放阅读权限。

先贴上我的参考答案。总结点评的内容稍后。

Option Explicit
'###############下方为参赛者代码区#####################
Private reg As Object
Private Sub Form_Initialize()
Set reg = CreateObject("VBScript.RegExp")
reg.Global = True
reg.Pattern = "((?:(?:[^\de]|^)e+|[\d\D]*?)*)(e(?=e*\d)|$)" '式1
' reg.Pattern = "([\d\D]*?(?:(?:[^\de]|^)e+[\d\D]*?)*)(e(?=e*\d)|$)" '式2
' reg.Pattern = "((?:(?:[^\de]|^)e+[\d\D]*?)*)(e(?=e*\d)|$)" '式3
' reg.Pattern = "((?:e+(?![\de])|(?:[^\de]|^)e+|[^e])*)(e|$)" '式4
' reg.Pattern = "((?:e+(?![\de])|(?:[^\de]|^)e+|[^e])*)e?" '式5
' reg.Pattern = "((?:e+(?![\de])|(?:[^\de]|^)e+|[^e])*).?" '式6
' reg.Pattern = "((?:e+(?:[^\de]|$)|(?:[^\de]|^)e+|[^e])*)e?" '式7
' reg.Pattern = "((?:e+(?:[^\de]|$)|(?:[^\de]|^)e+|[^e])*).?" '式8
End Sub
Private Function ReplaceRestrictive$(ByVal StrSource$)
ReplaceRestrictive = Left(reg.Replace(StrSource, "$12"), Len(StrSource)) '本题特解
'通用方法：
' If StrSource = "" Then Exit Function
' StrSource = reg.Replace(StrSource, "$12")
' ReplaceRestrictive = Left(StrSource, Len(StrSource) - 2) '2为本例源字符串替换后增加的固定字符个数
End Function
'###############上方为参赛者代码区#####################

复制代码

aoe1981 · 发表于 2019-12-11 15:15

楼主牛哇，这种字符串的分拆思路也是没谁了：

字符串： deegr12345ee56789fgh234eee6789kse213eee123

正则表达式： ((?:(?:[^\de]|^)e+|[\d\D]*?)*)(e(?=e*\d)|$)

匹配项组1（$1）组2（$2）
deegr12345e deegr12345 e
e e
56789fgh234e 56789fgh234 e
e e
e e
6789kse213e 6789kse213 e
e e
e e
123 123

令人大开眼界！

顺便提一句，我那个蒙的如果没有安装access组件的话是不能运行的，我现在才发现，哈哈。

月关 · 发表于 2019-12-11 15:56

确实强大。
我也想过把每个e单独匹配出来替换，但是正则表达式写不出来。而且，看了楼主的表达式才知道，原来捕获分组和零宽断言之类的竟然允许嵌套着用，哎！我煮熟的技术分。。。。。。。

		自动登录	找回密码
密码			免费注册

[Excel 程序开发] [第127期]替换特定规则范围内的字符[已总结评分]

评分

评分

评分

本帖子中包含更多资源

评分

本帖子中包含更多资源

评分

本帖子中包含更多资源

评分

评分

评分

本帖子中包含更多资源