Memisahkan Kalimat Berdasarkan Sparator (Batas) Tertentu VB6

Baca Juga :

Sering kita mendengar pendaftaran via sms pada suatu acara tertentu contoh REG#DAFTAR#JOKO, pada dasarnya pada saat sms (pesan singkat) dikirm via hp dengan format kata tersebut secara otomatis sistem yang menerima akan memisahkan kata tersebut berdasarkan sparator (batas) '#' selanjutnya kata-kata yang telah terpisah akan diteruskan ke database aplikasi pendaftaran tersebut. Pada kesempatan kali ini admin akan berbagi source code ringan untuk memisahkan kata berdasarkan sparator tertentu. Buka Ms. Visual Basic 6.0 selanjutnya buatlah sebuah form dan tambahkan beberapa komponen ke dalam form tersebut seperti gambar di bawah ini : 

1. Komponen TextBox Ubah name menjadi txtSparator
2. Komponen TextBox Ubah name menjadi txtKalimat
3. Komponen CommandButton Ubah name menjadi cmdSplit

Selanjutnya double klik pada CommandButton dan copas coding dibawah ini : 

Dim strAnimals As String

Dim iCounter As Integer

Dim arrAnimals() As String

  strAnimals = txtKalimat.Text

  arrAnimals = Split(strAnimals, txtSparator.Text)

  For iCounter = LBound(arrAnimals) To UBound(arrAnimals)

      MsgBox arrAnimals(iCounter), vbInformation, "Hasil"

  Next iCounter

Setelah itu coba RUN/F5 dan coba inputkan pada bagian txtSparator karakter # dan pada txtKalimat REG#DAFTAR#ANGGOTA seperti gambar di bawah ini

Selanjutnya klik tombol Proses Split, maka akan tampil pesan dari kalimat yang telah displit 

Cukup mudah bukan memisahkan kalimat berdasarkan sparator (batas) tertentu, cukup sekian dan terima kasih atas kunjungannya

Share on Facebook

Share on Twitter

Share on Google+

Share on LinkedIn

Subscribe untuk berlangganan artikel :