Sorgu için arama sonuçları: RegExp

Yusuf Bey, pardon ama ..... bu fonksiyonda "RegExp" ne işe yarıyor ? .

...KTF kodlarını bir modüle ekleyin. A2 hücresinde aşağıdaki formül istediğiniz sonucu verecektir: =yaz(A1) Kodlar: Function yaz(veri) Set regexp = CreateObject("VBscript.RegExp") regexp.Global = True regexp.Pattern = "[^0-9A-Za-zĞÜŞİÖÇığüşöç]" If veri <> "" Then veri =...

Herşey için teşekkür ederim bir gerçekten büyük bir sorundan kurtardınız beni konuyuda düzgün bir şekilde yeniden olusturdum orayada ekliyorum cevabınız için ve yardımınız için teşekkür ederim

Muhtemelen konuyu açtıktan sonra belli bir süre geçtiği için mesaj başlığında veya içeriğinde düzenleme yapamazsınız. Moderatör arkadaşlar ilgilenecektir.... Sorunuzla ilgili olarak ise; "RegExp" ile bir çözüm ekli dosyadadır.... .

Fazla merakta bırakmayalım, o zaman :) Not: Dosya revize edildi (Gereksiz olan bir For-Next döngüsü iptal edildi). .

Sayın Üstadım çok teşekkürler Lakin ben başaramadım Tablo üzerine uygularsanız anlayabilir. Şimdiden teşekkürler

...= A + Txt(1) G = G + Txt(2) End If Next Hcr A = A + Int(G / 30) G = G Mod 30 Y = Y + Int(A / 12) A = A Mod 12 HizmetToplam = Y & " Yıl " & A & " Ay " & G & " Gün" End Function Not : RegExp ile çözümü merak...

Bunun rica etsem içine hem rakamları toplayan hem de harfleri toplayan şeklinde olur mu. Çünkü Bu sefer başka yerde F2 veya N2 olarak rakamları toplamada sıkıntı yok ama başka hücrede eğersay ile ne yazık ki harfi almıyor.

...As Range, Optional Ayıraç As String = "+") Dim Karakter As Variant Application.Volatile True With CreateObject("VbScript.RegExp") .Global = True .Pattern = "[^0-9," & Ayıraç & "]" Karakter = Replace(.Replace(Replace(Veri.Value, ".", ","), ""), ",", ".")...

...As Range, Optional Ayıraç As String = "+") Dim Karakter As Variant Application.Volatile True With CreateObject("VbScript.RegExp") .Global = True .Pattern = "[^0-9," & Ayıraç & "]" Karakter = Replace(.Replace(Replace(Veri.Value, ".", ","), ""), ",", ".")...

Sub regexp() Dim i%, al$, sut% With CreateObject("VBScript.RegExp") .Pattern = "[^!#%]+" .Global = True .IgnoreCase = True For i = 1 To Cells(Rows.Count, 1).End(3).Row sut = 2 al = Cells(i, 1).Value If .test(al) Then...

...As Range, KM As Integer) Dim reg As Object Application.Volatile If reg Is Nothing Then Set reg = CreateObject("VBScript.RegExp") reg.Pattern = "[Km]?:?\s?(\d{1,3}\+\d{1,3}[\d+,]*)-(\d{1,3}\+\d{1,3}[\d+,]*)" reg.Global = False reg.IgnoreCase = True...

...sadece arapça karakterler kalır... Sub Test() ' Haluk - 02/04/2021 ' sa4truss@gmail.com ' https://excelhaluk.blogspot.com/ Dim regExp As Object Set regExp = CreateObject("VBscript.RegExp") regExp.Pattern = "[A-Za-zĞÜŞİÖÇğüşiöçı]" regExp.Global = True...

...KTOPLA(Veri As Range) Dim Karakterler As Variant, Karakter As Variant Application.Volatile True With CreateObject("VbScript.RegExp") .Global = True .Pattern = "\D" Karakter = .Replace(Veri.Value, "") .Pattern = "." Set Karakterler =...

Haluk Hocam ilginize teşekkürler, Burada vermiş olduğunuz regExp.Pattern = "Kanunen Kabul Edilmeyen Giderler\s*(.+)[\n\r]" ifadesini ekli dosyada Module2 de PDF' den veri çekme işlemi için uygulamaya çalıştım fakat hata alıyorum, arrPattern(1) = "Kanunen Kabul Edilmeyen...

...ve siz, burada KKEG verisi olan 125,36 değerini elde etmek istiyorsanız; Sub Test() ' Haluk - 14/03/2021 ' sa4truss@gmail.com ' Dim regExp As Object, objMatches As Object Dim myStr As String, i As Long myStr = "Kanunen Kabul Edilmeyen Giderler 125,36" & vbCrLf & _...

Haluk Hocam excel' de çözüm varken, online sitelere gitmeye gerek yok diye düşünüyorum, benim zorlandığım kısım : RegExp = CreateObject("VBScript.RegExp") kısmı, değilse veriler bir şekilde geliyor, fakat karışık durumda, bunlar daha düzenli gelsin istiyorum aşağıdaki patern iki ifadenin...

Haluk Hocam Merhaba, Ekli dosyada yer alan verileri buradaki kodları kullanarak Tablo halinde excel' e almaya çalışıyorum, fakat pek beceremedim, yardımcı olursanız çok makbule geçecek. iyi haftasonları.

Cevabınız için teşekkürler ancak strJson kısmına string olarak ekledim hata verdi tüm satır kımızı oldu. link olarak eklediğimde işlem yapmadı.

..."""EMN"":""(.+?)(?="",)", "local machine"":""(.+?)(?="",)", "Unix epoch"":(.+?)(?=\})") Set reg = CreateObject("VBScript.RegExp") reg.Global = True rCount = 0 cCount = 0 For Each pat In arrPat cCount = cCount + 1 reg.Pattern = pat...