regexp ile veri uzunluğu yakalamak

[Erdem Akdemir]

merhaba,

Aşağıdaki örneklerde uzunluğu sadece 4 olanları regexp deseni ile nasıl bulabilirim.
kara ve bela sonuçlarını bulacak. Regexp harici çözümlerin paylaşılmamasını rica ederim.

erdem
kara
rasim
bal
diğer
bela

 

[mancubus]

ihtiyacınıza göre uyarlayın.

Sub xlTR_174784_regex_4char()

    Dim arr
    Dim i As Long
    
    arr = Array("erdem", "kara", "rasim", "ABBA", "aBBa", 1, 12, 123, 1234, 12345, "kamera", "BAŞARI", "foru", "forum", "bal", "bela", "diğer")
    
    With CreateObject("VBScript.RegExp")
        .Pattern = "^[a-zA-Z0-9]{4}$" '4 karakter uzunluğundaki küçük harf, büyük harf, rakamlar
        '.Pattern = "^[a-z]{4}$" '4 karakter uzunluğundaki küçük harfler
        '.Pattern = "^[A-Z]{4}$" '4 karakter uzunluğundaki büyük harfler
        '.Pattern = "^[0-9]{4}$" '4 karakter uzunluğundaki rakamlar
        '.Pattern = "^[a-zA-Z]{4}$" '4 karakter uzunluğundaki küçük harf, büyük harfler
        For i = LBound(arr) To UBound(arr)
            MsgBox arr(i) & " : " & .Test(arr(i))
        Next i
    End With

End Sub

 

[Erdem Akdemir]

Sayın mancubus çok teşekkür ederim.

Konu ile ilgili önerebileceğiniz kaynak varsa paylaşabilir misiniz.

 

[mancubus]

rica ederim.

en iyi yöntem google'a sormak.
özellikle ingilizceye excel / vba ihtiyacı kadar hakimseniz (çok bilmeye gerek yok manasında) hakikaten çok kaynak var.

 

[Haluk]

https://www.excel.web.tr/forums/regular-expressions-regexp-duezenli-ifadeler.165/

https://analystcave.com/excel-regex-tutorial/#Using_Regex_in_VBA

https://regexr.com/

.

 

[Erdem Akdemir]

Kesinlikle biraz ingilizce ve sabır şart.

Ben biraz sabırsızım hemen öğrenmek istiyorum.

Haluk bey desteğiniz için size'de teşekkür ederim.