WordCount －計算string內的字數(不是字元數)

Private Function WordCount(Intext As String) As Integer
Dim I As Integer
Dim TmpStr() As String
Dim T As String
Dim counter As Integer
T = Replace(Intext, vbCrLf, " ")
TmpStr = Split(T, " ")
For I = 0 To UBound(TmpStr)
If TmpStr(I) <> "" Then WordCount = WordCount + 1
Next I
End Function

使用範例：準備Command1，貼上程式碼

Private Sub Command1_Click()
Dim T As String
T = "hello world"
MsgBox WordCount(T) '傳回2
End Sub

上一頁