Sumali sa Function

Ibinabalik ang isang string mula sa isang bilang ng mga substring sa isang string array.

Syntax:


Sumali (SourceArray Bilang Bagay, delimiter Bilang String) Bilang String

Ibinalik na halaga:

String

Mga Parameter:

SourceArray : Isang string array.

delimiter : Isang opsyonal na character na string na ginagamit upang paghiwalayin ang mga substring sa resultang string. Ang default na delimiter ay ang space character. Kung Delimiter ay isang string ng haba zero "", ang mga substrings ay pinagsama nang walang separator.

Halimbawa:


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

Mga function ng string