Çözüldü Özel yazı stilinde değişiklik - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

By_ATMACA · 10 Eylül 2012, 14:38

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

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

arslan__ Buyrun

BeReLi · 11 Mayıs 2019, 17:50

By_ATMACA Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

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

arslan__ Buyrun

rakkamlarda sıkıntı oluyor onu nasıl cözeriz acaba ?

Alper · 11 Mayıs 2019, 19:20

Tamer Genc Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

rakkamlarda sıkıntı oluyor onu nasıl cözeriz acaba ?

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

On 1:input:*:{ 
  if !$regex($1,/(\.|!|\/|[0-9])/i) || ($ctrlenter) {
    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) $+(·,%c,·) }
      else {
        if (%a == $numtok($1-,32)) {
          %d = $+($right(%c,..1),,,)
          %f = $right(%d,2)
        }
        %e = $regsubex(%c,/(?=^| )(.)/g,$iif(%c isnum,\1,$+(12,$upper(\1),14)))
        %b = %b $+(%e,%f)
      }
    }
    if (!%b) { %b = $1- }
    else { say %b }
    halt
  }
}

Yazı tipi konusunda pek iyi değilimdir. Baştaki if ($1- == isnum) { goto end } aslında ($1 isnum) { goto end } şeklinde olması gerekiyor orayı değişirsen yine 1. kelime sadece sayı içeren kelime olursa normal yazar ben o kısmı değiştim. Ek olarak koşul ekledim 1. kelime sadece sayı değilde cümle içerisinde sayı geçiyorsa aynı renk tonunda yazması için.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Yazı Stilinde Çok Acil Yardım	tunc74	mIRC Scripting Hazır Kodlar	4	17 Ağustos 2017 00:00
Özel öğretim kurslarında önemli değişiklik	No1	Mevzuat - Genelge - Yönetmelik	0	06 Eylül 2016 11:52
Düz Yazı Türleri - Düz Yazı Çeşitleri Nelerdir -Yazı Çeşitleri Hakkında Bilgi	PySSyCaT	Türkçe	0	28 Ekim 2014 00:36
Yazı Stilinde Hata	tas	mIRC Scripting Sorunları	4	14 Eylül 2012 08:26
Kanal & özeL Barı ve yazı Kısmı Sorunu	A&B	mIRC Scripting Sorunları	3	19 Temmuz 2010 01:08

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.