module1.bas

vb网络游戏开发示范程序

Attribute VB_Name = "Module1"
Public nv(9) As String, nv2(9) As String

''将字符串S，以“,”分隔给nv数组
Function CutNv(S As String)

On Error GoTo e

Dim i As Integer
Dim k As Integer

For i = 0 To 9:  nv(i) = "": Next i ''清空nv

k = 0
For i = 1 To Len(S)

If Mid(S, i, 1) <> "," Then nv(k) = nv(k) + Mid(S, i, 1) Else k = k + 1

Next i

Exit Function

e:

Err.Clear

End Function

''将字符串S，以“#”分隔给nv数组
Function CutNv2(S As String)

    Dim i As Integer
    Dim k As Integer

    For i = 0 To 9:  nv2(i) = "": Next i ''清空nv

    k = 0

    For i = 1 To Len(S)

        If Mid(S, i, 1) <> "#" Then nv2(k) = nv2(k) + Mid(S, i, 1) Else k = k + 1

    Next i

End Function

''返回字符串包含几个“#”号
Function CountCode(S As String) As Byte
    
    Dim i As Integer
    
    CountCode = 0
    
    For i = 1 To Len(S)
        
        If Mid(S, i, 1) = "#" Then CountCode = CountCode + 1
    
    Next i
    
End Function