Lotus Symphony 1.2


Split 函數 [執行時期]

從字串表示式傳回一個子字串陣列。

語法:

Split (Text As String, delimiter, number)

回覆值:

String

參數:

Text:任意字串表示式。

delimiter (選用):用於分割 Text 的字串字元。空格字元為預設值。

number (選用):要傳回的子字串數目。

範例:

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


其他文件 | 商標