Konu: Memo Alanda Arama Yapmak
Memo alanındaki kayıtlarda bir cümle veya bir kelime aratmak istiyorum. Aradığım kelime veya cümlenin olup olmadığını nasıl öğrenebilirim?
- smentes
- Uzman Üye
- Offline
- cetinbasoz
- Uzman Üye
- Offline
Re: Memo Alanda Arama Yapmak
Birden fazla yolu var. Oncelik sirasi vermeden:
lcAranan = "bul beni"
Visual Fox Pro
lcAra = '%'+m.lcAranan+'%'
select * from myTable where memoAlan like ?m.lcAra
Visual Fox Pro
select * from myTable where atc( m.lcAranan, memoAlan ) > 0
Visual Fox Pro
local loRX
loRX = Createobject("VBScript.RegExp")
with loRX
.Pattern = m.lcAranan
.IgnoreCase = .t.
.Global = .t.
endwith
select * from myTable where loRX.Test( memoAlan )
Dahasi da var.
- smentes
- Uzman Üye
- Offline
Re: Memo Alanda Arama Yapmak
Çetin hocam çok teşekkürler.
2.örnek bana uygun.
at ile atc arasındakif fark nedir?
- cetinbasoz
- Uzman Üye
- Offline
Re: Memo Alanda Arama Yapmak
atc() kullanirsan buyuk-kucuk harf ayrimi yok (atc() Case Ignore):
? atc('cetin', 'Cetin Basoz') > 0 && .T.
? at('cetin', 'Cetin Basoz') > 0 && .F.
- smentes
- Uzman Üye
- Offline
Re: Memo Alanda Arama Yapmak
Tekrar teşekkürler
- smentes
- Uzman Üye
- Offline
Re: Memo Alanda Arama Yapmak
Memo alanda;
1- Bir satır en fazla 80 karakter olsun, bir sayfada en fazla 60 satır olsun. Bu özellliklerde kaç sayfa olduğunu bulmak ve ileri geri butonları koyarak sayfalar arası geçişi nasıl yapabilirim?
2- aradığımız kelime veya cümleyi bulunca imlecin ilgili satırda setfocus olmasını nasıl sağlayabiliriz?
(örnek: aradığım kelime 5.sayfanın 35.satırınnda ise o sayfa ve satır ekrana gelsin)
Not: Memo alan Microsoft rich Textbox control objesi içinde.