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/)
-   -   input nick altı cizgili kelime başlangıçı büyük harf (https://www.ircforumlari.net/mirc-scripting-sorunlari/378634-input-nick-alti-cizgili-kelime-baslangici-buyuk-harf.html)

sahr 23 Ocak 2011 03:46

input nick altı cizgili kelime başlangıçı büyük harf
 
şu iki kodu aynı anda nasıl kullana biliriz arkadaşlar birleştirmemiz mümkünmü


Kod:


on *:input:*:{
if (/* iswm $1) { return }
  var %a 0, %b, %c
  while (%a < $numtok($1-,32)) {
    inc %a
    %c = $gettok($1-,%a,32)
    if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(12,%c,) }
    else { %b = %b %c }
  }
  if (!%b) { %b = $1- }
  say %b
  halt
}

Kod:


on *:input:*:{
 if ($left($1,1) != /) {
    var %Jnk
    var %e = 0
    while %e != $numtok($1-,32) {
      inc %e 1
      var %Jnk = %Jnk $upper($left($token($1-,%e,32),1)) $+ $lower($right($gettok($1-,%e,32),-1))
    }
    msg $active %Jnk
    halt
  }
  if ($left($1,1) != /) {
    var %Jnk
    var %e = 0
    while %e != $numtok($1-,32) {
      inc %e 1
      var %Jnk = %Jnk $upper($left($token($1-,%e,32),1)) $+ $lower($right($gettok($1-,%e,32),-1))
    }
    msg $active %Jnk
    halt
  }
}


Coldman 23 Ocak 2011 12:27

Cevap: input nick altı cizgili kelime başlangıçı büyük harf
 
Bu Kod Şu sekilde, Nicklerin Alti Cizgli İnce Ve Yazdiğin Her kelimenin baş harfleri Büyük yazan Bir kodedir.

Dipnot: Alintidir.
Örnek : CoLdmAn Naber Nasilsin.
Kod

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) $+(1,%c,1) }
else {
if (%a == $numtok($1-,32)) {
%d = $+($right(%c,1),)
%f = $right(%d,2)
}
%e = $regsubex(%c,/(?=^| )(.)/g,$+(,$upper(\1),))
%b = %b $+(%e,%f)
}
}
if (!%b) { %b = $1- }
else { say %b }
halt
:end
}


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk