IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Parça Kodlar (https://www.ircforumlari.net/mirc-parca-kodlar/)

- - String Karakter Uzunlugu (https://www.ircforumlari.net/mirc-parca-kodlar/982848-string-karakter-uzunlugu.html)

String Karakter Uzunlugu

Merhaba arkadaşlar kodun amacı belirli bir string karakter uzunlugunu verir.

Örnekler;

Komut

Kod:

//echo : $uzunluk(selam arkadaşlar)

Sonuç

Kod:

: 16

Komut

Kod:

//echo : $uzunluk(selam arkadaşlar hepinize)

Sonuç

Kod:

: 25

Komut

Kod:

//echo : $uzunluk(selam arkadaşlar hepinize iyi forumlar)

Sonuç

Kod:

: 38

Kod:

alias uzunluk {

  if !$1 { return }

  var %m, %n, %z

  :x

  if (%m iswm $1) return %z

  else {

    var %m %m $+ ?

    inc %z

    goto x

  }

}

Cevap: String Karakter Uzunlugu

$len identifieri bunun için olabilir mi :)
//echo -a $len(selam naber)

Cevap: String Karakter Uzunlugu

Alıntı:

Toprak Nickli Üyeden Alıntı (Mesaj 1042699666)

$len identifieri bunun için olabilir mi :)
//echo -a $len(selam naber)

!zline Toprak S.a

Cevap: String Karakter Uzunlugu

SeLamLar..

ben birkac yil önce burda bir script görmüstüm..
editbox'a yazdigimiz karakterlerin toplamini (sayi olarak) gözteriyordu bize.
arama yaptim ama bulamadim..

yardimci olabilecek varmi?

tskler..

Cevap: String Karakter Uzunlugu

aLT + Q tuslari ile ikinci editbox aktif oluyor.
komutu ise

Kod:

/editbox -q1

-
ikinci editbox'un acik mi yoksa kapali mi oldugunu bilmek icin,

Kod:

/echo $editbox($active,1))

komutu kullaniliyor.
-
fakat editbox'da yazi yazarken bir event yok.Her karakter degistiginda ikinci editbox'daki karakter degisecek oraya

Kod:

$len($editbox($active))

yazdirilacak.1 tane timer acilacak sadece aktif ettigin pencere icin milisaniye degerinde,

Kod:

/timerkar__ -m 0 200 alias

gibi.
-

Fakat kasma yapar mi bilmem. Benzer kodlari ikinciye yazmayi sevmiyorum. ilgisini ceken olursa buyursun yeni baslayanlar icin guzel calisma olur.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 19:47 -->-> Daha önceki mesaj 18:54 --

bi deneyeyim bakalim belki bi seyler yazabilirim.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 20:40 -->-> Daha önceki mesaj 19:47 --

Pek deneme firsatim olmadi kod uzerinde .

Kod:

on *:active:*:{

  while ($window($active).type == channel) {  

    while ($editbox($active,1) == $null) { editbox -q1 } .

    .timerlen_kontrol -h 0 300 /_len_kontrol

  } .

}

alias _len_kontrol { 

  while $window($active).type == channel {

  editbox -o $active  Karakter Sayisi: $len($editbox($active)) } .

}

Cevap: String Karakter Uzunlugu

hatalari duzelttim, sadece #kanal pencerelerinde calisiyor.
eger kanal penceresi degilse, timeri aktif etmiyor.

Kod:

on *:active:*:{

  while ($window($active).type == channel) {  

    while ($editbox($active,1) == $null) { editbox -q1 $active } .

    .timerlen_kontrol -h 0 300 /_len_kontrol $active

  } .

  while ($window($active).type != channel) {

    .timerlen_kontrol off

  } .

}

alias _len_kontrol { 

  while $window($1).type == channel {

  editbox -oq1 $1 Karakter Sayisi: $len($editbox($1)) } .

}

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 13:45 -->-> Daha önceki mesaj 13:44 --

bu arada while tek kez dondurmek icin while kapanis parantezinin sonuna herhangi bir karakter koymaniz yeterlidir.

Cevap: String Karakter Uzunlugu

Alıntı:

manikdepresif Nickli Üyeden Alıntı (Mesaj 1042838368)

hatalari duzelttim, sadece #kanal pencerelerinde calisiyor.
eger kanal penceresi degilse, timeri aktif etmiyor.

Kod:

on *:active:*:{

  while ($window($active).type == channel) {  

    while ($editbox($active,1) == $null) { editbox -q1 $active } .

    .timerlen_kontrol -h 0 300 /_len_kontrol $active

  } .

  while ($window($active).type != channel) {

    .timerlen_kontrol off

  } .

}

alias _len_kontrol { 

  while $window($1).type == channel {

  editbox -oq1 $1 Karakter Sayisi: $len($editbox($1)) } .

}

Niyetiniz karter saydırmaksa $len() boşluklar sonrasında görünen bir karakter varsa sayar, renk kodları vb. gibi control karakterlerini de saymaz.

Kod:

on *:start: .timer_len -mi 0 30  _len

alias _len  titlebar : $regex( $editbox( $window($active)) ,/(.)/ig) :

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: String Karakter Uzunlugu

titlebar'a da yapilabilir boylece hem kanal hem ozellerde de her pencerede calisir. Kullanicinin begenisine kalmis.

Cevap: String Karakter Uzunlugu

Sagolun..
ben yukardaki bu kodu aldim..

Kod:

 Kod:   Kodu kopyalamak için üzerine çift tıklayın!

 on *:active:*:{   while ($window($active).type == channel) {       while ($editbox($active,1) == $null) { editbox -q1 } .     .timerlen_kontrol -h 0 300 /_len_kontrol   } . } alias _len_kontrol {    while $window($active).type == channel {   editbox -o $active  Karakter Sayisi: $len($editbox($active)) } . }

özellerde göztermiyor ama kanalda 2.nci editbox'da gözteriyor ve calisiyor istedigim gibi. Tskler..