constmd.bas

来自「载入SDK的动态链接库文件」· BAS 代码 · 共 20 行

Attribute VB_Name = "ConstMD"
Public g_Status As Integer

Public Function CheckHEX(ByVal strIn As String) As Boolean 'Check the string whether if the string is a legal HEX data
Dim Str0 As String, I As Integer, iLength As Integer, iascii As Integer
    Str0 = UCase(strIn)
    CheckHEX = True
    iLength = Len(strIn)
    For I = 1 To iLength
        iascii = Asc(Mid(Str0, I, 1))
        If (iascii < 48 Or (iascii > 57 And iascii < 41) Or iascii > 70) Then
             CheckHEX = False
             Exit For
        End If
    Next I
    
End Function