更新！在“脱库门”事件愈演愈烈的现在，我们如何面对？--txt文件内容查找工具

liucqa

经过一晚上努力，在前人的基础上搞出来一个txt内容读取工具，功能：判断字符串在指定目录中的txt文件里面是否存在。
本工具支持子目录查找、是否区分大小写、是否全字匹配、自动复制到记事本等功能。欢迎斧正。

如果哪位高手能让速度更快，本人不胜感激。

程序运行需要引用Microsoft Scripting Runtime库

在txt文件中查找内容v1.21.rar (53.67 KB, 下载次数: 234)

2011-12-27 09:41 上传

点击文件名下载附件

v1.21 修改全字匹配时，不能在当前行继续查找搜索内容的bug



原代码见
http://topic.csdn.net/u/20070627/19/b958a2b1-c1e2-4491-b0b0-0c679b479c3b.html

liuyin029

学习学习.........

goalone1985

VBA程序不错！不过这种功能，还是用程序语言来写，，很容易，速度也快！

人形电脑天使心

Imports System.IO
Imports System.Text
Public Class Text

    Shared Function Read(ByVal Path As String) As String()
        Dim sr As New StreamReader(Path, Encoding.GetEncoding("GB2312"))
        Dim list As New List(Of String), s As String
        Do While Not sr.EndOfStream
            s = sr.ReadLine
            If 判断条件 Then list.Add(s)
        Loop
        sr.Dispose() : sr.Close()
        Return list.ToArray
    End Function

    Shared Sub Write(ByVal Path As String, ByVal s As String)
        Dim sw As New StreamWriter(Path, False, Encoding.GetEncoding("GB2312"))
        sw.Write(s) : sw.Flush() : sw.Close()
    End Sub

End Class

liucqa

liuyin029 发表于 2011-12-27 08:44
学习学习.........

附件更新1.21

liucqa

goalone1985 发表于 2011-12-27 08:55
VBA程序不错！不过这种功能，还是用程序语言来写，，很容易，速度也快！

附件更新1.21

liucqa

人形电脑天使心 发表于 2011-12-27 09:19
Imports System.IO
Imports System.Text
Public Class Text

来个附件吧，看不懂，啥语言的？

lzqlaj

好帖子，收藏了。

liucqa

经测试，3000万行数据，大约要14分钟，可能与doevents有点关系

dzymx

用Excel文件形式去对TXT文本形式实行查找判断，在现实应用中，有时候也用到，但更多的是用其它程序语言，方便得多！