如何根据文本文件修改日期搜索关键字？

Question

我每天都会生成多个文本文件。

我想从最新修改的文​​本文件中搜索“apple”字符串。 如果找不到字符串，我需要从昨天的文本文件中搜索。 如果还没有找到，我需要从前天的文本文件开始搜索。这个过程一直持续到我找到字符串为止。

举个例子：

今天创建的文本文件名为：08112018.txt
昨天创建的文本文件名为：08102018.txt
前天创建的文本文件名为：08192018.txt

我将首先在 08112018.txt 中搜索“apple”。 如果没有找到，我会在 08102018.txt 中搜索“apple”。 该过程一直持续到找到“apple”为止。

Answer 1

以下是我认为会给你最好的结果：

首先将您的所有文件列出到断开连接的记录集中：

Set fso = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1  

Set list = CreateObject("ADOR.Recordset")
list.Fields.Append "name", 200, 255
list.Fields.Append "date", 7
list.Open

For Each f In fso.GetFolder("C:\your-folder-location").Files
  list.AddNew
  list("name").Value = f.Path
  list("date").Value = f.DateLastModified
  list.Update
Next

list.MoveFirst

然后您可以按上次修改日期对它们进行排序：

list.Sort = "date DESC"

现在您可以从列表顶部开始，按自己的方式完成。

Dim foundApple

list.MoveFirst
Do Until list.EOF Or foundApple

    Do Until objTextFile.AtEndOfStream
        Set objTextFile = fso.OpenTextFile(list("name"), ForReading)
        strLine = objTextFile.ReadLine()

        If InStr(strLine, "apple") <> 0 then foundApple = True
    Loop

    ' If foundApple = True Then (Do whatever stuff you need)
    list.MoveNext
Loop

list.Close

• 我刚刚把这段代码脑残了。它没有经过测试。 YMMV。