- ;codé par _NicX_
- menu channel,menubar {
- [Ascii]:dialog -mr ascii ascii
- }
-
- dialog Ascii {
- title "Ascii"
- size -1 -1 132 176
- option dbu
- box "Ascii", 1, 1 2 129 172
- button "Afficher", 3, 78 129 47 12
- list 4, 3 11 71 159, size
- button "Fermer", 5, 78 157 47 12, ok
- button "Copier", 6, 78 143 47 12
- menu "Fichier", 7
- item "enregistrer sous...", 8, 7
- item "Fermer", 9, 7
- }
-
-
-
- on *:dialog:ascii:sclick:3:{ ascii }
-
- on *:dialog:ascii:sclick:6:{ clipboard $did(4).seltext }
-
- on *:dialog:ascii:menu:9:{ dialog -x ascii ascii }
-
- on *:dialog:ascii:menu:8:{ asre }
-
- alias ascii {
-
- var %i = 1
-
- while (%i <= 255) {
-
- did -a ascii 4 alt + %i >> $chr(%i)
-
- inc %i
-
- }
- }
-
- alias asre {
- set %asn $$?="Nom du fichier ?"
- var %i = 1
- while (%i <= 255) {
- write %asn $+ .txt alt + %i >> $chr(%i)
- inc %i
-
- }
- }
;codé par _NicX_
menu channel,menubar {
[Ascii]:dialog -mr ascii ascii
}
dialog Ascii {
title "Ascii"
size -1 -1 132 176
option dbu
box "Ascii", 1, 1 2 129 172
button "Afficher", 3, 78 129 47 12
list 4, 3 11 71 159, size
button "Fermer", 5, 78 157 47 12, ok
button "Copier", 6, 78 143 47 12
menu "Fichier", 7
item "enregistrer sous...", 8, 7
item "Fermer", 9, 7
}
on *:dialog:ascii:sclick:3:{ ascii }
on *:dialog:ascii:sclick:6:{ clipboard $did(4).seltext }
on *:dialog:ascii:menu:9:{ dialog -x ascii ascii }
on *:dialog:ascii:menu:8:{ asre }
alias ascii {
var %i = 1
while (%i <= 255) {
did -a ascii 4 alt + %i >> $chr(%i)
inc %i
}
}
alias asre {
set %asn $$?="Nom du fichier ?"
var %i = 1
while (%i <= 255) {
write %asn $+ .txt alt + %i >> $chr(%i)
inc %i
}
}