MENGHITUNG KATA DI DALAM TEXTBOX

Buka project baru Standard Exe, dan tempatkan 1 buah textbox dan 1 buah commandbutton, dan set dengan properti sbb :
TextBox
Name : Text1
Text : (kosongkan)
CommandButton
Name : cmdCount
Caption : &Count
Tekan F7 dan ketikkan kode berikut :
Private Sub cmdCount_Click()
     'Ketikkan beberapa buah kalimat yang cukup panjang
     'sehingga mengandung sampai puluhan bahkan ratusan
     'kata untuk mencoba fungsi menghitung kata di bawah.
     MsgBox GetWordCount(Text1.Text)
End Sub
Public Function GetWordCount(ByVal Text As String) As Long
'Definisikan sebuah tanda hubung pada setiap akhir
'baris yang merupakan bagian dari seluruh kata,
'jadi kombinasikan bersama.
    Text = Trim(Replace(Text, "-" & vbNewLine, ""))
    'Ganti baris baru dengan sebuah space tunggal
    Text = Trim(Replace(Text, vbNewLine, " "))
    'Ganti spasi yang lebih dari satu (jika ada)
    'menjadi spasi tunggal
    Do While Text Like "*  *"
        Text = Replace(Text, "  ", " ")
    Loop
    'Pisahkan string dan kembalikan kata yang dihitung
    GetWordCount = 1 + UBound(Split(Text, " "))
End Function 
Jalan kan project (tekan F5), dan lihat hasilnya

share this article to: Facebook Twitter Google+ Linkedin Technorati Digg

Posted by Unknown, Published at 08.46 and have 0 komentar