Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
fox4um » Kodlama ve Komutlar » aranan karakterlerin yerini bulma
merhaba arkadaşlar, "MUSTAFA" stringinin içerisinde AT() komutu ile "A" nın yerini 5 olarak buluyorum.Kaç tane "A" var ve, yerleri neresi (5,7) ? Bunu sağlayan komutu hatırlayamadım.Kodlada yapılıyor ama hazır işimizi gören bir fonksiyon yada kod var mı acaba?
bu komutla aradigin karakterin stringte kac tane oldugunu bulursun
STORE 'abracadabra' TO gcstring
CLEAR
? OCCURS('a', gcstring) && Displays 5
? OCCURS('b', gcstring) && Displays 2
? OCCURS('c', gcstring) && Displays 1
? OCCURS('e', gcstring) && Displays 0
teşekkür ederim üsdat
Arasira VBScript'den yardim almakta fayda var:)
lcString = "MUSTAFA"
oRX = Createobject("VBScript.RegExp")
With oRX
.Pattern = "A"
.IgnoreCase = .F.
.Global = .T.
Local loMatches
loMatches = .Execute(m.lcString)
ENDWITH
_screen.FontName = "Courier New"
clear
? m.lcString
For Each loMatch In loMatches
? PADL("^",loMatch.firstIndex+1)
ENDFOR
Bu kadar basit birsey icin neden regular expression diyip kaldirip atma, bir kenarda sakla:) Ak akce kara gun icindir. Aklima gelmisken postaladim ben kaybedebilirim.
fox4um » Kodlama ve Komutlar » aranan karakterlerin yerini bulma