正则表达式

yuhaowang

请EH大侠们指教，谢谢

STR1="---++-++-++++++--+++++----+--++--++------++-----+-+-+--+------+++----+-+-+-+-++-++--+++-+-+++++-+---+--+--++-++------+++++++--++----+---++-++--+++-+++++-++-+----++-+--+++++++-"

按顺序分解切割STR1：

A：-开始的见+ 次数相等

B:+开始的见- 次数相等

C：分解切割后用数组存放

    Set regEx = CreateObject("VBScript.RegExp")

        With regEx

             .Global = True '搜索字符串中全部字符

            .Pattern =    '匹配？？？？？？？？？？？？？？？？？？？？？？

        End With

需要达到如下结果：

---++-++

-+

+++++--+++++----+--++--++-----

-+

+-

----+-+-+--+------+++----+-+-+-+-++-++--+++-+-+++++-+---+--+--++-++------+++++++--++----+---++-++--+++-+++++-++-+----++-+--+++++

++-

大灰狼1976

正则我搞不出这个效果，另外最后的++-是怎么来的，次数不相等。

1. Sub test()
   
2. Dim s$, i&, j&, x&, st&, ln&
   
3. str1 = "---++-++-++++++--+++++----+--++--++------++-----+-+-+--+------+++----+-+-+-+-++-++--+++-+-+++++-+---+--+--++-++------+++++++--++----+---++-++--+++-+++++-++-+----++-+--+++++++-"
   
4. st = 1
   
5. For i = 1 To Len(str1)
   
6.   If Mid(str1, i, 1) = "-" Then x = x - 1 Else x = x + 1
   
7.   ln = ln + 1
   
8.   If x = 0 Then
   
9.     Debug.Print Mid(str1, st, ln)
   
10.     st = i + 1
    
11.     ln = 0
    
12.   End If
    
13. Next i
    
14. End Sub

复制代码

cidanji

1. Function ss(s$)
   
2. Dim i&, j&, a&, b&, d As Object
   
3. Set d = CreateObject("scripting.dictionary")
   
4. While i <= Len(s)
   
5.     i = i + 1
   
6.     If Mid(s, i, 1) = "-" Then a = a + 1 Else b = b + 1
   
7.     If a = b Or i = Len(s) Then
   
8.         d(i) = Mid(s, j + 1, i - j)
   
9.         a = 0: b = 0: j = i
   
10.     End If
    
11. Wend
    
12. ss = d.items
    
13. End Function

复制代码

1. Sub test()
   
2. Dim s$, x
   
3. s = "---++-++-++++++--+++++----+--++--++------++-----+-+-+--+------+++----+-+-+-+-++-++--+++-+-+++++-+---+--+--++-++------+++++++--++----+---++-++--+++-+++++-++-+----++-+--+++++++-"
   
4. For Each x In ss(s)
   
5.     Debug.Print x
   
6. Next
   
7. End Sub

复制代码

yuhaowang

大灰狼1976 发表于 2024-11-12 15:16
正则我搞不出这个效果，另外最后的++-是怎么来的，次数不相等。

谢谢指教。
STR1符合条件切割到最后剩下的
我还是想学习一下强大的正则表达式能否做到

大灰狼1976

yuhaowang 发表于 2024-11-12 15:28
谢谢指教。
STR1符合条件切割到最后剩下的
我还是想学习一下强大的正则表达式能否做到

这个不清楚，我正则比较弱，看看其他高手吧

ggmmlol

VBA中的VBScript正则引擎，做不了匹配个数相同的正负号。需要用支持“平衡组”或者说“递归”功能的正则引擎才有可能。可以考虑2、3楼的方法来解决，并不复杂。