Sorgu için arama sonuçları: RegExp

Hocam tekrar merhaba, bu konuda şöyle bir sorum daha olacak Aşağıdaki patern' de önce metin içinde başta 0' a, sonra 1'e sonra 2' ye ye göre bakıyor, strInput = "@122100011122111" benim burada istediğim, bu sıralamaya bakmaksızın, sadece yan-yana olan adetler tutacak şekilde nasıl...

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

...kod ile bir metin içindeki sadece sayısal degerleri alabiliyoruz, sayısal degerlere ilaveten "+" işaretini de alması nasıl sağlanabilir? Sub regexPattern() Dim deger Dim regExp As Object Set regExp = CreateObject("VBscript.RegExp") regExp.Global = True regExp.Pattern =...

...mı? If Not Intersect(Target, rng) Is Nothing Then Application.EnableEvents = False Set regex = CreateObject("VBScript.RegExp") regex.Pattern = "^2025/\d+$" ' 2025/ ile başlamalı ve sonrası sadece rakam olmalı regex.IgnoreCase = False regex.Global =...

...False .Send jsonText = .responseText End With Set regex = CreateObject("VBScript.RegExp") With regex .Global = True .IgnoreCase = True .Pattern = "https://storage.googleapis.com/chrome-for-testing-public/124\.\d+\.\d+\.\d+/[^""]+" '...

...içine ekleme yaptım. Function Test_Format4(hcr As Range) As String Dim reg As Object, m As Object Set reg = CreateObject("VBScript.RegExp") reg.Pattern = "(\d{2}[a-zA-Z-+*._\/ ]*\d{,6})" Set m = reg.Execute(hcr.Value) If m.Count > 0 Then Test_Format4 = m(0) End Function

...nasıl olmalı?? Function ExtractPlaka(hcr As Range) As String Dim reg As Object, m As Object Set reg = CreateObject("VBScript.RegExp") reg.Pattern = "\b\d{2}\s?[A-Za-z]{1,3}\s?\d{2,4}\b" Set m = reg.Execute(hcr.Value) If m.Count > 0 Then ExtractPlaka = m(0) End Function

..."\b\d{2}\S?\d{2}\S?\d{2}\S?\d{2,5}\b", _ "\b\d{2} \s?[A-Za-z]{1}\s?\d{2,5}\b" _ ) Set reg = CreateObject("VBScript.RegExp") For i = LBound(patterns) To UBound(patterns) reg.Pattern = patterns(i) Set m = reg.Execute(hcr.Value) If m.Count >...

şu şekilde yaptığımda problem çözülüyor, bende sonradan farkettim. Alt tire eksikti. "\b\d{2} \s?[A-Za-z]{1}\s?\d{2,5}\b")

..."\b\d{2}\S?\d{2}\S?\d{2}\S?\d{2,5}\b", _ "\b\d{2} \s?[A-Za-z]{1}\s?\d{2,5}\b" ) Set reg = CreateObject("VBScript.RegExp") For i = LBound(patterns) To UBound(patterns) reg.Pattern = patterns(i) Set m = reg.Execute(hcr.Value) If m.Count...

..._ ' Plaka_2 formatı "\b\d{2} \s?[A-Za-z]{1,1}\s?\d{2,5}\b" ' Plaka_3 formatı ) Set reg = CreateObject("VBScript.RegExp") For i = LBound(patterns) To UBound(patterns) reg.Pattern = patterns(i) Set m = reg.Execute(hcr.Value) If...

...Bu standart plaka formatı Function Plaka_1(hcr As Range) As String Dim reg As Object, m As Object Set reg = CreateObject("VBScript.RegExp") reg.Pattern = "\b\d{2}\s?[A-Za-z]{1,3}\s?\d{2,4}\b" Set m = reg.Execute(hcr.Value) If m.Count > 0 Then Plaka_1 = m(0) End Function...

üstadım aynı şekilde türkçe karakter içermeyen kelimelerde sorun yok, ancak türkçe harf içeren kelimeleri bulmuyor ama kod çalışıyor

...yapılır. Türkçe karakterleri barındıran kelimelerde daha başarılı olabilir. Unicode Sorunları: Eğer bu değişiklik hala çözüm sunmazsa, RegExp veya diğer karakter kütüphanelerini kullanmak gerekebilir, ancak bu durum kodu daha karmaşık hale getirebilir ve Word 2016'da her zaman etkili olmayabilir.

Aslında forumda konuyla ilgili bolca işlenmiş konu var. Sanırım daha önce dikkatinizi çekmedi.. https://www.excel.web.tr/search/566930/?q=RegExp&o=date

Merhaba, Deneyiniz... =TCyadaVergi(A1) Function TCyadaVergi(hcr As Range) As String Dim reg As Object, m As Object Set reg = CreateObject("VBScript.Regexp") reg.Pattern = "\b\d{10,11}\b" Set m = reg.Execute(hcr) If Not m Is Nothing Then TCyadaVergi = m(0) End Function

peki xxx.a111111 olan kısmı 2 ayrı sütüna xxx.111111 ve a111111 şeklinde nasıl ayırabilirim?

Aşağıdaki kodu kullanabilirsiniz. Sub Regex_Test() Set regex = CreateObject("VBScript.RegExp") regex.Pattern = "^([^\.]*\.[^\.]*)\." regex.Global = False For Each cell In Range("A1:A4") If Not IsEmpty(cell.Value) Then Set matches =...

...ForReading).ReadAll strFindWhat = "beyaz" With CreateObject("VBscript.RegExp") .Ignorecase = True .Global = True .Pattern = strFindWhat myCount = .Execute(strText).Count End With MsgBox myCount End Sub .

Teşekkür ederim hocam iyi akşamlar selamlar iyi bayramlar