Sorgu için arama sonuçları: RegExp

Korhan Bey, olabilir tabii ama dosyayı açıp da içinde "MediaBox" ifadesini gördükten sonra RegExp'nin çalışmaması mümkün değil bence.... .

@Haluk Bey, RegExp yerine alternatif olarak InStr komutu kullanılarak belki sonuca gidilebilir.

Merhaba, ancak bilgisayar başına geçebildim. Fonksiyonu değiştirdim. Sonuç aynı Aşağıdaki satırda hata veriyor temp = Trim(RegExp.Execute(strRetVal)(0).SubMatches(0))

...' sa4truss@gmail.com ' https://excelhaluk.blogspot.com/ Dim FSO As Object, objFile As Object Dim strRetVal As String Dim RegExp As Object, temp As String Const ForReading = 1 Set RegExp = CreateObject("VBscript.RegExp") RegExp.Global = False...

...' Haluk 18/09/2021 ' sa4truss@gmail.com ' https://excelhaluk.blogspot.com/ Dim FileNum As Long Dim strRetVal As String Dim RegExp As Object, temp As String Set RegExp = CreateObject("VBscript.RegExp") RegExp.Global = False RegExp.Pattern =...

...procedure call or argument hatası veriyor. Sebebini bulamadım. Denediğim pdf ler kendi iblgisayarımdaki pdf dosyaları. temp = Replace(Replace(RegExp.Execute(strRetVal)(0), "MediaBox[", ""), "]", "") Resimde de görüldüğü üzere pdf özelliklerine bakınca sayfa boyutlarını göremiyorum. Bendeki...

...' Haluk 17/09/2021 ' sa4truss@gmail.com ' https://excelhaluk.blogspot.com/ Dim FileNum As Long Dim strRetVal As String Dim RegExp As Object, temp As String Set RegExp = CreateObject("VBscript.RegExp") RegExp.Global = False ' RegExp.Pattern =...

...A sütunundaki son satır numarasını yazınız. Dim stringOne As String Dim regexOne As Object Set regexOne = New RegExp regexOne.Pattern = "http[s]?://[^/]+" regexOne.Global = TRUE stringOne = Cells(i, 1).Value Cells(i, 2)...

Üstad harikasınız, aklınıza sağlık, mükemmel olmuş. Sağlıcakla kalın

...durumdayken aşağıdaki kodu çalıştırın; Sub Test() ' Haluk - 05/09/2021 ' sa4truss@gmail.com ' https://excelhaluk.blogspot.com/ Dim RegExp As Object, xRng As Range If RegExp Is Nothing Then Set RegExp = CreateObject("VBScript.RegExp") With RegExp .MultiLine =...

Çok teşekkür ederim emekleriniz için. İstediğim sonuca ulaşabildim. Kolaylıklar, başarılar dilerim.

...son1 = s1.Cells(Rows.Count, 1).End(3).Row son2 = S2.Cells(Rows.Count, 1).End(3).Row Dim w(1 To 1, 1 To 2) Set regexp = CreateObject("VBscript.Regexp") regexp.Pattern = "(.+)\s([\d\.\,]{3,})\s([\d\.\,]{3,})" regexp.Global = True With CreateObject("Scripting.Dictionary")...

...kaldırıp, "matches" adedini direkt olarak bulunarak kullanıldığı alternatif aşağıdadır..... Function getData(myRng As Range) Dim regExp As Object, i As Integer If regExp Is Nothing Then Set regExp = CreateObject("VBScript.RegExp") regExp.Pattern = "([\d+,.]+)"...

@Haluk regExp.Pattern = "([\d+,.]+)" Hocam kod için teşekkürler. Evet desen daha sade oldu. ama C# da ben istediğim sonuçları alamıyorum... VBA doğru sonuç veriyor olabilir,, C# olmadı hocam. yada ben kodlayamadım.

...bir desenle alternatif (VBA); (String ifadenin içindeki en son integer veya double değeri yakalar.) Function getData(myRng As Range) Dim regExp As Object, xMatch As Variant, i As Integer If regExp Is Nothing Then Set regExp = CreateObject("VBScript.RegExp")...

...mesajımdaki VBA kodu aşağıdaki gibi revize edilebilir; Sub Test2() ' Haluk - 12/08/2021 ' sa4truss@gmail.com Dim myStr As String, regExp As Object Dim mySum1 As Double, mySum2 As Double myStr = "15 luk duvar : 1.17 m², 15 luk duvar : 4.81 m², 15 luk duvar : 7.67 m² " & _...

...da aşağıdaki gibi örnek olsun. Sub test() Dim mySum1 As Double, mySum2 As Double, st As Variant With CreateObject("VBScript.RegExp") .Global = True .pattern = "15\sluk\sduvar\s:\s(.*)\sm²|20\sluk\sduvar\s:\s(.*)\sm²" For Each st In Split("15 luk duvar : 1.17...

...: 30.94 m² " arrPattern(1) = "(15\sluk\sduvar\s:\s)([\d.]+)\sm²" arrPattern(2) = "(20\sluk\sduvar\s:\s)([\d.]+)\sm²" Set regExp = CreateObject("VBScript.RegExp") regExp.Global = True For Each xData In arrPattern regExp.Pattern = xData Set...

Sub test() With CreateObject("Vbscript.Regexp") .Pattern = "([\d,]+ EUR)" .Global = True For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row If .test(Cells(i, 1).Value) Then sut = 2 For Each mtch In .Execute(Cells(i, 1).Value)...

Alternatif olarak, RegExp metodonunun kullanıldığı KullanıcıTanımlıFonksiyon içeren ekli dosyayı inceleyebilirsiniz.... https://s6.dosya.tc/server3/rnxx6y/Test.xlsm.html .