IRCALEM.Com Genel Forum, IRC Forumu IF - mIRC Scripting mIRC Scripting Hazır Kodlar mIRC Parça Kodlar Text -> Ascii Dönüşümü
Text -> Ascii Dönüşümü
Aytac
Text -> Ascii Dönüşümü
0
182
  • 0 Oy - 0 Ortalama
  • 1
  • 2
  • 3
  • 4
  • 5

[-]
Etiketler
gt text ascii dönüşümü

Bu konuyu görüntüleyen kullanıcı(lar):1 Ziyaretçi
Şuan Offine!
Şuan Offine!
Aytac Administrator
********
Proje Sorumlusu

  • Üyelik tarihi    04.02.2020
  • Konum  78 Karabük
  • Konular336
  • Mesajlar343
  • Beğenileri:16 in 12 posts
  • Beğendiği:7
  • Rep puanı 5

  • Para: 40.2₺

İşlevi:
Yazılan metni, ascii karakterlere çevirir. Eğer yazılan metin tek karakter ise $chr(N) şeklinde çevirir, tek karakterden fazla ise $+($chr(N),$chr(N)) kalıbıyla çevirir.

Kullanımı:
/ascii komutuyla başlatabilirsiniz. Üstteki edit kutucuğuna metni yazdığınızda, alttaki edit kutucuğunda metni ascii'ye dönüştürür. Kopyala butonu ile dönüşen metni kopyalayabilirsiniz.

Kod :
alias ascii dialog -m ascii ascii

alias -l dn { return $iif($len($1-) == 1, $left($replace($regsubex($1-,/(.)/g, $+($chr(36),chr,$chr(40),$asc(\1),$chr(41),$chr(32))), $chr(32), $chr(44)),-1), $&
  $iif(!$1, $null, $+($chr(36), $chr(43), $chr(40), $left($replace($regsubex($1-,/(.)/g, $+($chr(36),chr,$chr(40),$asc(\1),$chr(41),$chr(32))), $chr(32), $chr(44)),-1), $chr(41)))) }

alias -l ds { did -ra ascii 2 $dn($1-) }

dialog ascii {
  title "Text - Ascii Dönüşüm"
  size -1 -1 155 77
  option dbu
  edit "", 1, 7 22 141 10, multi autohs
  edit "", 2, 7 45 141 10, multi autohs
  text "Normal Metin", 3, 7 11 40 8
  text "Ascii Metin", 4, 7 35 35 8
  button "Kopyala", 6, 8 59 28 12, flat
  button "Sil", 7, 41 59 28 12, flat
}

on *:dialog:ascii:*:*:{
  if $devent = edit && $did = 1 { ds $did(1).text }
  if $devent = sclick {
    if $did = 7 { did -r $dname 1,2 }
    if $did = 6 { $iif($did(2).text, !clipboard $did(2).text) }
  }
}

Not: Kod geliştirilebilir, çeşitli eklentiler yapılarak daha zengin halede getirilebilir. - Amaç; mIRC Scripting'e renk katması.
Ascii kod tablosu: >>LİNK<< (Bu konuda pek çok kaynak mevcut, faydalandığım kaynakların linklerinlerini paylaşıyorum sadece..) İyi forumlar.
“İnsanların en hayırlısı, insanlara faydalı olandır”. H.Ş.



Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Text to Regex Alias (Kelimeyi Regexe Çevirmek) Aytac 0 307 19.03.2020, 23:53
Son Mesaj: Aytac
  Remote Dosyaları İçinde Text Arama Aytac 0 235 19.03.2020, 23:17
Son Mesaj: Aytac
  8 Octal ve 16 Hexadecimal Dönüşümü Aytac 0 209 19.03.2020, 23:13
Son Mesaj: Aytac

Foruma Git: