PasteBIN
תגיות
התחבר
הרשמה
למה מירק?
עמוד ראשי
5678 הודעות
3399 נושאים
4465 רשומים
461 מחוברים כרגע
יוצר: Ocean
גירסא: V0.1
תיאור: מוצא תווים
הפעלה: לשים את הקוד הבא ברימוט, להוריד את התיקייה עצמה עם הקבצים המצורים ולשים בתיקייה של המירק לשים את התיקייה אם הקבצים לא רק את הקבצים ושהקבצים יהיו בתיקייה עצמה!! ללחוץ מקש ימיני על הערוץ ASCII
תמונה:
קוד:
קוד: בחר הכל
dialog ASCII {
title "ASCII Table"
size -1 -1 186 200
option dbu
list 1, 2 2 183 169, size
box "Find Notes", 2, 3 171 181 28
combo 3, 5 181 60 43, size drop
edit "", 4, 69 180 71 12, multi
button "Show", 5, 144 180 37 12, default
}
alias ASCII { dialog $iif(!$dialog(ASCII),-m,-x) ASCII ASCII }
on *:dialog:ASCII:init:*: {
dll dlls\mdx.dll MarkDialog ASCII
dll dlls\mdx.dll SetControlMDX 1 listview report grid nosortheader rowselect flatsb > dlls\views.mdx
dll dlls\mdx.dll SetDialog $dname
.did -i $dname 1 1 headerdims 61 51 80 90 80
.did -i $dname 1 1 headertext ASCII $chr(9) Hex $chr(9) Octal $chr(9) Binary $chr(9) Decimal
did -a $dname 3 Decimal | did -a $dname 3 Hex | did -a $dname 3 Octal | did -a $dname 3 Binary
var %a = 1 | while (%a <= 255) { did -a $dname 1 $chr(%a) $iif(%a != 9,$chr(9)) $base(%a,10,16) $chr(9) $base(%a,10,8) $chr(9) $base(%a,10,2,8) $chr(9) %a | inc %a }
}
on *:dialog:ASCII:sclick:5: {
if ($did($dname,3) != $null) {
if ($did($dname,3) == Decimal) {
var %a = 1 | while (%a <= $len($did($dname,4))) { var %b = $+(%b,$chr(44),$!chr( $+ $asc($mid($did($dname,4),%a,1)) $+ )) | inc %a }
editbox $!+( $+ $remove(%b,$+(9,$chr(44)))) $+ )
clipboard $!+( $+ $remove(%b,$+(9,$chr(44)))) $+ )
}
elseif ($did($dname,3) == Hex) { var %a = 1 | while (%a <= $len($did($dname,4))) { var %b = %b $base($mid($did($dname,4),%a,1),10,16) | inc %a } | editbox $remove(%b,9) }
elseif ($did($dname,3) == Octal) { var %a = 1 | while (%a <= $len($did($dname,4))) { var %b = %b $base($mid($did($dname,4),%a,1),10,8) | inc %a } | editbox $remove(%b,9) }
elseif ($did($dname,3) == Binary) { var %a = 1 | while (%a <= $len($did($dname,4))) { var %b = %b $base($mid($did($dname,4),%a,1),10,2,8) | inc %a } | editbox $remove(%b,9) }
}
else { noop $input(Choose Note!,o,ASCII System) }
}
menu channel,status {
ASCII: ASCII
}
קובץ מצורף:
