上车后能到达的站点（上下行）.bas

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

Attribute VB_Name = "Module6"
Option Explicit

Public UPointTotal As Integer
Public UPoint(1 To 30) As String


'后向站点搜索
Public Sub BackStation(Bus As String, Station As String)
 
Dim str0, str1, partstr As String
Dim i As Integer
Dim PTotal As Integer
Dim P(1 To 30) As String

'初始化
UPointTotal = 0
For i = 1 To 30
    UPoint(i) = ""
Next i


'上行方向可到达的公交站点
str0 = CXBusnumStationnumsStr(Bus, 0)
For i = 1 To Len(str0)
    If Mid(str0, i, Len(Station) + 2) _
                    = "," & Station & "," Then
       partstr = Mid(str0, i + Len(Station) + 1, Len(str0))
    End If
Next i
Call Separate(partstr)
PTotal = Lnum
For i = 1 To PTotal
    UPoint(i) = Mynum(i)
Next i

'下行方向可到达的公交站点
partstr = ""
str1 = CXBusnumStationnumsStr(Bus, 1)
For i = 1 To Len(str1)
    If Mid(str1, i, Len(Station) + 2) _
                    = "," & Station & "," Then
       partstr = Mid(str1, i + Len(Station) + 1, Len(str1))
    End If
Next i
Call Separate(partstr)
UPointTotal = Lnum + PTotal            '前后向可到达的公交站点数相加
For i = 1 To Lnum
    UPoint(i + PTotal) = Mynum(i)
Next i


End Sub



'前向站点搜索
Public Sub FrontStation(Bus As String, Station As String)
 
Dim str0, str1, partstr As String
Dim i As Integer
Dim PTotal As Integer
Dim P(1 To 30) As String

'初始化
UPointTotal = 0
For i = 1 To 30
    UPoint(i) = ""
Next i


'上行方向可到达的公交站点
str0 = CXBusnumStationnumsStr(Bus, 0)
For i = 1 To Len(str0)
    If Mid(str0, i, Len(Station) + 2) _
                    = "," & Station & "," Then
       partstr = Mid(str0, 1, i + 1)
    End If
Next i
Call Separate(partstr)
PTotal = Lnum
For i = 1 To PTotal
    UPoint(i) = Mynum(i)
Next i

'下行方向可到达的公交站点
partstr = ""
str1 = CXBusnumStationnumsStr(Bus, 1)
For i = 1 To Len(str1)
    If Mid(str1, i, Len(Station) + 2) _
                    = "," & Station & "," Then
       partstr = Mid(str1, 1, i + 1)
    End If
Next i
Call Separate(partstr)
UPointTotal = Lnum + PTotal
For i = 1 To Lnum
    UPoint(i + PTotal) = Mynum(i)
Next i


End Sub