利用正则删除重复值

sxo

1. Sub testrep()
   
2.     Dim reg, s$
   
3.     s = "11 this 12 11 1 an exmapl"
   
4.     Set reg = CreateObject("vbscript.regexp")
   
5.     reg.Pattern = "(\w+)\s+\1"
   
6.     reg.Global = True
   
7.     reg.IgnoreCase = True
   
8.     s = reg.Replace(s, "$1")
   
9.     MsgBox s
   
10. End Sub
    

复制代码

要求:删除变量Ｓ中重复的数字.
目标文本:11 this 12 11 1 an exmapl
希望的结果文本:11 this 12  1 an exmapl

实际执行后文本：11 this 12  11 an exmapl

DevilW

StrReverse 反转字符串

limonet

代码在审核。

limonet

Sub limonet()
    Dim S$, M As Object, Dic As Object
    S = "11 this 12 11 1 an exmapl"
    Set Dic = CreateObject("scripting.dictionary")
    With CreateObject("vbscript.regexp")
        .Pattern = "\d+"
        .Global = True
        For Each M In .Execute(S)
            If Dic.exists(M.Value) Then
                S = WorksheetFunction.Substitute(S, M.Value, "", 2)
            Else
                Dic.Item(M.Value) = ""
            End If
        Next M
    End With
    MsgBox S
    Set Dic = Nothing
    Set M = Nothing
End Sub

bxm78

试试 ：
Sub testrep()
    Dim reg, s$
    s = "11 this 12 11 1 an exmapl"
    Set reg = CreateObject("vbscript.regexp")
    reg.Pattern = "(\b(\d+)\b.+)\2"
    reg.Global = True
    reg.IgnoreCase = True
    s = reg.Replace(s, "$1")
    MsgBox s
End Sub

sxo

DevilW 发表于 2022-12-16 11:35
StrReverse 反转字符串

表达式  \b(\w+)\b(?=.*?\b\1\b)
这个？=是顺序环视，那么\1是？能否详解？

sxo

bxm78 发表于 2022-12-16 13:46
试试 ：
Sub testrep()
    Dim reg, s$

(\b(\d+)\b.+)\2 能否注解？

zxsea_7426

limonet 发表于 2022-12-16 13:33
代码在审核。

又学到了一函数

perfect131

学，大神们来个不反转字符串，只保留第一位重复的replace表达式

1. Sub Test1()
   
2.     ss = "11 pamxe na 21 11 12 13 21 siht 11 21"
   
3.     Set reg = CreateObject("vbscript.regexp")
   
4.     With reg
   
5.         .Pattern = "(\b\w+)(?=\b.*\1)|(^\w+)(?=.*\1)"
   
6.         .Global = True
   
7.     End With
   
8.     Debug.Print WorksheetFunction.Trim(StrReverse(reg.Replace(StrReverse(ss), "")))
   
9. End Sub

复制代码

skyzxh

实际结果和希望的结果好像不一致？