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
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
Subscribe to:
Post Comments (Atom)
-
Bismillahhirrahmannirrahim Assalamualaikum teman-teman :), hari ini saya akan berbagi pengalaman saya ketika melamar kerja di PT. Jasamed...
-
Pagi tanggal 27 November saya merasa sudah sangat putus asa, sudah hampir seminggu saya menunggu email dari PT. Jasamedika(jasmed) mengenai...
-
Assalamualaikum Bismillahhirrahmannirrahim Artikel ini saya dedikasikan untuk para anak muda yang sering melakukan hal-hal aneh, t...

No comments:
Post a Comment