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/)
-   -   İlk Harf Buyuk Yazı Stili (https://www.ircforumlari.net/mirc-scripting-sorunlari/191691-ilk-harf-buyuk-yazi-stili.html)

Juventus 26 Mart 2009 17:23
İlk Harf Buyuk Yazı Stili
 
Konum Silinmezse sewinirim aradım istedigim yoktu...


Arkadaslar ßenm istedigim Buton halinde yazı stili secmek istiyorum icinde ilk harf buyuk - elite stilleri olsun yeterli. Ayrıca arkadaslar Yazı Stillerini İptal Etmek İcinde " kapalı " vs.. gibide buton koyarsanız sevinirim...

Difuzyon 26 Mart 2009 17:32
Cevap: İlk Harf Buyuk Yazı Stili
 
KaLpsizDj,

Hazır Kodlar bölümünde temel anahtar kelimeleri yazi cesitleri veya yazi sekilleri olanları tıklamanız halinde forumumuzda bu yönde çalışmaların mevcut olduğunu göreceksiniz.

Bu ve benzeri konularda ARAMA butonu kullanılır.ARAMA yapmanın çeşitli kriterleri vardır.Bunlar sağlandıktan sonra istediğiniz çalışmaların var olup olmadığı görebilirsiniz.
Eğer ARAMA butonunu nasıl kullanacağınızı bilmiyorsanız veya bu yönde bir sorununuz varsa "Bilgilendirme" konu başlığından ön sorunlarınızı dile getirebilirsiniz.

Bilgi edinmek istediğiniz konuları "Bilgilendirme" başlığına sorun , biz size çözüm arayalım.

Kurallara uyalım.

Juventus 26 Mart 2009 17:36
Cevap: İlk Harf Buyuk Yazı Stili
 
Difüzyon Yaptım Dediklerinizi Ama Tam Anlamıyla Bu Sekilde ßir Calısma Yok Digerlerinin Uzerinde Edit Gerekiyor Benmde Code Yazımı iLe O Derece Bilgim Yok..
ßen Sade mIRC Kullanırım Ayda YıLda ßir Remote İstedm Onu Da Tam Haliyle Eklemek İsterim... :)
İlginiz İcin Tsk Ederm....

Juventus 26 Mart 2009 17:57
Cevap: İlk Harf Buyuk Yazı Stili
 
merhaba arkadaslar . bir yazı kodu arıyorum söyle olacak ;

Baş harfi büyük gerisi kücük ve ince yazacak rengi mor olacak nick yazdıgımızda ise altı cizgili olacak. yardımcı olursanız sevinirim tesekkürler simdiden


Bu İstege Cevap Bu Koddu ;

