如何让 MS Access 以特定时间间隔从 .txt 文件中读取？

Posted 2023-05-07

【中文标题】如何让 MS Access 以特定时间间隔从 .txt 文件中读取？

【英文标题】：How can I get MS Access to read from a .txt file at certain intervals?

【发布时间】：2021-06-12 01:50:22

【问题描述】：

我编写了一个基本的 php 脚本，该脚本从几个 html 表单中收集数据并将其写入文本文档，然后配置 Access 以将此文本文档链接到表格并自动导入。这一切都很好，但问题是 Access 似乎总是在使用这个文件，这意味着我的脚本无法写入它。我怎样才能让 Access 每隔一段时间检查一次文档，看看里面有什么，然后在没有任何重复数据的情况下导入它？

【问题讨论】：

在 Access 中安排活动并不容易，但却是一个相当普遍的话题。你说的“每隔一段时间”是什么意思？我在 TaskScheduler 中安排了一个 VBScript，每天清晨运行并在 Access 中执行一个过程。

【参考方案1】：

两种方式：

Dim strFilename As String: strFilename = "C:\temp\yourfile.txt"
Dim strTextLine As String
Dim iFile As Integer: iFile = FreeFile
Open strFilename For Input As #iFile
Do Until EOF(1)
    Line Input #1, strTextLine
    
Loop
Close #iFile

或者你可以使用下面的代码：

Dim intFile As Integer
Dim strFile As String
Dim strIn as String
Dim strOut As String

  strOut = vbNullString
  intFile = FreeFile()
  strFile = "C:\Folder\MyData.txt"
  Open strFile For Input As #intFile
  Do While Not EOF(intFile)
    Line Input #intFile, sIn
    If Left(strIn, 7) = "KeyWord" Then
      strOut = Mid(strIn, 8)
      booFound = True
      Exit Do
  Loop

  Close #intFile

  If Len(strOut) > 0 Then
    MsgBox "Your Data is " & strOut
  Else    
    MsgBox "Keyword Not Found"
  End If

更多信息。 . .More Info . . .