gaoyunpeng　发表于：2017-06-07 14:23:21 　

想在ACCESS应用中，读取文本文件中的值，就像读取配置文件中的参数值那样。

例如：

文本内容

------------------------------------------------------

信息描述等其他内容

PROGRAM = MAIN.accdb

------------------------------------------------------

读取【PATH = 】后面的值为路径，读取【PROGRAM = 】后面的值为程序名

读取后，分别将值赋值给变量，再使用。

MDZZ 发表于：2017-06-12 13:48:18

从指定的行开始导入文本文件[Access软件网] http://www.accessoft.com/article-show.asp?id=9633

gaoyunpeng 发表于：2017-07-01 12:55:27

你这个问题我也问过，不过没有人回我，可能是我表达的不清楚吧。

最后我找了一些信息，你可以参考一下。不过只能读取一整行的内容，无法读取指定的。

例如：

你在文本中第一行就写成\\192.168.1.1\PROGRAM\

到时就可以读到这行中的值了。

但是你文本中有很多内容，读起来就不方便了，你要读好几行。

不过你可以写循环，读到指定的行，不过一但有人编辑文本内容，导致行记录变更，那么就可能读取不到了。

共享一个事例参考一下

如何：从文件读取文本

https://msdn.microsoft.com/zh-cn/library/db5x7c0d(v=vs.110).aspx

chinasa 发表于：2017-07-02 16:28:36

试试这样可以吗

dim edict
dim 路径
Close #1
路径="C:\ABC.TXT"
Open 路径 For Input As #1

Do While Not EOF(1)
Line Input #1, edict
If Mid(edict, 1, 6) = "PATH =" Then
MsgBox "PATH =" & Mid(edict, 7,len(edict)- 6)
end if

If Mid(edict, 1, 9) = "PROGRAM =" Then
MsgBox "PROGRAM =" & Mid(edict, 10,len(edict)- 9)
end if

loop

Close #1

总记录：3篇页次：1/1 9 1 :