IBM Lotus Symphony
|
Жол жиымындағы ішкі жолдар санынан жолды қайтарады.
Біріктіру (Жол ретіндегі мәтін, жиым, бөлгіш)
Тармақ
Мәтін: жол жиымы.
бөлгіш (қосымша): берілетін жолдағы ішкі жолдарды бөлу үшін пайдаланылатын жол таңбасы. Бос орын таңбасы әдепкі болып табылады. Бөлгіш ұзындыңы нөлге тең жол "" болса, ішкі жолдар бөлгішсіз бөлінеді.
Dim a(3)
Sub басты()
a(0) = "ABCDE"
a(1) = 42
a(2) = "MN"
a(3) = "X Y Z"
JStr = Join1()
Көрсетілімге қоңырау шалу(JStr, Split1(JStr))
JStr = Join2()
Көрсетілімге қоңырау шалу(JStr, Split1(JStr))
JStr = Join3()
Көрсетілімге қоңырау шалу(JStr, Split1(JStr))
аяқталу ішкі элементі
Function Join1()
Join1 = Join(a(), "abc")
Аяқталу функциясы
Function Join2()
Join2 = Join(a(), ",")
Аяқталу функциясы
Function Join3()
Join3 = Join(a())
Аяқталу функциясы
Function Split1(aStr)
Split1 = Split(aStr, "D")
Аяқталу функциясы
Sub көресету (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)
Келесі i
MsgBox total$
Аяқталу ішкі элементі