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

Sayfa 3 Toplam 3 Sayfadan

Konuya ait 40 Mesajı başka Sayfada göster

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)

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: 01:30.

Sayfa 3 Toplam 3 Sayfadan

Konuya ait 40 Mesajı başka Sayfada göster