Kaç KArakter.

28/05/2014, 15:22

derbederali1971

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,
28/05/2014, 17:10

alpeki99

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.
29/05/2014, 10:54

derbederali1971

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