Excel VBA字符串评估

Question

我想知道是否有可能使用一些VBA在一大堆5char字符串中查找定义的模式？我已经探索了“instr”函数，但我不确定它是否会执行我所需要的任务，基本上可以像下面那样查找字符串中的模式;

ABABA 
BCBCB 
..... 
EFEFE 

或者任何这样的图案，其中所述第一字符是相同的字符3 & 5，以及第二字符是相同的炭4.

任何帮助或方向将受到欢迎。

亲切的问候

吉姆

Answer 1

你可以不用VBA，它仍然是速度不够快：

=IF(AND(MID("ABABA",1,1)=MID("ABABA",3,1),MID("ABABA",2,1)=MID("ABABA",4,1),MID("ABABA",3,1)=MID("ABABA",5,1)),1,0) 

只需更换“亚的斯亚贝巴”与相应的单元格地址，这就是它

Answer 2

试试Like运营商：

Const testString = "ABABA" 
Dim myChar1 As String, myChar2 As String 

'// test 1/3/5 
myChar1 = Mid(testString, 1, 1) 
'// test2/4 
myChar2 = Mid(testString, 2, 1) 

If testString Like myChar1 & "[A-Z]" & myChar1 & "[A-Z]" & myChar1 Then 
    MsgBox "Matches 1, 3 and 5" 
ElseIf testString Like "[A-Z]" & myChar2 & "[A-Z]" & myChar 2 & "[A-Z]" Then 
    Msgbox "Matches 2 and 4" 
End If 

---

或者使用Mid()功能：

If Mid(testString, 1, 1) = Mid(testString, 3, 1) And _ 
    Mid(testString, 3, 1) = Mid(testString, 5, 1) And _ 
    Mid(testString, 1, 1) = Mid(testString, 5, 1) Then 

    MsgBox "Matches 1, 3 and 5" 

ElseIf Mid(testString, 2, 1) = Mid(testString, 4, 1) Then 

    MsgBox "Matches 2 and 4" 

End If 

---

OR检查两个条件：

Dim match1 As String, match2 As String 
Const testString As String = "ABABA" 

match1 = Left(testString, 1) & "[A-Z]" & Left(testString, 1) & "[A-Z]" & Left(testString, 1) 

match2 = "[A-Z]" & Left(testString, 1) & "[A-Z]" & Left(testString, 1) & "[A-Z]" 

If testString Like match1 Or testString Like match2 Then 
    MsgBox "findwindow likes it when anything matches" 
End If 

Answer 3

扔我的帽子环XD

Answer 4

轮到我了：

Function findPattern(inputStr As String) As Variant() 
Dim arr() As String 
Dim i As Integer 
arr = Split(inputStr) 
ReDim arr2(UBound(arr)) As Variant 
For i = LBound(arr) To UBound(arr) 
    If Left(arr(i), 1) = Mid(arr(i), 3, 1) And _ 
     Left(arr(i), 1) = Mid(arr(i), 5, 1) And _ 
     Mid(arr(i), 2, 1) = Mid(arr(i), 4, 1) Then 

     arr2(i) = "True" 
    Else 
     arr2(i) = "False" 
    End If 
    findPattern = arr2 
Next 
End Function 

Sub trying() 

    Dim t As String 
    t = "ABABA BCBCB IOITU" 
    arr = findPattern(t) 'returns an array {True,True,False} 

    For x = 0 To 2 
    Debug.Print arr(x) 
    Next 
End Sub 

这是假设你在每个字符串的多个词。它返回一个真正的假数组。

编辑

要发现它有任何的模式使用这个UDF：

Function findPattern(inputStr As String) As String 
Dim i As Integer 
For i = 5 To 1 Step -1 
If Asc(Mid(inputStr, i, 1)) > 5 Then 
    inputStr = Replace(inputStr, Mid(inputStr, i, 1), i) 
End If 
findPattern = inputStr 
Next 

End Function 

它将在“亚的斯亚贝巴”重返12121

您可以在工作簿中的模块中粘贴此则像公式一样使用它：=findPattern("A1")将其复制下来。然后在列上排序，它将所有类似图案与最模式化（11111）一起放到最少（12345）。

然后你也可以在这个列上过滤你想要的任何模式。

Answer 5

好吧，所以我其实是为了这个到最后...

尴尬的简单，从字面上不能相信我不认为这是一个选项，而是只是假设它应该在VBA中完成。一个宝贵的教训！

不得不修改公式，因为我的初始模式标志（1,3,5 & 2,4）评估为大块FALSE全部，所以我决定寻找1,3和2,4和5是什么。正如我在对@zedfoxus的评论中所提到的，这使我得以现在需要的地方，但使用VBA来制作这些内容会很棒。 我要回顾所有的答案，谢谢你花时间回复，我frickin'喜欢这个地方！

和平！