Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
16/02/2010 15:02
Konu Sahibi
Masalcı
Yorumlar
16
Okunma
5178
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

Masalcı

Aktif Üye
Aktif Üye
 37
 51
 9
 21/01/2010
15
 Adana
 
 Ofis 2003
 22/07/2010,21:01
Çözüldü 
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


Ek Dosyalar
.rar   metniböl.rar(Dosya Boyutu: 7,89 KB / İndirme Sayısı: 8)
Masalcı, 21-01-2010 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

Hayri16

Aktif Üye
Aktif Üye
 58
 1.010
 56
 12/11/2009
294
 Bursa
 
 Ofis 2007
 10/04/2018,10:30
Çözüldü 
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:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
'Ö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.

Kullanici Avatari

nihatkr

Ofis 2007-2003-2010
Onursal Üye
 814
 89
 29/10/2008
272
 İstanbul
 
 Ofis 2007
 03/09/2016,04:40
Çözüldü 
(16/02/2010 15:02)Masalcı Adlı Kullanıcıdan Alıntı: 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.


Ek Dosyalar
.rar   metniböl.rar(Dosya Boyutu: 10,64 KB / İndirme Sayısı: 28)

.rar   metniböl2.rar(Dosya Boyutu: 14,54 KB / İndirme Sayısı: 35)

Kullanici Avatari

Masalcı

Aktif Üye
Aktif Üye
 37
 51
 9
 21/01/2010
15
 Adana
 
 Ofis 2003
 22/07/2010,21:01
Çözüldü 
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.

Kullanici Avatari

nihatkr

Ofis 2007-2003-2010
Onursal Üye
 814
 89
 29/10/2008
272
 İstanbul
 
 Ofis 2007
 03/09/2016,04:40
Çözüldü 
Metinböl2 örneğini indirirseniz fonksiyon gibi çalıştığını göreceksiniz



Kullanici Avatari

Hayri16

Aktif Üye
Aktif Üye
 58
 1.010
 56
 12/11/2009
294
 Bursa
 
 Ofis 2007
 10/04/2018,10:30
Çözüldü 
Sayın Masalcı örnek hazırlamaya çalışıyorum.


Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Metin Ayırma ufukcem 2 413 16/06/2017, 10:10
Son Yorum: ufukcem
Çözüldü Sorgu ile Karakter Ayırma Hk. rknbrlz 10 938 19/12/2016, 19:25
Son Yorum: atoz112
Çözüldü sayı binlik ayırma ondercesmeci 8 2.113 25/12/2014, 10:02
Son Yorum: ondercesmeci
Çözüldü Sorguda Yekün Adetleri tek tek ayırma Dekdurmaz 5 1.507 17/01/2014, 11:10
Son Yorum: Dekdurmaz
Çözüldü Adet barkod ayırma yahyamacit 4 1.864 25/01/2013, 01:04
Son Yorum: simendifer

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.