Cara Memisahkan Kalimat Berdasarkan Sparator (Pemisah) Dengan Kode VB6

Pasti Anda pernah mendaftarkan nama anda di suatu event tertentu dengan cara mengetik SMS berikut REG#NAMA#NO.HP dengan format daftar tersebut yang dikirm via SMS pada dasarnya sistem akan secara otomatis akan memisahkan kata tersebut berdasarkan sparator yang anda input (#) dan data yang dipisahkan tadi akan akan diteruskan kedalam database aplikasi pendaftaran.

Nah pada artikel kali ini Admin akan berbagi kode Cara Memisahkan Kalimat Berdasarkan Sparator (Pemisah) Dengan Kode VB6.

Berikut dibawah ini adalah langkah-langkah pembuatannya :

Masuk ke vb6 Anda dan desainlah form seperti gambar dibawah ini:

Desain Form

Kemudian ketik kode dibawah ini di Command1

Private Sub Command1_Click()

If Text1.Text = "" Or Text2.Text = "" Then

MsgBox "Sparator atau Kalimat belum diisi", vbCritical, "Salah"

Text1.SetFocus

Else

Dim strAnimals As String

Dim iCounter As Integer

Dim arrAnimals() As String

  strAnimals = Text2.Text

  arrAnimals = Split(strAnimals, Text1.Text)

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

      MsgBox arrAnimals(iCounter), vbInformation, "Hasil"

  Next iCounter

  End If

  

End Sub

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

End Sub

Setelah itu jalankan project Anda lalu inputkan sparator # dan pada kalimatnya REG#NAMA#NO.HP

Output

Selanjutnya tekan tombol Split, maka hasil yang di split akan ditampilkan di messagebox

Bagaimana mudah buka cara memisahkannya, cukup sekian artikel hari ini tentang Cara Memisahkan Kalimat Berdasarkan Sparator (Pemisah) Dengan Kode VB6.

Semoga artikel ini bermanfaat buat kita semua.Amin

Selamat mencoba, semoga berhasil

Related Post: Uncategories