vb怎么把一段線路拆成幾段
比如長沙-常德-貴陽-昆明 這條拆成 長沙-常德常德-貴陽 貴陽-昆明,，因為用的office辦公,，因為是求距離，所以希望返回的線路是這個形式
長沙-常德-貴陽-昆明長沙-常德常德-貴陽貴陽-昆明
按照你給的例子,，只是拆分字符串的話非常簡單,，但我覺得你要拆分的路徑并不是字符串這么簡單吧？如果你的路徑包含更詳細的數(shù)據(jù)請一起提供上來,。
我先給你個拆分字符串的方案：
下面是拆分函數(shù)：
PublicFunctionSplitPath(PathAsString)AsString()
DimV()AsString,LAsLong,UAsLong,IAsLong,Rtn()AsStringV=Split(Path,"-"):L=LBound(V):U=UBound(V)IfU>LThenReDimRtn(LToU-1)ForI=LToU-1Rtn(I)=V(I)&"-"&V(I+1)NextElseRtn=VEndIfSplitPath=Rtn
EndFunction
下面是試驗代碼：
PublicSubaaa()
DimPaths()AsString,LAsLong,UAsLong,IAsLongPaths=SplitPath("長沙-常德-貴陽-昆明")L=LBound(Paths):U=UBound(Paths)ForI=LToUDebug.PrintPaths(I)Next
EndSub
相關(guān)推薦
便查問答是一款實用的網(wǎng)絡(luò)熱門知識問答平臺,，專注于分享你不知道的知識,、經(jīng)驗及生活問題，在這里所有人都能找到答案歡迎網(wǎng)友參與討論,。