AccessTr.neT

Merhaba,

Ekteki örnekte form1 de bir metin birde listbox'ım var. LOT girdiğim rakamların arasına virgül koyuyorum örneğin 125,1256,1248, gibi Sonra çalıştır komutuna tıkladığımda. 125 in 3 karakter,1256 nın 4 karakter 1248 inde 4 karakter olduğunu bulup sıra 'ya yazmasını istiyorum.

Virgülden sonraki virgüle kadar kaç karakter.

İnşallah anlatabilimişimdir Teşekkürler,

Zaman darlığından çok kaba bir kod oldu ama inşaallah işinizi görür:

    dizi = Split(Me.Lot, ",")

    

    kacaKadar = UBound(dizi)

    

    

    For i = 0 To kacaKadar

    

        deger = dizi(i)

        uzunluk = Len(dizi(i))

        Me.Liste.AddItem (deger & " " & uzunluk & " karakter")

    

    Next i

Bu kodları butonun tıklanma olayına yazacaksınız.

Alp bey merhaba,
Çok güzel olmuş ellerinize sağlık projemin birkaç yerinde lazımdı teşekkürler.