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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - ilk harf büyük olsun (https://www.ircforumlari.net/mirc-scripting-sorunlari/534906-ilk-harf-buyuk-olsun.html)

ZenqerDenq

15 Haziran 2013 23:26

ilk harf büyük olsun

on 1:input:*:{
if ($chr(47) == $mid($1-,1,1)) || ($inpaste) || ($ctrlenter) { goto end }
if ($1- == isnum) { goto end }
var %a 0, %b, %c, %d, %e, %f
while (%a < $numtok($1-,32)) {
inc %a
%c = $gettok($1-,%a,32)
if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(4«1 ,%c,4») }
else {
if (%a == $numtok($1-,32)) {
%d = $+($right(%c,..1),,,)
%f = $right(%d,2)
}
%e = $regsubex(%c,/(?=^| )(.)/g,$+( 1, $+ $upper(\1)|,))
%b = %b $+(%e,%f)
}
}
if (!%b) { %b = $1- }
else { say %b }
halt
:end
}

yukarıdaki kodda nick kenarında 2 simge var ayrıca her kelimenin ilk harfi büyük bunu sadece cümlenin ilk harfi büyük olacak sekilde ayarlaya bilirmiyiz ?

thunderboLt

19 Haziran 2013 23:33

Cevap: ilk harf büyük olsun

Kodu yeniden yazdım; sizdekini biraz uzun tutmuş yazan kişi.
* Kanalda olan birinin nickini belirttiğinizde «Nick» şeklinde belirtilir.
* Cümlenin ilk harfi büyük.

Kod:

on *:input:*:{

  if !$ctrlenter && !$inpaste && !$regex($1-,^\x2F) {

    haltdef

    var %thu $1-

    var %bolt 1

    while %bolt <= $numtok(%thu,32) {

      if $gettok(%thu,%bolt,32) ison # { var %thu $puttok(%thu,$+(4«1,$gettok(%thu,%bolt,32),4»),%bolt,32) }

      inc %bolt

    }

    say $regsubex(%thu,^(.),$upper(\t))

  }

}

İyi forumlar.

Set	19 Haziran 2013 23:55

Cevap: ilk harf büyük olsun

Kod:

on *:input:*:{

  if !$ctrlenter && !$inpaste && !$regex($1-,^\x2F) {

    var %text $regsubex($1-,/(\w+)/g,$iif(\t ison #,«\t»,\t))

    say $regsubex(%text,^(.),$upper(\t))

    haltdef

  }

}

Boylede olabilir hayırlı IF'ler.

thunderboLt

20 Haziran 2013 00:07

Cevap: ilk harf büyük olsun

Alıntı:

Set Nickli Üyeden Alıntı (Mesaj 1041311607)

Kod:

on *:input:*:{

  if !$ctrlenter && !$inpaste && !$regex($1-,^\x2F) {

    var %text $regsubex($1-,/(\w+)/g,$iif(\t ison #,«\t»,\t))

    say $regsubex(%text,^(.),$upper(\t))

    haltdef

  }

}

Boylede olabilir hayırlı IF'ler.

Regsubex düşüncesi güzel lakin [, ] vb. karakterler içeren yani \w (harf,rakam,alt çizgi) harici karakterler içeren nicklerde sorun çıkaracaktır verdiğiniz kod.
[00:05:34] <~boLt[Away]> Selam boLt[Away] nasılsın
[00:05:36] <~boLt[Away]> «thunderboLt»
Gibi.

(Konuyu açan arkadaşı bilgilendirmek amaçlı)

İyi forumlar.

ZenqerDenq

24 Haziran 2013 04:37

Cevap: ilk harf büyük olsun

tşkler arkadaşlar

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 13:17.