refbase.bas

来自「This application i made for handle simpl」· BAS 代码 · 共 54 行

Attribute VB_Name = "mdlRefBase"


Option Explicit


Public Function NumericString(ByVal numStr As String) As Boolean

  Dim i As Integer
  Dim nS As Boolean

  If (EmptyString(numStr)) Then
    nS = False
  Else
    nS = True
  End If

  For i = 1 To Len(Trim(numStr))
    If (Not (IsNumeric(Mid(Trim(numStr), i, 1)))) Then
      nS = False
      Exit For
    End If
  Next i

  NumericString = (nS)

End Function

Public Sub ErrorStringAdd(ByVal exStr As String)

  exString = exString & exStr & vbCrLf

End Sub

Public Function EmptyString(ByVal s As String) As Boolean
On Error GoTo NoString

  Dim es As Boolean
  es = True

  If (Not (Trim(s) = "")) Then
    es = False
  End If

  EmptyString = (es)

Exit Function
NoString:

  EmptyString = (True)

End Function

Public Function IndexString(ByVal idxStr As String, ByVal idx As Integer, Optional ByVal sepStr As String = "