推荐|Python-VBA编程500例-007(入门级)

1、统计字符串中的单词数：

1-1、Python：

1-2、VBA：

个人主页：非风V非雨-CSDN博客

欢迎志同道合者一起交流学习，我的QQ:94509325/微信号

在算法中，统计字符串中单词数(Count Words From A String)具有多种实际意义和应用。常见的有以下几种：

1、文本编辑和校对：在文本编辑软件中，统计单词数可以帮助用户了解文档的规模，或者在校对过程中检测可能的漏词或冗余词。这对于作家、编辑或学生在编写和审查文档时特别有用。

2、搜索引擎优化：在搜索引擎优化(SEO)中，了解网页内容的单词数可以帮助优化者确定内容的密度和关键词的分布，从而提高网页在搜索结果中的排名。

3、数据分析：在数据分析领域，统计字符串中的单词数可以用于文本数据的预处理。例如，在处理大量的文本数据时，可能需要统计每个文本段的单词数，以便进一步进行情感分析、主题建模或文本分类等任务。

4、自然语言处理：在自然语言处理(NLP)中，统计单词数是许多任务的基础步骤，如词性标注、句法分析和机器翻译等。通过统计单词数，可以更好地理解文本的结构和语义。

5、社交媒体监控：在社交媒体监控中，统计单词数可以帮助分析人员了解用户的发言习惯、情绪变化或者话题趋势。这对于品牌监测、危机管理或市场研究等方面非常有用。

总的来说，统计字符串中单词数的算法在实际应用中具有广泛的应用价值，可以帮助人们更好地理解和处理文本数据。

1、统计字符串中的单词数：

1-1、Python：


# 1.问题描述：
# 计算字符串中的单词数，其中一个单词定义为不含空格的连续字符串.
# 2.问题示例：
# 输入“Hello, World”，输出2;输入“Hello, my job is Director of production.”，输出7.
# 3、代码实现:
class Solution:
    # 参数str： 字符串
    # 返回值： 整数
    def countSegments(self, str):
        answer = 0
        for i in range(len(str)):
            # 注意，若不加i == 0这个条件，访问前一个位置时，i-1会越界，且此条件必须放在“或”条件的前面.
            if str[i] != ' ' and (i == 0 or str[i-1] == ' '):
                answer += 1
        return answer
# 主函数
if __name__ == '__main__':
    solution =Solution() # 注意手写字母的大小写
    str = "Hello, my job is Director of production." # 注意，字符串中间的标点符号后面有空格
    print("输入：", str)
    print("输出：", solution.countSegments(str))
# 4.运行结果：
# 输入： Hello, my job is Director of production.
# 输出： 7

1-2、VBA：


Rem 自定义函数，功能：统计字符串中的单词数
Function CountSegments(ByVal str As String) As Integer
    Dim words() As String
    Dim wordCount As Integer
      
    '使用空格作为分隔符来分割字符串
    words = Split(str, " ")
      
    '计算单词数
    wordCount = UBound(words) + 1
      
    '返回单词数
    CountSegments = wordCount
End Function
Rem 执行过程，功能：调用自定义函数CountSegments，并以弹窗形式输出结果
Sub TestRun()
    Dim str As String
    Dim wordCount As Integer
      
    str = "Hello, my job is Director of production."
    wordCount = CountSegments(str)
      
    MsgBox "字符串" & str & "中的单词数为： " & Chr(13) & wordCount, vbInformation, "统计单词数" '其中，Chr(13)实现换行
End Sub