Skip to main content

AccessTr.neT


metini ikiye ayırma

metini ikiye ayırma

Çözüldü #1
bir alandaki bir metini nasıl ikiye bölebiliriz
mesala
c:\data\accesstr\access.mdb
metnini
c:\data\accesstr
ve
access.mdb
olarak ayıracağız
tabiki bunlar değişesilecek şeyler
bizim ayırma kriterimiz
sondan itibaren ilk "\" karakterinden öncekileri birinci alana
sondan itibaren ilk "\" karakterinden sonrakileri ikinci alana
olacak
nasıl yazmalıyız
.rar metniböl.rar (Dosya Boyutu: 7,89 KB | İndirme Sayısı: 10)
Masalcı, 21-01-2010 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 16/02/2010, 15:07, Düzenleyen: Masalcı.
Cevapla
Çözüldü #2
Sayın Masalcı;
Daha önce başka bir arkadaşa ad soyad ayırma konusunda verdiğim örneği bu konuya uyarlayarak yapabilirsiniz. Boşluk yerine "\" karakterini baz alacaksınız.
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

Saygılar, kolay gelsin.
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #3
(16/02/2010, 15:02)Masalcı yazdı: bir alandaki bir metini nasıl ikiye bölebiliriz
mesala
c:\data\accesstr\access.mdb
metnini
c:\data\accesstr
ve
access.mdb
olarak ayıracağız
tabiki bunlar değişesilecek şeyler
bizim ayırma kriterimiz
sondan itibaren ilk "\" karakterinden öncekileri birinci alana
sondan itibaren ilk "\" karakterinden sonrakileri ikinci alana
olacak
nasıl yazmalıyız

1. Kısım denetim kaynağına
=Mid([asılmetin];1;15)
2. kısım Denetim kaynağına
=Mid([asılmetin];16)

örnekte ektedir.
.rar metniböl.rar (Dosya Boyutu: 10,64 KB | İndirme Sayısı: 30)
.rar metniböl2.rar (Dosya Boyutu: 14,54 KB | İndirme Sayısı: 38)
FX-Etopla
Liste Kutusu Oluşturma
Cevapla
Çözüldü #4
teşekkürler sn.hayri16
elinize sağlık
bunu bir fonksiyon gibi nasıl yazabiliriz
amaç
tablo1 de kayıtlı olan diyelim ki 150 tane kayıtın hepsini bu şekilde ayırmak
bir sorgu hazırlayıp
asılmetin alanını fonksiyonu uygulayarak
birincikısım alanına ve
ikincikısım alanına
güncelleyecek
nasıl yapabiliriz
Masalcı, 21-01-2010 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 16/02/2010, 16:13, Düzenleyen: Masalcı.
Cevapla
Çözüldü #5
Metinböl2 örneğini indirirseniz fonksiyon gibi çalıştığını göreceksiniz
FX-Etopla
Liste Kutusu Oluşturma
Cevapla
Çözüldü #6
Sayın Masalcı örnek hazırlamaya çalışıyorum.
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
Task