vbs脚本统计某几个词出现在txt文件中的次数

weixin_43320520 2020-04-16 09:18:17
使用vbs脚本统计某几个词出现在txt文件中的次数并输出
...全文
2097 3 打赏 收藏 举报
写回复
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
weixin_43320520 2020-07-19
感谢感谢,问题已经解决
  • 打赏
  • 举报
回复
天意可违 2020-06-21
接二楼,正则表达式和字典就可以了。 具体代码如下,比如我查找字符串中连续的3个数字,然后放到一个数组里面,数组的数量就是个数啦。

str ="测试数据其中有123,看能不能找234出这段456话中的连777续3个数字!"

Pattern ="\d{3}"
MsgBox(str)
msg=RegExpGeneral(str,Pattern)



For Each i In msg   
    If IsEmpty(i) Then
        Exit For 
    End If 
    MsgBox i
Next 


Function RegExpGeneral(TextValue,Pattern)
    Dim i
    Set RegExpGen = New RegExp
    With RegExpGen
        .Global = True
        '设置Global适用性
        .IgnoreCase = True
        '设置实例的不灵敏性
        .Pattern = Pattern
        '模式
        Set Matches = .Execute(TextValue)
        '执行搜索正则 即形成了数组对象
    End With
    '定义一个动态数组,来确定其返回的结果长度
    Dim MyArraysLenth
    ReDim MyArraysLenth(Matches.Count)
    For i = 0 To Matches.Count-1
        MyArraysLenth(i) = Matches(i).Value
    Next
    RegExpGeneral = MyArraysLenth
End Function

  • 打赏
  • 举报
回复
milaoshu1020 2020-05-13
用RegExp+Dictionary可解决;
  • 打赏
  • 举报
回复
相关推荐
发帖
vbScript

4004

社区成员

它是一种微软环境下的轻量级的解释型语言,它使用COM组件、WMI、WSH、ADSI访问系统中的元素,对系统进行管理。
社区管理员
  • vbScript社区
加入社区
帖子事件
创建了帖子
2020-04-16 09:18
社区公告
暂无公告