Split Karakter Berdasarkan Karakter Tertentu

Function split karakter pada umumnya sudah tidak asing lagi bagi kita semua, tanpa sadari kita pun pernah melakukannya terlebih sekarang sudah marak promosi via SMS dan biasanya di lembaga-lembaga keuangan seperti halnya cek saldo tabungan dengan format CEK#081000585 atau registrasi REG#JOKO#16121980 dengan tujuan nomor handphone tertentu. Jika sms dengan contoh format di kirim ke nomor tujuan tertentu, secara otomatis server sms gateway akan menseleksi dari format sms tersebut benar atau salah, contoh REG#JOKO#16121980 maka akan menjadi

REG

JOKO

16121980

Kali ini admin akan share bagaimana cara mensplit suatu karakter berdasarkan karakter tertentu. Buatlah sebuah form pada Ms. Visual Basic 6.0 lalu tambahkan 2 buah TextBox dan 1 buah CommanButton seperti gambar dibawah ini

Double klik pada commanbutton kemudian copykan syntak dibawah ini

Dim nJumlah As Integer
Dim strKarakter() As String

strKarakter = Split(Text2.Text, Text1.Text)
For nJumlah = LBound(strKarakter) To UBound(strKarakter)
     MsgBox strKarakter(nJumlah) & " -  Split Ke - " & nJumlah, 64, "Split Karakter"
Next nJumlah

Kemudian simpan dan Jalankan/F5, inputkan split karakter (karkater pemisah antar kata) pada textbox yang pertama kemudian textbox yang kedua inputkan kata kemudian dipisahkan dengan split karakter pada textbox yang pertama dan klik commanbutton, jika format penulisannya benar maka akan tampil pesan sejumlah kata yang telah displit seperti gambar dibawah ini

Semoga artikel ini bermanfaat dan bisa sebagai bahan referensi belajar dan pengembangan sistem