Sorgu için arama sonuçları: RegExp

Hocam emeğiniz için teşekkürler. Bu vesile ile bir kaynağa sahip olmuş olduk

...SetDateColor(rng As Range) Static reg As Object, mc As Object, m As Object If reg Is Nothing Then Set reg = CreateObject("VBScript.RegExp") reg.Global = True reg.MultiLine = True reg.Pattern =...

@Korhan Ayhan 'ın önerisiyle "RegExp" yerine klasik string manipulasyonlarıyla revize edilen fonksiyon aşağıdadır. @ÖmerFaruk Bey veya @necati Bey deneyip de sonucu bildirirse, sorunun RegExp'den kaynaklanıp kaynaklanmadığını anlarız.... Function GetPageSize(PDF_File As String) ' Haluk...

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² " & _...