Noktalama işaretleri Renkli Olsun.

19 Aralık 2013 • 23:28 OxiGeN Hazır Kodlar

on *:input:*:{
  if (!$regex($left($1,1),/^!|[./]|/|/i/)) {
    var %wn $numtok($1-,32)
    while (%wn &gt; 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-,/([.,;,!,+,*,?,{,},=,-,:,',^,%,&amp;,/,_,~,`,"])/g,$+(,$yr,\t,,$chr(15))),/([A-Z])/g,\t),),$chan,$+(&lt;,,$yr,,$chan,,,&gt;))
alias yr return $r(2,6)

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)

Bir yorum noktalama işareti, remote

Noktalama işaretleri Renkli Olsun.

Bir yorum

Lcia için bir cevap yazın Cevabı iptal et