on *:input:#:{
if (/* !iswm $1) || ($ctrlenter) {
var %^ = 1, %'
while %^ <= $0 {
%' = %' $iif($remove($gettok($1-,%^,32),!,:,;,$chr(44)) ison #,$+(,$gettok($1-,%^,32),),$gettok($1-,%^,32))
inc %^
}
msg # 06 $+ $regsubex(%',/(?<=^|\s)(.)/, $+ $upper(\1) $+ )
halt
}
}


ßende Bunu Su Sekilde Deiştirmek İstiyorum Sadece İlk Harf Buyuk Olsun Mor Renk Falan Hic Olmasın...
Ayrıca Ben Bu Stili Buton'dan Seceyim... Birde Devredısı Bırakmak İcin Kapalı Alt Butonu Koyulmasını İstiyorum.

Difuzyon 26 Mart 2009 18:06
Cevap: İlk Harf Buyuk Yazı Stili
 
Kod:
#yazıstil on
on *:input:*:if (/* !iswm $1) { msg $active $regsubex($1-,/(?<=^|\s)(.)/, $+ $upper(\1) $+ ) | halt }
#yazıstil end
menu  query,channel {
  .Yazı Stil
  ..Aç:.enable #yazıstil
  ..Kapa:.disable #yazıstil
}

Juventus 26 Mart 2009 18:56
Cevap: İlk Harf Buyuk Yazı Stili
 
Alıntı:
Difuzyon Nickli Üyeden Alıntı (Mesaj 671528)
Kod:
#yazıstil on
on *:input:*:if (/* !iswm $1) { msg $active $regsubex($1-,/(?<=^|\s)(.)/, $+ $upper(\1) $+ ) | halt }
#yazıstil end
menu  query,channel {
  .Yazı Stil
  ..Aç:.enable #yazıstil
  ..Kapa:.disable #yazıstil
}

Sadece Satırın İlk Basındaki Harfi Buyuk Yapıyor Digerlerini yapmıyor :S

Difuzyon 26 Mart 2009 19:20
Cevap: İlk Harf Buyuk Yazı Stili
 
Bir dahaki sefere sorununu tam olarak belirtsen sevinirim.

Kod:
#yazıstil on
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
  }
}
#yazıstil end
menu  query,channel {
  .Yazı Stil
  ..Aç:.enable #yazıstil
  ..Kapa:.disable #yazıstil
}
İyi forumlar...

heySs 22 Ocak 2011 01:08
Cevap: İlk Harf Buyuk Yazı Stili
 
Difuzyon Sayın Coderim Senden Bi riCam oLacak Bu bas haRfi Büyük SÜper ben bunlara S ve L yide ekLicem.. naSıl OLacak
meSaLa ŞöyLe SeLam NaSıLSın SekLinde. yardım edersens sevinirim simdiden tskLer.

Difuzyon 25 Ocak 2011 22:36
Cevap: İlk Harf Buyuk Yazı Stili
 
e varsa a olsun
tarzı isteklerin karşılığını $replace identifier'iyle elde edebilirsiniz.
Anlayacağınız bir şekilde bir örnek vermem gerekirse:
//echo -a $replace(yemek,e,a)
uyguladığınızda size yanıt yamak olarak dönecektir.

Aşağıdaki kod ilk harfleri büyük yapmakla beraber; s harfini S, l harfinide L olarak değiştirecektir.

Kod:
#yazıstil on
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 $replace(%Jnk,s,S,l,L)
    halt
  }
}
#yazıstil end
menu  query,channel {
  .Yazı Stil
  ..Aç:.enable #yazıstil
  ..Kapa:.disable #yazıstil
}

StanteaR 14 Mart 2011 13:34
Cevap: İlk Harf Buyuk Yazı Stili
 
Arkadaslar... Peki Aşagıdakı Kodda Sadece Ilk Basta Yazılan Kelımenın Bas Harfını Buyuk Yapıyor Ben Istıyorumkı Her Kelımenın Ilk Harfını Buyuk Yapsın Yardımcı Olabılırmısınız ?

Alıntı:
on *:input:#:{
if (/* !iswm $1) || ($ctrlenter) {
var %^ = 1, %'
while %^ <= $0 {
%' = %' $iif($remove($gettok($1-,%^,32),!,:,;,$chr(44)) ison #,$+(,$gettok($1-,%^,32),),$gettok($1-,%^,32))
inc %^
}
msg # 06 $+ $regsubex(%',/(?<=^|\s)(.)/, $+ $upper(\1) $+ )
halt
}
}

uFuK 14 Mart 2011 16:08
Cevap: İlk Harf Buyuk Yazı Stili
 
Kod:
on 1:INPUT:*: {
  if ( $left($1,1) == / ) { goto son }
  if ($ctrlenter) { goto son }
  if ($active == Status Window) { Echo -a OAScript SohbeT    | goto halt }
  if ($active == @Bot) { goto halt }
  set %Var3 $1-
  unset %Var1 %Var2
  set %Var1 1 | set %Var2 $upper($mid(%Var3,1,1))
  if ($mid(%Var3,1,1) == $chr(47)) { goto ServerCommand }
  if ($len(%Var3) == 1) { set %Var2 $upper(%Var2) | say %Var2 | halt }
  :Start1
  inc %Var1 1
  if ($mid(%Var3,%Var1,1) != $chr(32)) { set %Var2 %Var2 $+ $mid(%Var3,%Var1,1) | if ($len(%Var3) < %Var1) { goto Start1 } }
  if ($mid(%Var3,%Var1,1) == $chr(32)) { set %Var2 %Var2 $+ $upper($mid(%Var3,%Var1,2)) | inc %Var1 1 | if ($len(%Var3) < %Var1) { goto Start1 } }
  if ($len(%Var3) != %Var1) { goto Start1 }
  say %Var2
  halt
  :ServerCommand
  :halt
  halt
  :son
}


Yazdığınız Yazının Tıpkı Şuan Oldugu Gibi Boşluktan Sonraki İlk Harfini Büyük'le Başlatır.

ÖNEMLİ: Myops CR Sürüm'den alıntıdır. Yazarı: aCode

StanteaR 14 Mart 2011 16:47
Cevap: İlk Harf Buyuk Yazı Stili
 
Alıntı:
FenomeNsTwo Nickli Üyeden Alıntı (Mesaj 1040701496)
Kod:
on 1:INPUT:*: {
  if ( $left($1,1) == / ) { goto son }
  if ($ctrlenter) { goto son }
  if ($active == Status Window) { Echo -a OAScript SohbeT    | goto halt }
  if ($active == @Bot) { goto halt }
  set %Var3 $1-
  unset %Var1 %Var2
  set %Var1 1 | set %Var2 $upper($mid(%Var3,1,1))
  if ($mid(%Var3,1,1) == $chr(47)) { goto ServerCommand }
  if ($len(%Var3) == 1) { set %Var2 $upper(%Var2) | say %Var2 | halt }
  :Start1
  inc %Var1 1
  if ($mid(%Var3,%Var1,1) != $chr(32)) { set %Var2 %Var2 $+ $mid(%Var3,%Var1,1) | if ($len(%Var3) < %Var1) { goto Start1 } }
  if ($mid(%Var3,%Var1,1) == $chr(32)) { set %Var2 %Var2 $+ $upper($mid(%Var3,%Var1,2)) | inc %Var1 1 | if ($len(%Var3) < %Var1) { goto Start1 } }
  if ($len(%Var3) != %Var1) { goto Start1 }
  say %Var2
  halt
  :ServerCommand
  :halt
  halt
  :son
}


Yazdığınız Yazının Tıpkı Şuan Oldugu Gibi Boşluktan Sonraki İlk Harfini Büyük'le Başlatır.

ÖNEMLİ: Myops CR Sürüm'den alıntıdır. Yazarı: aCode
Tşk Yardımın Icın Ama O Kodda Renkli Yazı Kalsın Istıyordumda. Hem İnce Yazıyor Renkli Yazıyor Ve Nıcklerıde Altı Cızgılı Gosterıyor O Yuzden Verdıgım Kodda Ekleme Yaparak Olmazmı Acaba ? Her Kelımenın Harfi Buyuk Yazılar Renkli Ince Ve Nıcklere Seslenınce Altı Cızgılı..

DaDaS 15 Mart 2011 12:02
Cevap: İlk Harf Buyuk Yazı Stili
 
Kod:
#yaziturkce off
on *:input:*: { if $left($1,1) != / { var %1 = $1- | var %2 = $regsub(%1, /()/g, $chr(2)1, %1) | say %1 | haltdef } }
#yaziturkce end
#yazikalinince off
on 1:input:*:{
  if ( $left($1,1) == / ) { goto son }
  if ($ctrlenter) { goto son }
  if ($active == Status Window) { Echo -a %logo2 11,1Status'a Birşey Yazamazsınız.  | goto halt }
  if ($active == @Bot) { goto halt }
  set %kelime $1-
  if ( $left($1,1) == . ) { goto bit }
  set %kelime $replace(%kelime,ı,I)
  set %kelime $replace(%kelime,ğ,g)
  set %kelime $replace(%kelime,l,L)
  set %kelime $replace(%kelime,b,ß)
  set %kelime $replace(%kelime,Ş,$)
  set %kelime $replace(%kelime,j,J)
  set %kelime $replace(%kelime,o,ø)
  set %kelime $replace(%kelime,t,?)
  set %kelime $replace(%kelime,ç,¢)
  set %kelime $replace(%kelime,:,¦)
  set %kelime $replace(%kelime,Ç,¢)
  set %kelime $replace(%kelime,ç,¢)
  set %kelime $replace(%kelime,ü,û)
  set %kelime $replace(%kelime,Ü,Û)
  set %kelime $replace(%kelime,ö,ô)
  set %kelime $replace(%kelime,Ö,Ô)
  set %kelime $replace(%kelime,?,¿) 
  set %kelime $replace(%kelime,x,×) 
  set %kelime $replace(%kelime,slm,SeLam)
  set %kelime $replace(%kelime,nbr,naßer¿)
  set %kelime $replace(%kelime,s.a,seLamun aLeyKüm.)
  set %kelime $replace(%kelime,a.s,aLeyKüm SeLam.) 
  set %kelime $replace(%kelime,allah,Allah) 
  set %kelime $replace(%kelime,Yazgulu,YazguLu) 
  :bit
  say %kelime
  unset %kelime
  :halt
  halt
  :son
}
#yazikalinince end
#yazielite off
on 1:input:*:{
  if ( $left($1,1) == / ) { goto son }
  if ($ctrlenter) { goto son }
  if ($active == Status Window) { Echo -a %logo2 11,1Status'a Birşey Yazamazsınız.  | goto halt }
  if ($active == @Bot) { goto halt }
  set %kelime $1-
  if ( $left($1,1) == . ) { goto bit }
  set %kelime $replace(%kelime,ı,I)
  set %kelime $replace(%kelime,ğ,g)
  set %kelime $replace(%kelime,l,L)
  set %kelime $replace(%kelime,b,ß)
  set %kelime $replace(%kelime,ı,I)
  set %kelime $replace(%kelime,ş,$)
  set %kelime $replace(%kelime,Ş,$)
  set %kelime $replace(%kelime,j,J)
  set %kelime $replace(%kelime,ç,¢)
  set %kelime $replace(%kelime,ü,û)
  set %kelime $replace(%kelime,Ü,Û)
  set %kelime $replace(%kelime,ö,ô)
  set %kelime $replace(%kelime,Ö,Ô)
  set %kelime $replace(%kelime,:,¦)
  set %kelime $replace(%kelime,?,¿) 
  set %kelime $replace(%kelime,slm,SeLam)
  set %kelime $replace(%kelime,nbr,naßer¿)
  set %kelime $replace(%kelime,s.a,seLamun aLeyKüm.)
  set %kelime $replace(%kelime,a.s,aLeyKüm SeLam.) 
  set %kelime $replace(%kelime,allah,Allah)
  set %kelime $replace(%kelime,Yazgulu,YazguLu) 
  :bit
  say %kelime
  unset %kelime
  :halt
  halt
  :son
}
#yazielite end
#yaziqarisma off
on 1:input:*:{
  if ( $left($1,1) == / ) { goto son }
  if ($ctrlenter) { goto son }
  if ($active == Status Window) { Echo -a %logo2 11,1Status'a Birşey Yazamazsınız.  | goto halt }
  if ($active == @Bot) { goto halt }
  set %kelime $1-
  if ( $left($1,1) == . ) { goto bit }
  set %kelime $replace(%kelime,o-,º)
  set %kelime $replace(%kelime,k,]{)
  set %kelime $replace(%kelime,1/4,¼)
  set %kelime $replace(%kelime,1/2,½)
  set %kelime $replace(%kelime,/,÷)
  set %kelime $replace(%kelime,0,ø)
  set %kelime $replace(%kelime,1,¹)
  set %kelime $replace(%kelime,2,²)
  set %kelime $replace(%kelime,3,³)
  set %kelime $replace(%kelime,ae,Æ)
  set %kelime $replace(%kelime,a,å)
  set %kelime $replace(%kelime,b,ß)
  set %kelime $replace(%kelime,c,©)
  set %kelime $replace(%kelime,e,ë)
  set %kelime $replace(%kelime,i,î)
  set %kelime $replace(%kelime,l,£)
  set %kelime $replace(%kelime,n,ñ)
  set %kelime $replace(%kelime,o,ø)
  set %kelime $replace(%kelime,r,®)
  set %kelime $replace(%kelime,s,§)
  set %kelime $replace(%kelime,u,µ)
  set %kelime $replace(%kelime,x,×)
  set %kelime $replace(%kelime,y,¥)
  set %kelime $replace(%kelime,!,¡)
  set %kelime $replace(%kelime,?,¿)
  set %kelime $replace(%kelime,<,«)
  set %kelime $replace(%kelime,>,»)
  set %kelime $replace(%kelime,-,¬)
  set %kelime $replace(%kelime,:,¦)
  set %kelime $replace(%kelime,slm,SeLam)
  set %kelime $replace(%kelime,nbr,naßer¿)
  set %kelime $replace(%kelime,s.a,seLamun aLeyKüm.)
  set %kelime $replace(%kelime,a.s,aLeyKüm SeLam.) 
  set %kelime $replace(%kelime,allah,Allah)
  set %kelime $replace(%kelime,Yazgulu,YazguLu) 
  :bit
  say %kelime
  unset %kelime
  :halt
  halt
  :son
}
#yaziqarisma end
#yaziilkbuyuk on
on 1:INPUT:*: {
  if ( $left($1,1) == / ) { goto son }
  if ($ctrlenter) { goto son }
  if ($active == Status Window) { Echo -a %logo2 11,1Status'a Birşey Yazamazsınız.  | goto halt }
  if ($active == @Bot) { goto halt }
  set %Var3 $1-
  unset %Var1 %Var2
  set %Var1 1 | set %Var2 $upper($mid(%Var3,1,1))
  if ($mid(%Var3,1,1) == $chr(47)) { goto ServerCommand }
  if ($len(%Var3) == 1) { set %Var2 $upper(%Var2) | say %Var2 | halt }
  :Start1
  inc %Var1 1
  if ($mid(%Var3,%Var1,1) != $chr(32)) { set %Var2 %Var2 $+ $mid(%Var3,%Var1,1) | if ($len(%Var3) < %Var1) { goto Start1 } }
  if ($mid(%Var3,%Var1,1) == $chr(32)) { set %Var2 %Var2 $+ $upper($mid(%Var3,%Var1,2)) | inc %Var1 1 | if ($len(%Var3) < %Var1) { goto Start1 } }
  if ($len(%Var3) != %Var1) { goto Start1 }
  say %Var2
  halt
  :ServerCommand
  :halt
  halt
  :son
}
#yaziilkbuyuk end
#yazirenkli off
on 1:INPUT:*:{
  if ( $left($1,1) == / ) { goto son }
  if ($ctrlenter) { goto son }
  if ($active == Status Window) { Echo -a %logo2 11,1Status'a Birşey Yazamazsınız.  | goto halt }
  if ($active == @Bot) { goto halt }
  unset %ahenk* 
  if ( $chr(47) == $mid($1-,1,1) ) { $1- | unset %ahenk* | halt }
  :ilk
  inc %ahenks
  if ( %ahenks > $len($1-) ) { say %ahenkt | unset %ahenk* | halt }
  %ahenkh = $mid($1-,%ahenks,1)
  %ahenkh = $replace(%ahenkh,$chr(32),$chr(0160))
  %ahenkt = %ahenkt $+  $+ $rand(3,13) $+ %ahenkh
  goto ilk
  :halt
  halt
  :son
}
#yazirenkli end
dialog Yazim {
  title "Yazıtipi"
  size -1 -1 110 220
  radio "Tûrk¢e",1,10 10 90 20
  radio "eLite",2,10 30 90 20
  radio "Ilk Harf Büyük",3,10 50 90 20
  radio "KaLın-İnce",7,10 70 90 20
  radio "Qa®i§ma",5,10 90 90 20
  radio "Rengarenk",6,10 110 90 20
  radio "Normal",19,10 130 90 20
  box "",20,5 0 100 155
  button "TAMAM",21,5 195 100 20,ok
}
on 1:dialog:Yazim:*:*: {
  if ( $devent == init ) {
    if ($group(#yaziturkce).status == on ) { did -c Yazim 1 }
    elseif ($group(#yazielite).status == on ) { did -c Yazim 2 }
    elseif ($group(#yaziilkbuyuk).status == on ) { did -c Yazim 3 }
    elseif ($group(#yazikalinince).status == on ) { did -c Yazim 7 }
    elseif ($group(#yazirenkli).status == on ) { did -c Yazim 6 }
    elseif ($group(#yaziqarisma).status == on ) { did -c Yazim 5 }
    else { did -c Yazim 19 }
  }
  if ( $devent == sclick ) {
    if ( $did == 1 ) { .disable #yazi* | .enable #yaziturkce | echo %logo2 11Yazı Stili "4Tûrk¢e11" Açıldı! }
    if ( $did == 2 ) { .disable #yazi* | .enable #yazielite | echo %logo2 11Yazı Stili "4eLite11" Açıldı! }
    if ( $did == 3 ) { .disable #yazi* | .enable #yaziilkbuyuk | echo %logo2 11Yazı Stili "4İlk Harf Büyük11" Açıldı! }
    if ( $did == 7 ) { .disable #yazi* | .enable #yazikalinince | echo %logo2 11Yazı Stili "4KaLın-İnCe11" Açıldı! }
    if ( $did == 5 ) { .disable #yazi* | .enable #yaziqarisma | echo %logo2 11Yazı Stili "4Qa®i§ma11" Açıldı! }
    if ( $did == 6 ) { .disable #yazi* | .enable #yazirenkli | echo %logo2 11Yazı Stili "4R8e7n14G0a12r9e6N3k11" Açıldı! }
    if ( $did == 19) { .disable #yazi* }
  }
}
alias Yazim { dialog -m Yazim Yazim }
alias acolor { dialog -m acolor acolor }
dialog acolor {
  title "Renkli yazı"
  size -1 -1 169 109
  box "Renk", 1, 6 5 80 69
  text "Renkno:", 2, 16 27 22 13
  edit "", 3, 51 20 25 22, center multi return
  text "Arka:", 4, 16 50 29 13
  edit "", 5, 51 43 25 22, center multi return
  box "Diğer", 6, 84 5 79 69
  check "Kalın", 7, 94 27 43 13
  check "Çizgili", 8, 94 49 61 13
  button "Önizleme", 9, 21 82 55 20
  button "Tamam", 10, 93 82 55 20, ok
  box "", 11, -1 -6 171 116
}
on *:dialog:acolor:*:*: {
  if $devent = init {
    did -a $dname 3 %ac.text
    did -a $dname 5 %ac.back
    if (%ac.bold == on) { did -c $dname 7 }
    if (%ac.underline == on) { did -c $dname 8 }
  }
  if $devent = edit {
    if $did = 3 { set %ac.text $did(3).text }
    if $did = 5 { set %ac.back $did(5).text }
  }
  if $devent = sclick {
    if $did = 7 {
      if ($did(7).state = 1) { set %ac.bold on | set %ac.bold2  }
      if ($did(7).state = 0) { set %ac.bold off | set %ac.bold2 }
    }
    if $did = 8 {
      if ($did(8).state = 1) { set %ac.underline on | set %ac.underline2  }
      if ($did(8).state = 0) { set %ac.underline off | set %ac.underline2 }
    }
    if $did = 9 { echo -a  $+ %ac.text $+ , $+ %ac.back $+ %ac.bold2 $+ %ac.underline2 $+ Yazdığınız böyle görünecek.! }
  }
}
#acolor off
on *:input:*:if (/* !iswm $1) && (*: !iswm $1) { say  $+ %ac.text $+ , $+ %ac.back $+ %ac.bold2 $+ %ac.underline2 $+ $1- | halt }
#acolor end

StanteaR 15 Mart 2011 15:05
Cevap: İlk Harf Buyuk Yazı Stili
 
Yok Dedıgım Bu DegıL Neyse Eski Şekil İdare Edecez Artık.

Difuzyon 16 Mart 2011 21:37
Cevap: İlk Harf Buyuk Yazı Stili
 
Kod:
on *:input:#:{
  if $left($1,1) != / {
    msg $chan 06  $+ $regsubex($1-,/(\S+)/gi,$iif(\1 ison #,$+(,\1,),$+($upper($left(\1,1)),$mid(\1,2-))))
    halt
  }
}

XqL 22 Eylül 2011 12:28
Cevap: İlk Harf Buyuk Yazı Stili
 
Alıntı:
Difuzyon Nickli Üyeden Alıntı (Mesaj 1040702671)
Kod:
on *:input:#:{
  if $left($1,1) != / {
    msg $chan 06  $+ $regsubex($1-,/(\S+)/gi,$iif(\1 ison #,$+(,\1,),$+($upper($left(\1,1)),$mid(\1,2-))))
    halt
  }
}


Peki bunun Rengi Siyah, ince değilde Kalın Olarak ayarlanabilir mi Rica etsem . Yani Nickin altı cizili , Kelimelerin Baş Harfleri büyük Fakat siyah ve Kalın sekilde yazsın ?

TİGeR 22 Eylül 2011 15:58
Cevap: İlk Harf Buyuk Yazı Stili
 
Su satırı msg $chan 06 $+ $regsubex($1-,/(\S+)/gi,$iif(\1 ison #,$+(,\1,),
Ctrl+r kombinasyonu ile düzenleyebilirsin

Dahimurat 12 Ağustos 2014 19:53
Cevap: İlk Harf Buyuk Yazı Stili
 
Hocam bu aşağıdaki kod her kelimenin ilk harfi büyük ve S L harfleri büyüktür. Hocam bana aynı bu koddan sadece tek farkı bu kodun ince yazanını bulamıyorum yardımcı olmanız mümkünmüdür. tşkler. Şimdiden.

Toprak 12 Ağustos 2014 19:55
Cevap: İlk Harf Buyuk Yazı Stili
 
Alıntı:
Dahimurat Nickli Üyeden Alıntı (Mesaj 1041473177)
Hocam bu aşağıdaki kod her kelimenin ilk harfi büyük ve S L harfleri büyüktür. Hocam bana aynı bu koddan sadece tek farkı bu kodun ince yazanını bulamıyorum yardımcı olmanız mümkünmüdür. tşkler. Şimdiden.
Kod'u verirsen yardımcı oluruz.

Dahimurat 12 Ağustos 2014 20:02
Cevap: İlk Harf Buyuk Yazı Stili
 
Hocam her kelimenin ilk harfi ve S L harfleri büyük olmak kaydıyla ancak ince yazı şeklinde yazan bir kod arıyordum yardımcı olabilirmisiniz. tşkler.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 20:32 -->-> Daha önceki mesaj 20:29 --

#yazıstil on
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 $replace(%Jnk,s,S,l,L,b,ß,B,ß,g,q,?,¿,g,q,ş,$,Ş,$)
halt
}
}
#yazıstil end
menu query,channel {
.Yazı Stil
..Aç:.enable #yazıstil
..Kapa:.disable #yazıstil
}


hocam bu koddur. Burda kalın ben ince yazanını arıyorum tşkler.

Toprak 12 Ağustos 2014 20:02
Cevap: İlk Harf Buyuk Yazı Stili
 
Buyur;

Kod:
#yazıstil off
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 $+($chr(2),$replace(%Jnk,s,S,l,L,b,ß,B,ß,g,q,?,¿,g,q,ş,$,Ş,$))
    halt
  }
}
#yazıstil end
menu query,channel {
  .Yazı Stil
  ..Aç:.enable #yazıstil
  ..Kapa:.disable #yazıstil
}

Dahimurat 12 Ağustos 2014 20:04
Cevap: İlk Harf Buyuk Yazı Stili
 
Burda kalın yazıyor hocam ben ince yazanını istemiştim. tşkler.

aLone 12 Ağustos 2014 20:16
Cevap: İlk Harf Buyuk Yazı Stili
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

örnekteki gibi ince yazıyor..

Dahimurat 12 Ağustos 2014 20:33
Cevap: İlk Harf Buyuk Yazı Stili
 
Hocam Çok sağulun emeğinizi helal edin.

Attaque 10 Mayıs 2020 05:12
Cevap: İlk Harf Buyuk Yazı Stili
 
Alıntı:
Difuzyon Nickli Üyeden Alıntı (Mesaj 1040660548)
e varsa a olsun
tarzı isteklerin karşılığını $replace identifier'iyle elde edebilirsiniz.
Anlayacağınız bir şekilde bir örnek vermem gerekirse:
//echo -a $replace(yemek,e,a)
uyguladığınızda size yanıt yamak olarak dönecektir.

Aşağıdaki kod ilk harfleri büyük yapmakla beraber; s harfini S, l harfinide L olarak değiştirecektir.

Kod:
#yazıstil on
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 $replace(%Jnk,s,S,l,L)
    halt
  }
}
#yazıstil end
menu  query,channel {
  .Yazı Stil
  ..Aç:.enable #yazıstil
  ..Kapa:.disable #yazıstil
}




Merhabalar Bu Kodda Nick deLy'se dely yazıyor . Nicklerin Büyük Küçük Harf'ini Ayırmayıp Hepsini Küçük Yazıyor. Yardımcı Olabilirmisiniz.

Feragat 10 Mayıs 2020 22:30
Cevap: İlk Harf Buyuk Yazı Stili
 
Alıntı:
Attaque Nickli Üyeden Alıntı (Mesaj 1042303675)
Merhabalar Bu Kodda Nick deLy'se dely yazıyor . Nicklerin Büyük Küçük Harf'ini Ayırmayıp Hepsini Küçük Yazıyor. Yardımcı Olabilirmisiniz.
Geçmişte bu işler döngülerle yapılıyordu. Şimdi pratik yanları keşfedildi tabi.

Kod'un çıktısı alttaki şekildedir.

Kod:
[22:23] <raptor> DeLy
[22:25] <raptor> Raptor
[22:25] <raptor> SeLam Naber
[22:25] <raptor> NaSıLSın Nerden NapıyorSun
Ekstra olarak şu bölgede "$replace(%Jnk,s,S,l,L)" küçük s ve l (lüleburgaz) harfini otomatik olarak büyük yazıyor.

Normal şartlarda kelimelerin "ilk" harflerini büyük yapıyor.

Farklı bir input vb ile çakışmadığına emin olmak gerek. (Bir kaç farklı olasılık olma ihtimalide mümkündür.)

kolaylıklar dilerim.

diEfoRyoU 12 Mayıs 2020 00:23
Cevap: İlk Harf Buyuk Yazı Stili
 
Sevgili Feragat hocamın bahsettiği pratik yanlardan biri $regsubex() identifier'ıını kullanarak yazılan metnin ilk harfini büyük yapmak hatta metin de dilediğin harfleri de büyük yapmak için kullanabiliriz.

Örnek; //var %deneme Selam nasılsınız? | echo -a : $regsubex(%deneme,/(^.|a|l|n)/g,$upper(\t))

Alıntı:
Sonuç: : SeLAm NAsıLsıNız?
INPUT eventinde kullanacak olursak;

Kod:
on 1:input:*: { if $regex($1,/^//) || $ctrlenter { return }
say $iif($1 ison $active || $1 == $active,$+($1,$chr(32),$regsubex($2-,/(^.|a|l|n)/g,$upper(\t))),$regsubex($1-,/(^.|a|l|n)/g,$upper(\t))) | halt }
umarım işinize yarar.


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

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