طرزکار دستور Split

[Hossein Bazyan]

سلام
کد زیر را اجرا کن متوجه خواهی شد.

    Dim s As String

    Dim I As Byte

    s = "Chilkat Software, Inc. : A Software Components Company."

    

    Dim words() As String

    

    ' Split the string at the space characters.

    words() = Split(s)

    For I = LBound(words) To UBound(words)

        Print words(I)

    Next