metini ikiye ayırma
Tarih
16/02/2010 15:02
Konu Sahibi
Masalcı
Yorumlar
16
Okunma
4147
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ı: 6)
Masalcı, 21-01-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Hayri16
Aktif Üye
Kullanici Avatari
Aktif Üye
1.010
12/11/2009
291
Bursa
Ofis 2007
22/12/2015,15:41
Çö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
Onursal
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ı: 25)
.rar   metniböl2.rar (Dosya Boyutu: 14,54 KB / İndirme Sayısı: 31)
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
Onursal
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
291
Bursa
Ofis 2007
22/12/2015,15:41
Çö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ü sayı binlik ayırma ondercesmeci 8 1.344 25/12/2014, 10:02 ondercesmeci
Çözüldü Sorguda Yekün Adetleri tek tek ayırma Dekdurmaz 5 970 17/01/2014, 11:10 Dekdurmaz
Çözüldü Adet barkod ayırma yahyamacit 4 1.323 25/01/2013, 01:04 simendifer
Çözüldü metini sürekli formun tüm satırlarına yazdırma kokotuna 4 991 17/04/2012, 08:05 kokotuna
Çözüldü Rapor çıktılarını ikiye bölme? prtkl 2 914 14/03/2012, 14:48 prtkl


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya