Sorgu için arama sonuçları: RegExp

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

...Sub import_kod() Dim FSO As Object, dosya As Variant, pdfDoc As PDFDocument, pages As PDFPageCollection Dim t As Byte Dim RegExp As Object, valData As Variant, RetVal As Variant Dim arrPattern(1 To 7) As String Dim txtPDF As String, tempData As String, strAd As...

...Sub import_kod() Dim FSO As Object, dosya As Variant, pdfDoc As PDFDocument, pages As PDFPageCollection Dim t As Byte Dim RegExp As Object, valData As Variant, RetVal As Variant Dim arrPattern(1 To 11) As String Dim txtPDF As String, tempData As String, strAd As...

Teşekkürler Haluk Bey

Kodun sadece seçili kısımda çalışması için aşağıdaki satırı, koddakinin yerine kullanın... Selection.Range.Text = regExp.Replace(Selection.Range.Text, "") Yani; ActiveDocument yerine Selection kullanacaksınız..... .