Mengenal/Menggunakan Fungsi2 String/Character di VBNET

Salah satu hal yang menarik dari VBNET adalah kemudahan dalam mengolah string. Contoh dalam "Replace" string misalnya, untuk anda yang masih terbiasa dengan VB6 mungkin akan menulis seperti ini :

Dim contoh As String 

contoh = "www.dj!e$@ft.bl@g$p@t. c@m"
'Cara 1 (classic)

contoh = Replace(contoh, "!", "i")

contoh = Replace(contoh, "$", "s")

contoh = Replace(contoh, "@", "o")

'atau

contoh = Replace(Replace(Replace(contoh, "!", "i"), "$", "s"), "@", "o").

Nah, jika di VBNET anda dapat menulisnya seperti ini :

contoh = contoh.Replace("!", "i").Replace("$", "s").Replace("@", "o")

Memang hasilnya sama saja, tapi dari segi pengetikan/cara menulis coding itu lebih mudah VBNET. selain itu anda bisa terus tambahkan fungsi lain setelahnya, anda cukup mengetikan titik (.) dan akan muncul pilihan methode/function lainnya (bebas/unlimeted). contoh lain, jika anda ingin mengubah string diatas ("www.dj!e$@ft.bl@g$p@t. c@m") dengan kriteria :

1.Ganti ! dengan i
2.Ganti $ dengan s
3.Ganti @ dengan o
4.Ubah jadi huruf besar (CAPITAL)
5.Hilangkan spasi
6.Tambahkan bintang 3x (***) di depan kalimat
7.Tambahkan bintang 3x (***) di belakang kalimat

Anda dapat melakukannya dalam satu baris perintah saja, seperti ini :

contoh = contoh.Replace("!", "i").Replace("$", "s").Replace("@", "o").ToUpper.Trim().Remove(0, 4).Insert(0, "***").Insert(contoh.Length - 1, "***")

‘Lalu tampilkan message box

MessageBox.Show(contoh, "DJIESOFT", MessageBoxButtons.OK, MessageBoxIcon.Information)

OK, semoga artikel kecil ini bermanfaat

Tags:
trim vbnet, cara replace vbnet, uppercash string, UCash dan LCash di vbnet, management string vbnet