Büyük olanları saymak

[k0081]

Uzunluk : 22.9
Uzunluk : 14.05
Uzunluk : 13.85
Uzunluk : 8.65
Uzunluk : 8.65
Uzunluk : 8.65
Uzunluk : 15.38
Uzunluk : 15.38
Uzunluk : 15.38
Uzunluk : 9.6
Uzunluk : 9.6
Uzunluk : 9.6

Bu şekilde listbox da verilerim var. ( C# ) ( m çalışılmış... Bazende cm oluyor. )

Buradan 12 den büyük olanların sayısını nasıl alabilirim ? Bu örnekte 6 dır.

Regex ile olabilir mi ? bir de bu veriler listbox a dasource yöntemi le alınmış durumda... bir türlü işin içinden çıkamadım.

yardımcı arkadaşa şimdiden Teşekkür ederim.

 

[Korhan Ayhan]

VBA ile çözümü ekte bulabilirsiniz. Sanırım kendinize uyarlarsınız.

Option Explicit

Private Sub CommandButton1_Click()
    Dim X As Long, Say As Long, Veri As Double
    
    For X = 0 To ListBox1.ListCount - 1
        Veri = Replace(Replace(ListBox1.List(X, 0), "Uzunluk : ", ""), ".", ",")
        If Veri > 12 Then Say = Say + 1
    Next
    
    MsgBox "12 den büyük olanların sayısı ; " & Say
End Sub

 

[k0081]

Korhan bey;


Çok teşekkür ediyorum., az önce çözümü buldum... Bu göndermiş oludğunuz VBA kodunu da arşivime ekliyorum. Sağolun.

 

[Haluk]

VBA'de "RegExp" kullanarak hazırlanan alternatif ekli dosyadadır...

.

 

[k0081]

Haluk;

Hocam bunada Ocak 2022 de bakarım... Altın üye olacağımda tekrar...

Teşekkür ederim.

 

[Haluk]

Sağlık olsun...

.