VBA RegExp' de ilave işaret getirme

[pNouma]

programcılıkta kullanılan her fonksiyonun bir amacı vardır ve kendisi için en uygun yerde kullanılmalıdır.
burada regular expression kullanmanın bir mantığı var mı ki?
doğrudan harf, harf kıyas çok daha pratik ve hızlı olacaktır. bildiğim kadarıyla da döngüsüz, parçalamadan doğrudan temiz bir desen bulamıyorsunuz.

Halil Hocam sadece öğrenmek amacıyla sormuştum;
eğer bir imkanı yoksa hiç sıkıntı değil,

her şey için çok teşekkürler.

 

[halily]

Halil Hocam sadece öğrenmek amacıyla sormuştum;

yok öğrenmek için sorduğunuz farkındayım ama bazen yine de vurgulamak gerekiyor. bazen üyeler -mesela vakti zamanında BEN )- belli bir şey üzerinde aşırı durabiliyor.

 

[pNouma]

Deneyiniz.

Sub RegexKarakterKarsilastir()
    Dim regEx As Object
    Dim pattern As String
    Dim inputMetin As String
    Dim eslesenKarakterSayisi As Long
    Dim i As Long

    pattern = "@122100011122111"
    inputMetin = "@122100011b2211a"
    eslesenKarakterSayisi = 0

    Set regEx = CreateObject("VBScript.RegExp")

    If Len(pattern) = Len(inputMetin) Then
        For i = 1 To Len(pattern)
            regEx.Pattern = "^" & Mid(pattern, i, 1) & "$"
            If regEx.Test(Mid(inputMetin, i, 1)) Then
                eslesenKarakterSayisi = eslesenKarakterSayisi + 1
            End If
        Next i
        MsgBox "Regex ile eşleşen karakter sayısı: " & eslesenKarakterSayisi
    Else
        MsgBox "Pattern ve input metin farklı uzunluklarda."
    End If
End Sub

Çok teşekkür ederim Hocam
iyi akşamlar