学堂 学堂 学堂公众号手机端

你可以使用一个Dictionary对象来存储每个字符出现的次数,然后遍历字符串中的每个字符并更新对应的计数器

lewis 2年前 (2023-10-19) 阅读数 4 #技术

你可以使用一个Dictionary对象来存储每个字符出现的次数,然后遍历字符串中的每个字符并更新对应的计数器。以下是一个示例代码:

SubCountCharacters() DimstrAsString DimcharCountAsNewDictionary '输入字符串 str="Hello,World!" '遍历字符串中的每个字符 Fori=1ToLen(str) DimcharAsString char=Mid(str,i,1) '如果字符已在字典中存在,则将计数器加1 IfcharCount.Exists(char)Then charCount(char)=charCount(char)+1 Else '否则初始化计数器为1 charCount.Addchar,1 EndIf Nexti '输出每个字符出现的次数 ForEachkeyIncharCount.Keys Debug.Printkey&":"&charCount(key) Nextkey EndSub

这段代码会输出每个字符和它们在字符串中出现的次数。你可以根据自己的需求对结果进行进一步处理。


版权声明

本文仅代表作者观点,不代表博信信息网立场。

热门