IBM Lotus Symphony
|
يتم ارجاع مجموعة حروف من عدد من مجموعات الحروف الفرعية في متجه مجموعات حروف.
Join (Text As String Array, delimiter)
مجموعة حروف
Text: متجه مجموعة حروف.
delimiter (optional): مجموعة حروف يتم استخدامها لفصل مجموعات الحروف الفرعية في مجموعة الحروف الناتجة. المحدد المفترض هو حرف المسافة. اذا كان المحدد مجموعة حروف ذات طول صفر ""، سيتم ربط المجموعات الفرعية بدون فاصل.
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")
وظيفة الانهاء
Function Join2()
Join2 = Join(a(), ",")
وظيفة الانهاء
Function Join3()
Join3 = Join(a())
وظيفة الانهاء
Function Split1(aStr)
Split1 = Split(aStr, "D")
وظيفة الانهاء
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