fun.txt

一个简单的酒店管理系统 用VB.net+SQL2000实现

Public Function STR_ARRAY(STR As String, S As String, ARRAY_NUM As Integer) As Variant
    Dim j As Integer, WZ As Integer
    If Trim(STR) = "" Then
        ARRAY_NUM = -1
        Exit Function
    End If
    If InStr(1, STR, S) = 0 Then
        ARRAY_NUM = -1
        Exit Function
    End If
    If S = STR Then
        ARRAY_NUM = -1
        Exit Function
    End If
    
    j = 0
    Dim SA() As String
    Do Until Len(STR) = 0
        WZ = InStr(1, STR, S)
        If WZ <> 0 Then
            ReDim Preserve SA(j) As String
            SA(j) = Mid$(STR, 1, WZ - 1)
            j = j + 1
            STR = Mid$(STR, WZ + 1)
        End If
        If STR = S Then
           Exit Do
        End If
    Loop
    ARRAY_NUM = j
    STR_ARRAY = SA
End Function

Public Function INT_ARRAY(STR As String, S As String, ARRAY_NUM As Integer) As Variant
    Dim j As Integer, WZ As Integer
    If Trim(STR) = "" Then
        ARRAY_NUM = -1
        Exit Function
    End If
    If InStr(1, STR, S) = 0 Then
        ARRAY_NUM = -1
        Exit Function
    End If
    If S = STR Then
        ARRAY_NUM = -1
        Exit Function
    End If
    
    j = 0
    Dim SA() As Integer
    Do Until Len(STR) = 0
        WZ = InStr(1, STR, S)
        If WZ <> 0 Then
            ReDim Preserve SA(j) As Integer
            SA(j) = CInt(Mid$(STR, 1, WZ - 1))
            j = j + 1
            STR = Mid$(STR, WZ + 1)
        End If
        If STR = S Then
           Exit Do
        End If
    Loop
    ARRAY_NUM = j
    INT_ARRAY = SA
End Function