STMIKBG MATARAM

Mungkin judulnya agak aneh.. Misalnya kita punya permasalahan seperti dibawah ini

001 BANK RAKYAT INDONESIA ( BRI )

002 BANK MANDIRI

003 BANK MEGA

004 BANK MANDRA

005 BANK KRUTTT

Dari data diatas kita ingin untuk mengambil kode saja dari list yang ada, misalnya dalam aplikasi jika kita memilih “BANK MEGA” maka program akan menyimpan kode bank nya “003″.

Sederhana tapi terkadang bagi programer pemula seperti saya agak susah untuk membuat algoritmanya. Sekarang kita akan coba untuk menganalisa kodenya.

Analisa :

Dari list “003 BANK MEGA” bisa kita lihat bahwa pemisah antara kode dan nama bank yakni string space ” “, dari keadaan diatas kita bisa membuat program untuk melakukan pengecekan, dan menandai string pemisahnya, jika ketemu berarti proses berhenti.

Bisa anda lihat pada kode yang saya buat berikut :

msgbox Result(CariKodeData(”003 BANK MEGA”))

Public Function CariKodeData(cString As String) As String
Dim cAwal As Byte
Dim lKetemu As Boolean
cKodeData = “”
lKetemu = False
For cAwal = 1 To Len(Trim(cString))
If Mid(Trim(cString), cAwal, 1) <> ” ” Then
If Not lKetemu Then
cKodeData = cKodeData + Mid(Trim(cString), cAwal, 1)
End If
Else
lKetemu = True
End If
Next cAwal
CariKodeData = (Trim(cKodeData))
End Function