Wednesday, 3 September 2014

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
Perhatian: Yuk Baca Artikel bagus di Nurul Musthofa

Artikel Terkait

No comments:

Post a Comment

 

Network

Pesan

Semoga situs ini bermanfaat