08 June 2016

VB 6.0, Split

Split digunakan untuk memisahkan string berdasarkan tanda pemisah yang telah ditentukan. String-string yang dipisahkan, masing-masing disimpan dalam suatu elemen array, banyaknya elemen array yang dihasilkan tergantung berapa banyak string yang dipisahkan. Contoh penggunaan split
Dim arrTmp() As String
Dim i As Integer

Private Sub Command1_Click()
    Label1.Caption = ""

    arrTmp = Split(Text1.Text, ";") 'Tanda titik koma digunakan sebagai tanda untuk memisahkan string

    For i = LBound(arrTmp) To UBound(arrTmp)
        Label1.Caption = Label1.Caption & "" & arrTmp(i) & vbCrLf
    Next i
    
End Sub

No comments:

Post a Comment

Pengumuman