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 Parça Kodlar (https://www.ircforumlari.net/mirc-parca-kodlar/)
-   -   /* Yazı Tipi - Noktalama işaretleri ve Fazlası */ (https://www.ircforumlari.net/mirc-parca-kodlar/401248-yazi-tipi-noktalama-isaretleri-ve-fazlasi.html)

Narsinha 09 Aralık 2011 15:26

Cevap: /* Yazı Tipi - Noktalama işaretleri ve Fazlası */
 
Kod:

on *:INPUT:*: {
  if ($left($1,1) == / ) || ($ctrlenter) { return }
  if ($active == Status Window) { echo -a 4 Statusa Birşey Yazamazsınız. | return }
  say $regsubex($regsubex($1-,/(^| )(.)/g,\1 $upper(\2)),/([[:punct:]])/g,4\1))
  halt
}

sonuç

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

WingmaN 09 Aralık 2011 19:24

Cevap: /* Yazı Tipi - Noktalama işaretleri ve Fazlası */
 
Alıntı:

[[:punct:]] regex'te noktalama işaretleri ile eşleşir.Bunu kullanarakta noktlama işaretlerini renklendirebilirsin.While loop kullanarak mirci yormana gerek yok bu kod için.
Aferin, regex'i öğrenmişsin. Bu bilgilerini yardım istediğin kişileri rencide etmeye çalışarak kullanmasan daha iyi olur. Ayrıca, bir while mIRC'i yormaz, CPU üzerinden işleme alır ki, değil bir loop, 10 loop aynı anda açsan, yine de senin farkedemeyeceğin bir şekilde etkileşime sokar ki, senin bunu kalkıp da benim bilmediğim birşeyi, bana göstermeye çalışmak gibi birşey olmuş bu ki, gördüğün gibi kodlamanın başında can sıkıntısı ve konuya örnek amacıyla açılmış bir post bulunmakta.

Amacın eğer farklıysa, bunu farklı dillerle anlat, farklı şekillerde çözelim, böyle saçma sapan gereksiz " Taş'lama " post'larıyla dikkat çekmeye çalışmana gerek yok sanırım.

W

Narsinha 09 Aralık 2011 22:24

Cevap: /* Yazı Tipi - Noktalama işaretleri ve Fazlası */
 
Eleştiriyi kaldıramıyorsun Wingman.Dikkat çekmek v.s konusuna gelince ölü balığı kim canlandırmışta ben canlandıracam.Neyse arkadaşım süper kod yazmışsın aynen böyle devam et.

tam1deLi 22 Aralık 2011 18:43

Cevap: /* Yazı Tipi - Noktalama işaretleri ve Fazlası */
 
Parantez istemiyorum bu kod icin nasıl olucak, yani ncikleri parantez icinde yazmasın normal yazssın

Kod:

on *:input:*:{
  if (!$regex($left($1,1),/^!|[./]|/|/i/)) {
    var %wn $numtok($1-,32)
    while (%wn > 0) {
      if ($gettok($1-,%wn,32) ison #) { set %wm $+($chr(40) $+ $chr(32),,$yr,$gettok($1-,%wn,32),,,$chr(32) $+ $chr(41)) %wm } | else { set %wm $gettok($1-,%wn,32) %wm } | if (%wn == 1) { say $wn(%wm) | unset %wm | halt } | dec %wn
    }
  }
}
alias wn return $replace($+($regsubex($regsubex($1-,/([.,;,!,+,*,?,{,},=,-,:,',^,%,&,/,_,~,`,"])/g,$+(,$yr,\t,,$chr(15))),/([A-Z])/g,\t),),$chan,$+(<,,$yr,,$chan,,,>))
alias yr return $r(2,6)


WingmaN 23 Aralık 2011 00:09

Cevap: /* Yazı Tipi - Noktalama işaretleri ve Fazlası */
 
------
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Kod:

on *:input:*:{
    if (!$regex($left($1,1),/^!|[./]|/|/i/)) {
      say $wn($1-) | halt
      }
}
alias wn return $replace($+($regsubex($regsubex($1-,/([.,;,!,+,*,?,{,},=,-,:,',^,%,&,/,_,~,`,"])/g,$+(,$yr,\t,,$chr(15))),/([A-Z])/g,\t),),$chan,$+(<,,$yr,,$chan,,,>))
alias yr return 4


Narsinha 23 Aralık 2011 02:18

Cevap: /* Yazı Tipi - Noktalama işaretleri ve Fazlası */
 
Alıntı:

WingmaN Nickli Üyeden Alıntı (Mesaj 1040971223)
Daha orada ki " while " 'ın hangi amaçla kullanıldığına bile dikkat etmeden, bana kalkıp saçma sapan post atarsan, bende sana gerekli açıklamayı elbette yaparım @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] .

------
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Kod:

on *:input:*:{
    if (!$regex($left($1,1),/^!|[./]|/|/i/)) {
      say $wm($1-) | halt
      }
}
alias wn return $replace($+($regsubex($regsubex($1-,/([.,;,!,+,*,?,{,},=,-,:,',^,%,&,/,_,~,`,"])/g,$+(,$yr,\t,,$chr(15))),/([A-Z])/g,\t),),$chan,$+(<,,$yr,,$chan,,,>))
alias yr return 4


Bu kod bence hantalca hala yorumu mu merak ediyorsan:)

tam1deLi 26 Aralık 2011 14:29

Cevap: /* Yazı Tipi - Noktalama işaretleri ve Fazlası */
 
* /say: insufficient parameters (line 3, 2.txt)

böyle bir hata alıyorum

Set 26 Aralık 2011 16:16

Cevap: /* Yazı Tipi - Noktalama işaretleri ve Fazlası */
 
Kod:


on *:input:*:{
  if (!$regex($left($1,1),/^!|[./]|/|/i/)) {
    var %wn $numtok($1-,32)
    while (%wn > 0) {
      if ($gettok($1-,%wn,32) ison #) { set %wm  $+(,$yr,$gettok($1-,%wn,32),) %wm } | else { set %wm $gettok($1-,%wn,32) %wm } | if (%wn == 1) { say $wn(%wm) | unset %wm | halt } | dec %wn
    }
  }
}
alias wn return $replace($+($regsubex($regsubex($1-,/([.,;,!,+,*,?,{,},=,-,:,',^,%,&,/,_,~,`,"])/g,$+(,$yr,\t,,$chr(15))),/([A-Z])/g,\t),),$chan,$+(<,,$yr,,$chan,,,>))
alias yr return $r(2,6)

parantez'lerin kaldırılması isteniliyor galiba, codda tam1deLi arkadasımız bu WingmaN arkadasımızın parantezsiz codu.

WingmaN 26 Aralık 2011 18:10

Cevap: /* Yazı Tipi - Noktalama işaretleri ve Fazlası */
 
Yok hayır, " $wn " yazıcağım yerde, " $wm " yazmışım, düzelttim yukarda, ordan alabilirsin @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

BorTeCineOguzhan 05 Ocak 2012 19:18

Cevap: /* Yazı Tipi - Noktalama işaretleri ve Fazlası */
 
Merhaba Arkadaslar öncelikle Saçma Bir Soru ise Hor görmeyin bu işlerden pek anlamam :)
Benım Sorum su parantez içinde yazmak yerine başka semboller kullanabilirmiyim örnegin Hasan nickini | Hasan |olarak yazabilirmiyim bu sadEce bi örnekti Bunu nerden değiştirebilirim Şimdiden Teşekkur ederim


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

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