mlsf

@faultless
strpos ile bende düşündümde strpos boşluk sayısını değil, boşluğa kadarki karakter sayısını hesaplıyor :/

biliyorum ama bunu while döngüsüne sokar ve bir değişkeni de her while'a girişinde arttırırsan boşluk sayısını hesaplamış olursun tabii strposun kaldığı son değer üzerinden işlem yapacaksın

while döngüsüne derken, biraz açabilir misin rica etsem

while şöyle birşey şimdi while( ? ) denildiğinde parantez içinde söylenen şart doğru olduğu sürece döngü tekrarlanıyor for döngüsünün şart sağlanana kadar devam eden hali diye düşünebilirsin. Döngüyü kırıp bozulması için mesela artık boşluk bulamadığında ya return yapıp sonucu yansıtıp bu döngüyü sonlandırabilirsin ya da döngü içinde şart sağlandığında bir değer verip atıyorum a=1 diyelim while(a!=1) yaparsak a=1 olduğu vakit döngü sonlanır if - endif gibi while sonunda end kullanıyorsun fakat endwhile kullananı da gördüm bir ikisini de dene istersen sadece test amaçlı bir program yazıp çalışırsa devam

Hmm, yapamadım ben ama böyle bir sorgu yapmıştım 3 kez üst üste kullanınca hata veriyor bende :S

[function strdel]

local.hamit <f_moonsep 2,<args>>

for <strpos 0 32 <local.hamit>>

if !(STRMATCH(<f_moonsep 1,<args>>,<strarg <local.hamit>>))

local.strdel=<local.strdel>,<strarg <local.hamit>>

endif

local.hamit=<streat <local.hamit>>

endfor

// hata <local.strdel>

for 2 <f_moonsep 0,<local.strdel>>

//hata 0<f_moonsep <dlocal._for>,<local.strdel>>

if !(STRMATCH(00*,0<f_moonsep <dlocal._for>,<local.strdel>>))

// if (0<f_moonsep <dlocal._for>,<local.strdel>> != 00)

local.hmt <local.hmt> <f_moonsep <dlocal._for>,<local.strdel>>

// hata <f_moonsep <dlocal._for>,<local.strdel>>

endif

endfor

return <streat <local.hmt>>

Su anda disari ciktim eve donunce bir bakarim koda olmadi sphere kurar yazariz artik

Peki kardeşim eyvallah

Kaptan kodunda ne oluyor nereye gidiyor bir baktım da böyle biraz zor anlaşıldığından kendim sana kaç kelime olduğunu söyleyen programı yazdım. Bu kodu kendi projende bir yerlerde artık nasıl kullanıcaksan kullan baktın gene yapamadığın bir yer olursa yapamadığın kısımdan devam ederiz

[function f_kelimesay]

local.pos=<strpos 0 32 <args>>

while (!(STRMATCH(*f*,<local.pos>)))

local.buldu +=1

local.pos=<strpos <eval <local.pos>+1> 32 <args>>

endwhile

return <yazdir <eval <local.buldu>+1>>





[function yazdir]

src.sysmessage <args>

tabii sen kullanırken yazdır fonksiyonunu kaldırıp return <eval <local.buldu>+1>> haline getireceksin

Çok teşekkür ederim oldu ellerine sağlık

[function deneme]

LOCAL._text "b 123 a 123 selam naber123 :D"

LOCAL._explode <EXPLODE " ",<LOCAL._text>>

args <LOCAL._explode>



FOR <ARGV>

  IF !strmatch(123,<argv[<dlocal._for>]>)

    LOCAL._return .= " <argv[<dlocal._for>]>"

  endif

ENDFOR



SAY <STRSUB 1 0 <LOCAL._return>>

Bu kod ayrı olan 123 leri siliyor fakat naber123 yazısındaki 123 ü silmiyor. Bunuda silsin istiyorsan harf harf ilerleyen bir forla çözülebilir.