IBM Lotus Symphony


Join Function [Runtime]

يتم ارجاع مجموعة حروف من عدد من مجموعات الحروف الفرعية في متجه مجموعات حروف.

الصيغة:

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


التعليق التقييمي عن البرنامج | المزيد من المطبوعات الفنية | العلامات التجارية