vb怎么把一段线路拆成几段

更新时间：2018-03-06 19:45:34 145次访问

比如  长沙-常德-贵阳-昆明       这条拆成 长沙-常德  常德-贵阳   贵阳-昆明，因为用的office办公，因为是求距离，所以希望返回的线路是这个形式

 长沙-常德-贵阳-昆明     长沙-常德  常德-贵阳  贵阳-昆明

按照你给的例子，只是拆分字符串的话非常简单，但我觉得你要拆分的路径并不是字符串这么简单吧？如果你的路径包含更详细的数据请一起提供上来。

我先给你个拆分字符串的方案：

下面是拆分函数：

Public Function SplitPath(Path As String) As String()

    Dim V() As String, L As Long, U As Long, I As Long, Rtn() As String
    V = Split(Path, "-"): L = LBound(V): U = UBound(V)
    If U > L Then
        ReDim Rtn(L To U - 1)
        For I = L To U - 1
            Rtn(I) = V(I) & "-" & V(I + 1)
        Next
    Else
        Rtn = V
    End If
    SplitPath = Rtn

End Function

下面是试验代码：

Public Sub aaa()

    Dim Paths() As String, L As Long, U As Long, I As Long
    Paths = SplitPath("长沙-常德-贵阳-昆明")
    L = LBound(Paths): U = UBound(Paths)
    For I = L To U
        Debug.Print Paths(I)
    Next

End Sub