Skip to main content

AccessTr.neT


sorguda tamamının gozukmesi

sorguda tamamının gozukmesi

Çözüldü #5
Sayın hegu;
Ben size ad soyad ayırma konusunda yardımcı olmak istiyorum.
Kodu beraberce inceleyelim.
Kod:
'Önce kulanacağımız değişkenleri tanımlıyoruz.
Dim uzunluk As Integer
Dim ayir As Integer
Dim bosyer As Integer

For uzunluk = Len(adsoyad) To 1 Step -1
'adsoyad uzunluğu ne kadarsa oradan geriye doğru 1 er 1 er karakterlere bak

If Mid(adsoyad, uzunluk, 1) = " " Then
'eğer bu karakter boşluğa eşitse

bosyer = uzunluk
Exit For
'kaçıncı karakter olduğunu bosyer adlı değişkene ata ve for next döngüsünden çık

Else
End If
Next
'değilse döngüyü devam ettir

ayir = Len(adsoyad) - bosyer
'boşluğun kaçıncı karakterde olduğunu bulduktan sonra
'adsoyad uzunluktan bosluk yerini çıkar ve soyadın kaç karakter olduğunu bul

soyad = Right(adsoyad, ayir)
'soyad değişkenine adsoyadımızın sağından itibaren bulduğumuz ayir uzunluğu kadar
'karakteri ata

Umarım faydalı olmuştur.
Saygılarımla kolay gelsin.
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
sorguda tamamının gozukmesi - Yazar: hegu - 15/02/2010, 17:10
Cvp: sorguda tamamının gozukmesi - Yazar: nihatkr - 15/02/2010, 18:02
Cvp: sorguda tamamının gozukmesi - Yazar: hegu - 15/02/2010, 18:20
Cvp: sorguda tamamının gozukmesi - Yazar: nihatkr - 15/02/2010, 18:53
Cvp: sorguda tamamının gozukmesi - Yazar: Hayri16 - 15/02/2010, 19:13
Cvp: sorguda tamamının gozukmesi - Yazar: hegu - 15/02/2010, 19:32
Cvp: sorguda tamamının gozukmesi - Yazar: Puletin - 15/02/2010, 20:03
Cvp: sorguda tamamının gozukmesi - Yazar: hegu - 15/02/2010, 20:51
Cvp: sorguda tamamının gozukmesi - Yazar: Puletin - 15/02/2010, 22:40
Cvp: sorguda tamamının gozukmesi - Yazar: Masalcı - 16/02/2010, 16:38
Task