Sorgu için arama sonuçları: RegExp

Öncelikle cevabınız için çok teşekkür ederim. Elimde olmayan nedenler ile geç geri dönüş yaptığımın farkındayım. Bunun için affınıza sığınıyorum. Kodları denemeden bu cevap yazma ihtiyacını hissettim. Bu gece de test edeceğim. Tekrardan teşekkürlerimi iletirim.

Sub test() Dim mtch As Object, sut As Integer, i As Long, bol, ii As Byte With CreateObject("VBScript.Regexp") .Global = True .Pattern = "([a-zA-ZğüÜıİşŞçÇöÖ\s\.]+)(\s)([A-Z]+)([\s\d\.,%-\?ad]+)" For i = 2 To Cells(Rows.Count, 2).End(3).Row If...

..."GET", url, False xmlHttp.send responseText = xmlHttp.responseText Dim regex As Object Set regex = CreateObject("VBScript.RegExp") regex.Pattern = "<distance>(.*?)<\/distance>" Set matches = regex.Execute(responseText) If matches.Count > 0 Then distance...

sn Veyselemre teşekkürler ilginiz için.

Sub alternatif() Dim mtch As Object, sat& sat = 1 With CreateObject("VBScript.Regexp") .Global = True .Pattern = "\""Z\"":\""([\d:]+)" If .test(Range("A1").Value) Then Set mtch = .Execute(Range("A1").Value) For Each mtch In...

...Bunun için makroya ne eklemeliyim? Sub Saat() Dim i, ii, a, bl, s1, s2, bas, son Dim n, y As Variant With CreateObject("VbScript.Regexp") .Pattern = "([\d:\s]+)-([\d:\s]+)" For i = 8 To Cells(Rows.Count, "D").End(3).Row If .test(Cells(i, "D").Value) Then...

..."If-None-Match", "\zoru-basaririz-imkansiz-biraz-zaman-alir\" objHTTP.Send HTMLcode = objHTTP.responseText Set regExp = CreateObject("VBScript.RegExp") i = 10 For j = 1 To UBound(Split(HTMLcode, "parakod"":""")) Cells(i, 14) = Split(Split(HTMLcode...

...ben paylaşmak isterim. Option Explicit Sub Test_1() Dim X As Long, Data As Variant With VBA.CreateObject("VBscript.RegExp") .Global = True .Pattern = "(^\D+ )" For X = 3 To Cells(Rows.Count, 1).End(3).Row If .Test(Cells(X, 1).Value) And...

...sağlıyor, isim kalıp fiyat siliniyor Dim objRegEx As Object, NoB As Long, myStr As String Set objRegEx = CreateObject("VBscript.RegExp") objRegEx.Global = True objRegEx.Pattern = "\([^()]*\)|(\-.*$)" NoB = Range("A" & Rows.Count).End(xlUp).Row For i = 3 To NoB...

...belki farklı çözüm yolları bulunabilir. Haluk beyin daha önce farklı başlıklarda paylaştığı Google Sheets üzerinde çalışan rakam harf ayıran REGEXP formülleri ile daha kolay çözüme gidilebilir. Ama bunun için excel yerine Google E-Tabloları kullanmanız gerekir. Son olarak excel üzerinde...

...karşısına x koymuyor. Nasıl bir ekleme yapmam gerekiyor? Sub Saat() Dim i, ii, a, bl, s1, s2, bas, son With CreateObject("VbScript.Regexp") .Pattern = "([\d:\s]+)-([\d:\s]+)" For i = 17 To Cells(Rows.Count, "G").End(3).Row If .test(Cells(i, "G").Value)...

Sayın @beab05 'in önerdiği web servisten geri dönen JSon verilerini RegExp ile ayıklayarak kullanmak istersek; Sub GetData_RegExp() ' Haluk - 15/03/2022 ' Dim strJSON As String, arrHeaders() Dim arrPattern(1 To 2) As String Dim regExp As Object, xPattern As Variant Dim...

G sütununda bir format daha varmış, onu da ayarlayabilir misiniz? Örn: 11 - 16./x/W + 16 - 20./x/W-asd

Sub test() Dim i, ii, a, bl, s1, s2, bas, son With CreateObject("VbScript.Regexp") .Pattern = "([\d:\s]+)-([\d:\s]+)" For i = 17 To Cells(Rows.Count, "G").End(3).Row If .test(Cells(i, "G").Value) Then Set a = .Execute(Cells(i, "G").Value)...

...veya çalışmada userform olmalı Dim dObj As New DataObject dObj.GetFromClipboard al = dObj.GetText With CreateObject("VBScript.RegExp") .Pattern = "\[img\](.+)\[\/img\]" .IgnoreCase = True If .test(al) Then Set m = .Execute(al)(0).submatches...

...& Rows.Count).ClearContents Set rng = Range("B4:D" & Cells(Rows.Count, 2).End(3).Row) With CreateObject("VBScript.RegExp") .Pattern = "([\d\.\,]+)x(\d+)" For i = 1 To rng.Rows.Count If .test(rng(i, 1).Value) Then Set m =...

Sayın veyselemre merhaba, Aşağıdaki hatayı alıyorum, ekstra yapmam gereken bir ayar mı var ? hala office 2010 kullanıyorum. --------------------------- Microsoft Visual Basic for Applications --------------------------- Run-time error '5': Invalid procedure call or argument...

Sub test() Dim rng As Range, i, m As Object Set rng = Range("B4:D" & Cells(Rows.Count, 2).End(3).Row) With CreateObject("VBScript.RegExp") .Pattern = "([\d\.\,]+)x(\d+)" For i = 1 To rng.Rows.Count Set m = .Execute(rng(i, 1).Value)(0).submatches...

Verdiğiniz örneğe göre aşağıdaki KTF daha uygun görünüyor.

Sub Test3() ' Haluk - 01/01/2023 Dim regExp As Object, objMatches As Object Dim arrPattern(1 To 4) As String Dim myStr As String, i As Long, j As Integer Dim adoCN As Object, strSQL As String, RS As Object Dim MyFile As Variant, myArr As Variant Dim FileNo As...