Mengetahui Jumlah kata dan baris pada Text

Berikut ini adalah cara mengetahui jumlah kata dan baris yang ada pada text. Jumlah kata dan baris biasanya sering kita ketahui di MS Word bukan? Saat ini saya akan berbagi bagaimana cara mengetahui jumlah kata dan baris pada Text (RichTextBox). Langkah-langkahnya sebagai berikut :

Komponen :

1. Tambahkan 2 Label, dan setiap label masing-masing namanya "Label1" dan "Label2"
2. Tambahkan 1 RichTextBox

• Name = RichTextBox1
• Autoverb Menu = True

Masukan Kode berikut di dalam Form :

Private Function GetFileInfo()
Dim a() As String
Dim b() As String
Dim ChrCount As Long
Dim WordCount As Long
Dim I As Long
a() = Split(Me.RichTextBox1.Text, ” “)
WordCount = UBound(a)
For I = 0 To UBound(a)
If a(I) = “” Then
WordCount = WordCount – 1
End If
Next
b() = Split(Me.RichTextBox1.Text, Chr$(10))
WordCount = WordCount + UBound(b)
For I = 0 To UBound(b)
If b(I) = “” Then
WordCount = WordCount – 1
End If
Next
Label1 = “Jumlah Kalimat ” & Format(WordCount + 1, “###,###,###,###”) & ” Suku Kata”
ChrCount = SendMessageLong(Me.RichTextBox1.hWnd, WM_GETTEXTLENGTH, 0, 0)
Label2 = “Jumlah Huruf ” & Format(ChrCount, “###,###,###,###,###”) & ” Kata”
FileInfoError:
End Function

Private Sub RichTextBox1_Change()
GetFileInfo
End Sub