Arkadaşlar selam,

Elimde bir telefon tablosu var ve girişler çok düzensiz yazılmış. Bunları bir tabloya girerken düzenleyerek almam gekiyor. Bir miktarını hallettim ama karakter sayısına iş düşünce kaldım. Şöyle ki,
Değerler;
0212 212 12 12
212 2121212
2122121212
2121212
şeklinde ama almam gereken sonuç ise,

2122121212

şeklinde.
Replace kullanarak boşlukları aldım. Int çevrimi ile baştaki sıfırı kaldırdım. Ama 7 hane ise başına nasıl 212 ekleyeceğimi uygulayamadım.

Bana text kutusu içinde kaç karakter olduğunu belirtecek bir denetim yada kod varmı? Yada benzer bir yol?

İlgilenen herkese şimdiden teşekkürler.

Üstünde oynamak için örnek çalışmayı ekliyorum.

Kendi kullandığım kod.

mrb.lar



k.gelsin

Merhaba,
Sayın Jon206 verdiğiniz kodun altında yer alan: SendKeys "^{c}" ne işe yarıyor?

Klavyeden yaptığın Ctrl+V işlevini yapıyor. Text i clipboard a kopyalıyor yani.

İstediğin yere sonra yapıştır diyorsun.

(15-12-2011, 14:16)jon206 demiş ki: mrb.lar

Visual Basic

Dim say As Integer
Me.Metin2 = Int(Replace(Me.Telefon_Numarası, " ", ""))
say = Len(Me.Telefon_Numarası)
If say < 8 Then
Me.Metin2.Value = "212" & Me.Telefon_Numarası
Else
End If
Me.Metin2.SetFocus
SendKeys "^{c}"

k.gelsin

Çok teşekkür ederim. İlginize.

Yani;