Sorgu için arama sonuçları: RegExp

...= 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...

Korhan Bey merhaba, Makronuzu deneme fırsatım olmadığından yorum yapmamıştım. Çok güzel şekilde çalışıyor. Güzel bir çözüm olmuş. Ancak makro yapısında Global = True ifadesinin sağladığı özellik nedir anlayamadım. Açıklarsanız sevinirim. Ek olarak kimsenin aklına gelmemiş ama şu şekilde bir...

Bu da RegExp ile alternatif olsun: Ayıklanması istenen verilerin A sütununda bulunduğu varsayılmış, ayıklanan verilerin aynı satırda F sütununa atılması ön görülmüştür: Sub metinden_ayir() 'Başlamadan önce::: 'VBA Penceresinde:: Tools >> References >> (açılan pencereden) Microsoft VBScript...

Alternatif; RegExp uygulaması; Option Explicit Private Sub TextBox1_Change() With CreateObject("VBscript.RegExp") Select Case Len(TextBox1) Case 2 .Pattern = "(\w{2}|\d{2})" .Global = True If Not .Test(TextBox1) Then...

Sanırım bakamam, yeteri kadar kod var yukarıda ..... kendiniz istediğiniz gibi özelleştirebilirsiniz çünkü işin o kısmı artık JSon ve/veya RegExp ile ilgili değil.... Kolay gelsin, .

...Dim FSO As Object, dosya As Variant, pdfDoc As PDFDocument, pages As PDFPageCollection Dim t As Byte, folderPath As String Dim RegExp As Object, valData As Variant, RetVal As Variant Dim arrPattern(1 To 9) As String Dim txtPDF As String, tempData As String Dim NoA As...

Enteresan şekilde hiç import etmedi