Actually, this can be shortened to: Readable: Procedure to = "................" to = to || "................" to = to || "................" to = to || "................" to = to || " ...........<(+|" to = to || "&.........!$*);¬" to = to || "-.........\,%_>?" to = to || "..........:#@'=""" to = to || ".abcdefghi......" to = to || ".jklmnopqr......" to = to || "..stuvwxyz......" to = to || "................" to = to || ".ABCDEFGHI......" to = to || ".JKLMNOPQR......" to = to || "./STUVWXYZ......" to = to || "0123456789......" Return Translate(Arg(1),to)
On Wed, 19 Jan 2011 03:58:32 -0600, Bruce Hewson <[email protected]> wrote: >Miklos, > >I use this function:- > >Readable: Procedure > from = "" > Do i = 0 to 255 > from = from || X2c(D2x(i)) > End > to = "................" > to = to || "................" > to = to || "................" > to = to || "................" > to = to || " ...........<(+|" > to = to || "&.........!$*);¬" > to = to || "-.........\,%_>?" > to = to || "..........:#@'=""" > to = to || ".abcdefghi......" > to = to || ".jklmnopqr......" > to = to || "..stuvwxyz......" > to = to || "................" > to = to || ".ABCDEFGHI......" > to = to || ".JKLMNOPQR......" > to = to || "./STUVWXYZ......" > to = to || "0123456789......" > Return Translate(Arg(1),to,from) > >e.g. Readable(Left(chunk_data,16)) > >of course you can customise the "to" values as you need. > >Regards >Bruce Hewson > >---------------------------------------------------------------------- >For IBM-MAIN subscribe / signoff / archive access instructions, >send email to [email protected] with the message: GET IBM-MAIN INFO >Search the archives at http://bama.ua.edu/archives/ibm-main.html ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
