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

Derecelendirme: 0/5 - 0 oy

Masalcı

Aktif Üye
Kullanici Avatari
Aktif Üye
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.
Cevapla

Hayri16

Aktif Üye
Kullanici Avatari
Aktif Üye
1.010
12/11/2009
294
Bursa
Ofis 2007
08/09/2017,22:49
Çö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.
Cevapla

nihatkr

Ofis 2007-2003-2010
Kullanici Avatari
Altın Üye
814
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)
Cevapla

Masalcı

Aktif Üye
Kullanici Avatari
Aktif Üye
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.
Cevapla

nihatkr

Ofis 2007-2003-2010
Kullanici Avatari
Altın Üye
814
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


Cevapla

Hayri16

Aktif Üye
Kullanici Avatari
Aktif Üye
1.010
12/11/2009
294
Bursa
Ofis 2007
08/09/2017,22:49
Çözüldü 
Sayın Masalcı örnek hazırlamaya çalışıyorum.


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


Konuyu Okuyanlar: 1 Ziyaretçi

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

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.