Cara Menghitung jumlah karater atau kata pada vb6

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
Private Sub Command2_Click()

Text2 = GetWordCount(Text1.Text)
End Sub

0 Komentar:

Posting Komentar