Regex desenin de hata c#

[k0081]

Merhaba arkadaşlar;

Bu şekilde bir desen oluşturdum
=?\s?(\d+\.?\d+)|K\d*\s\/\s|BETON MİKTARI: \d*\.?\d*\s\bx\s\d*\.?\d*\s

sonuçları alıyorum. Fakat sadece alt kısımdaki tek haneli 8 sayısını almıyor... nerede hata yapıyorum?

BETON MİKTARI: 18.70 x 0.12 = 2.24 m³
BETON MİKTARI: 40.74 x 0.12 = 4.89 m³
BETON MİKTARI: 55.56 x 0.16 = 8.89 m³
BETON MİKTARI: 2.38 x 0.16 = 0.38 m³
BETON MİKTARI: 26.25 x 0.16 = 4.20 m³
Toplam =215m³
Toplam = 215m³
Toplam : 15.69m³

4.20 m³
5.20m³
10m³
125.36
85

SD125.36SD
asc136dssd89

K129 / 31 Adet
K128 / 35 Adet
K127 / 41 Adet
K101 / 8 Adet --- Hatalı kısım 8 dahil etmiyor...

 

[Haluk]

Daha basit 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")
        regExp.Pattern = "([\d+,.]+)"
        regExp.Global = True
        regExp.IgnoreCase = True
    End If

    If regExp.Test(myRng) Then
        For Each xMatch In regExp.Execute(myRng)
            i = i + 1
        Next
        getData = regExp.Execute(myRng)(i - 1).SubMatches(0)
    Else
        getData = ""
    End If
End Function

.

 

[k0081]

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

 

[Haluk]

Evet ama, siz bu işleri neden C# forumlarında sormuyorsunuz da buralarda uğraşıyorsunuz?

.

 

[k0081]

Regex desen yapısı aynı yada çok yakın olduğu için.. C# forumlarınada soruyorum

 

[Zeki Gürsoy]

.NET Regex Engine, bazen VBScript Regex' ten farklı davranabiliyor. Online .NET Regex tester ları kullanmanızı öneririm.

 

[Haluk]

Zeki, nerelerdesin qardaş?

Yokluğunda buralarda debeleniyorum....

.

 

[Zeki Gürsoy]

Biraz uzak kaldığım doğru... Gördüğüm kadarıyla bu tür konuyu gayet iyi götürüyorsun...

 

[Haluk]

"Bu tür" de idare ediyoruz ama .... senin varlığın yeter !

.

 

[k0081]

@Zeki Gürsoy

Evet test ediyorum.

@Haluk
"([\d+,.]+)" --> bu desenden hareketle konuyu çözmüş
bulunmaktayım.

Çok Teşekkür ediyorum.

 

[Haluk]

Bilgi için;

Fonksiyondaki For-Next döngüsünü 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+,.]+)"
        regExp.Global = True
        regExp.IgnoreCase = True
    End If
   
    If regExp.Test(myRng) Then
        i = regExp.Execute(myRng).Count
        getData = regExp.Execute(myRng)(i - 1).SubMatches(0)
    Else
        getData = ""
    End If
End Function

.