查找text文本中指定字符或词所在句子代码,ASP代码库,德仔网

代码语言

代码分类

【ASP】查找text文本中指定字符或词所在句子

作者: / 发布于2016/5/10/ 1371

从上万字的文本文件中筛选出含有某个字的句子并写入单元格中，这是某客户的一个需求，现在分享出来以供参考，代码不规范，请谅解。

'查询字符串方法
Sub search()
 
        Dim Match, N&
        Dim objFSO As FileSystemObject
        Set objFSO = New FileSystemObject
         
        '这个单元格是存取的txt文件路径
        Set txt = objFSO.opentextfile(Sheets(1).Cells(2, "B"), 1, False)
        stri = txt.readall
        txt.Close
        Set txt = Nothing
         
        With CreateObject("vbscript.regexp")
          .Global = True
          .MultiLine = True
           '正则中的单元格是存取的要查找字符
          .Pattern = "[\da-zA-Z\u4e00-\u9f5a]*" + Sheets(1).Cells(4, "B") + "[\da-zA-Z\u4e00-\u9f5a]*"
          For Each Match In .Execute(stri)
            N = N + 1
           '写入到第二个sheet中
            Sheets(2).Cells(N, 1).Value = Match.Value
          Next Match
          
          MsgBox "查找完毕"
        End With
         
End Sub

试试其它关键字

同语言下

可能有用的

贡献的其它代码Label