Lotus Symphony 1.2


Join 函數 [執行時期]

在字串陣列裡,從多個子字串中傳回一個字串。

語法:

Join (Text As String Array, delimiter)

回覆值:

String

參數:

Text:字串陣列。

delimiter (選用):在結果字串中分隔子字串的字串字元。預設區隔字元為空格字元。如果區隔字元是一個零長度字串 "",則子字串將緊密相接,相互間無區隔字元。

範例:

Dim a (3)

Sub main ()

a (0) = "ABCDE"

a (1) = 42

a (2) = "MN"

a (3) = "X Y Z"

JStr = Join1 ()

Call Show (JStr, Split1 (JStr))

JStr = Join2 ()

Call Show (JStr, Split1 (JStr))

JStr = Join3 ()

Call Show (JStr, Split1 (JStr))

End Sub

Function Join1 ()

Join1 = Join (a () , "abc")

End Function

Function Join2 ()

Join2 = Join (a () , ",")

End Function

Function Join3 ()

Join3 = Join (a ())

End Function

Function Split1 (aStr)

Split1 = Split (aStr, "D")

End Function

Sub Show (JoinStr, TheArray)

l = LBound (TheArray)

u = UBound (TheArray)

total$ = "=============================" + Chr$ (13) + JoinStr + Chr$ (13) + Chr$ (13)

For i = l To u

total$ = total$ + TheArray (i) + Str (Len (TheArray (i))) + Chr$ (13)

Next i

MsgBox total$

End Sub


其他文件 | 商標