So it's been a while since I posted anything, And this morning I had the idea to make a Binary/Text convertor..
I would like to thank Kin of irc.geekshed.net #ReaperCon for the help in the regex/regsubex
All you have to do is load the code into a Remote file and from then on it's a Right Click menu in either the Channel, Menubar or Status.
The boxes are worded so you know what box does what. I will eventually incorporate a clipboard button into it, but for now, It works.
menu channel,menubar,status {
Binary Convertor:dialog $iif($dialog(Bin_Conv),-v,-m Bin_Conv) Bin_Conv
}
dialog Bin_Conv {
title "Binary Convertor v1.0"
size -1 -1 162 119
option dbu
box "Text:", 1, 2 2 158 50
box "Binary:", 2, 2 53 158 50
button "Convert", 3, 63 105 37 12
edit "", 4, 5 10 152 39, multi
edit "", 5, 5 61 152 39, multi
menu "File", 6
item "Reset", 7, 6
item "Exit", 8, 6, ok
}
on *:DIALOG:Bin_Conv:SCLICK:3: {
if ($did(4) == $null) {
var %multiline $regsubex(multiline,$str(.,$did(5).lines),/(.)/g,$did(5,\n))
var %filterbinary $regsubex(filterbinary,%multiline,/([^01])/g,)
if (!%filterbinary) { noop $input(Please use Binary numbers in the Binary box.,Error!,o) }
else {
did -ra $dname 4 $regsubex(binarytoascii,%filterbinary,/([01]{8})/g,$chr($base(\1,2,10)))
}
}
elseif ($did(5) == $null) {
var %multiline $regsubex(multiline,$str(.,$did(4).lines),/(.)/g,$did(4,\n) $+ $crlf)
did -ra $dname 5 $left($regsubex(asciitobinary,%multiline,/(.)/sg,$binary2ascii(\1)),-8)
}
}
on *:DIALOG:Bin_Conv:MENU:7: {
did -r $dname 4
did -r $dname 5
}
alias -l binary2ascii {
var %bin $base($asc($1),10,2)
return $str(0,$calc( 8 - $len(%bin) )) $+ %bin
}
Thanks @Hawkee I've been busy working lately and haven't had the time or patience to write codes. :) I will attempt to post more when I have more time.
Hope all is well with you, @Hawkee ? :)