字符串分离到数组.bas

来自「vb开发的公交查询系统」· BAS 代码 · 共 84 行

Attribute VB_Name = "Module2"
Option Explicit

'此模块实现把一传递来的字符串数组mystr()
'（其中mystr(1)类似等于：“,1,23,789,102,--”）
' 进行字符串分离，得到对应的mynum( , )二维数组
'（其中mynum(1,1)="1"；mynum(1,2)="23"mynum(1,3)="789"；--)


Public Mynums(1 To 100, 0 To 30) As String
'必要时要进行数组维数的改动
Public Lnums(1 To 100) As Integer   '表示一行字符串中实际字符段的个数

Public Mynum(0 To 30) As String
Public Lnum As Integer


Public Sub SeparateArray(Mystr() As String, r As Integer)
'r表示字符串数组的长度
Dim i As Integer
Dim k As Integer
Dim m As Integer
Dim partstr As String

'不需要ReDim mystr(1 To r) As String

For m = 1 To r
    k = 0
    partstr = ""
    For i = 1 To Len(Mystr(m))
        If Mid(Mystr(m), i, 1) <> "," Then
           partstr = partstr & Mid(Mystr(m), i, 1)
        Else
           Mynum(m, k) = partstr
           partstr = ""
           k = k + 1
        End If
    Next i
    Lnum(m) = k - 1
    
    If Lnum(m) = -1 Then
        Lnum(m) = 0
    End If
    
Next m

End Sub




Public Sub Separate(Mystr As String)
Dim i As Integer
Dim k As Integer
Dim m As Integer
Dim partstr As String

'初始化
Lnum = 0
For i = 1 To 30
    Mynum(i) = ""
Next i

k = 0
partstr = ""
For i = 1 To Len(Mystr)
    If Mid(Mystr, i, 1) <> "," Then
       partstr = partstr & Mid(Mystr, i, 1)
    Else
       Mynum(k) = partstr
       partstr = ""
       k = k + 1
    End If
Next i
Lnum = k - 1

If Lnum = -1 Then
    Lnum = 0
End If



End Sub