教程(视频,书籍)下载:  ASP.NET AutoCAD 数据库 C# ASP java photoshop 网页设计 delphi 3dmax Flash C++ VB 张孝祥 实例   更多请进入BIBIDU搜索

Word Power!

Need to count the number of words in that jungle of text? Does your count conflict with the MS Word interpretation?

Stop scratching your head - let this copy-and-paste code snippet do all the hard work for you, using the same techniques as Microsoft itself.

Simply pass the GetWordCount function your text and it抣l return the number of letters used. It works by making the assumptions Microsoft Word does - such as that a hyphen at the end of a line signals one hyphenated word, not two separate words to be counted.

Usage

MsgBox GetWordCount(Text1.Text)Code

Public Function GetWordCount(ByVal Text As String) As Long

    注释：Assume a hyphen at the end of a line
    注释：is part of a full-word, so combine together
    Text = Trim(Replace(Text, "-" & vbNewLine, ""))
    
    注释：Replace new lines with a single space
    Text = Trim(Replace(Text, vbNewLine, " "))
    
    注释：Collapse multiple spaces into one single space
    Do While Text Like "*  *"
        Text = Replace(Text, "  ", " ")
    Loop

    注释：Split the string and return counted words
    GetWordCount = 1 + UBound(Split(Text, " "))
    
End FunctionTip by Karl Moore