给大家介绍一种方法，如果你还不知道，也许对你很有用哦。VB.NET中有这样一个函数，可以确定一个长字符串中的字数，在执行各种各样的字符串操作的时候是很有用的。

　　Split函数使你能够将长字符串分离为单独的字;但是如果在字与字之间不止一个空格，Split就会返回一个错误的结果。为了防止这种情况发生，你可以在使用Split之前用Replace函数来替换多个空格的出现。列表A给出了一个例子。

　　列表A

　　Private Sub CountWords()

　　Dim strTT As String = "It's a beautiful flower"

　　Dim iCount As Integer

　　Do While (strTT.IndexOf(Space(2)) >= 0)

　　strTT = strTT.Replace(Space(2), Space(1))

　　Loop

　　iCount = Split(strTT, Space(1)).Length

　　MsgBox(iCount.ToString())

　　End Sub

　　上面这个例子中，我们创建了字符串strTT，再将它设置成有多个字符的长字符串。然后，利用Replace函数来把出现的多个空格替换成一个空格。这样做是为了把字符串strText准备就绪，让你能够使用Split函数并提供正确的结果。接着，将strTT输入Split函数，并且得到了包括在字符串strTT中的字数。

　　Private Sub CountWords()

　　Dim strTT As String = "It's a beautiful flower" Dim iCount As Integer

　　Do While (strTT.IndexOf(Space(2)) >= 0) strTT = strTT.Replace(Space(2), Space(1)) Loop

　　iCount = Split(strTT, Space(1)).Length MsgBox(iCount.ToString())

　　End Sub