新的Compact 與DoPath 以及必要的ThimeString

引入: 自定義

 

在介紹這兩個更新的函式前，我們必須先認識一個合成字串的函式ThimeString(字串, 次數)。她可以用來把一個字串重複多次。

]Function ThimeString(ByVal Origin As Stirng, ByVal Thime As Integer)As String

]ThimeString = Nothing

]For i1 As Integer = 0 To Thime Step 1

]ThimeString &= Origin

]Next

]Return ThimeString

]End Function

 

新的Compact 新增的功能是保留數量。比如說我希望所有的"/" 字元最多存在兩次，那麼可以對參數Thime 代入2，否則預設為1。

]Function Compact(ByVal Origin As String, ByVal Mark As String, Optional ByVal Thime As Integer = 1)As String

]Do Until Not Origin.Contains(ThimeString(Mark, Thime + 1))

]Origin = Replace(Origin, ThimeString(Mark, Thime + 1), ThimeString(Mark, Thime))

]Loop

]Return Origin

]End Function

 

新的DoPath 已經不再侷限於路徑的合成，使用者可以自定連接字元。

]Function DoPath(ByVal Path As String, ByVal File As String, Optional ByVal Mark As String = "\")As String

]Return Compact(Path & Mark & File, Mark)

]End Function