Re: Hex key in Client Access

[Vernon Hamberg <vhamberg@xxxxxxxxx>]

Well, phooey. Attachment delete and I forgot the source text  :-(

BTW, this requires a recent enough version so that macros can use VBScript.
I think any CAE can do it.

One more time, with filling!

LANGUAGE=VBSCRIPT
[PCOMM SCRIPT HEADER]
LANGUAGE = VBSCRIPT
DESCRIPTION=Hex input
[PCOMM SCRIPT SOURCE]

Option Explicit

Dim input_value, hex_value

autECLSession.SetConnectionByName (ThisSessionName)

subHex_

Sub subHex_()
input_value = InputBox("Enter a decimal number between 64 and 254, or a hex
value between x40 and xFE (either uppercase or lowercase")

If input_value = "" Then
     MsgBox ("invalid input")
     Exit Sub

ElseIf (IsNumeric(input_value) Or _
         (Len(Trim(input_value)) = 3 And _
          UCase(Left(input_value, 1)) = "X") And _
          IsNumeric("&H" & Mid(input_value, 2, 2))) Then

     If (UCase(Left(input_value, 1)) = "X") Then
         input_value = "&h" & Mid(input_value, 2, 2)
     End If

     If (input_value >= 64 And input_value <= 254) Then
         hex_value = Hex(input_value)

     Else
         MsgBox ("value '" & input_value & "' out of range")
         Exit Sub
     End If

Else
     MsgBox ("non numeric input '" & input_value & "'")
     Exit Sub
End If

autECLMacro "apl " & Hex(input_value)
End Sub


At 11:05 AM 3/27/02 -0600, you wrote:
>--
>Have you ever missed the HEX key in Client Access.Personal Communications?
>Attached is a macro that gives you that function. I've mapped it to
>Shift-Ctrl-X. You are prompted for the hex value, which you can enter in
>the range 64 - 254, or as hex x40 - xfe, upper or lower.
>
>The macro source follows. You can paste this into a text editor and save
>as, say, Hex.mac in the \Private folder. Be sure to save it as text if you
>use Word or WordPad. Or open up the macro editor in your emulation and
>create a new macro.
>
>I've also submitted this as a tip on Search400.
>
>Vern Hamberg
>
>Would you like to see a challenging little arithmetic puzzle
>that might get you or your kids or grandkids more interested
>in math? Go to <http://cgi.wff-n-proof.com/MSQ-Ind/I-1E.htm>
>
>Sillygism--
>
>Something is better than nothing.
>Nothing is better than a ham sandwich.
>Ergo
>Something is better than a ham sandwich.
>--
>[ Hex.MAC of type application/octet-stream deleted ]
>--
>
>_______________________________________________
>This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
>To post a message email: MIDRANGE-L@midrange.com
>To subscribe, unsubscribe, or change list options,
>visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
>or email: MIDRANGE-L-request@midrange.com
>Before posting, please take a moment to review the archives
>at http://archive.midrange.com/midrange-l.