IsHex function

[RepCad]

Hi all, I have a function to check if a string is hex or not in vba, can someone change or rewrite the function in autolisp?

 

Public Function IsHex(strInput As String) As Boolean
  Dim i As Long
  
  IsHex = False
  
  If Len(strInput) = 0 Then Exit Function
  
  For i = 1 To Len(strInput)
    If Not (Mid$(strInput, i, 1) Like "[0-9a-hA-H]") Then Exit Function
  Next
  
  IsHex = True
End Function

 

[Roy_043]

(defun is-hex-p (str)
  (wcmatch str "~*[~0-9a-fA-F]*")
)

 

Edited June 22, 2020 by Roy_043
Fixed hex range

[Lee Mac]

H is not valid hex...

Edited June 22, 2020 by Lee Mac

[Roy_043]

Neither is G... Thanks. Fixed.

[RepCad]

Thank you both.