使用文件系统对象来读取一行

Question

我有一个文本框，人们插入一个缩写词来搜索它的全部含义。

搜索是在一个txt文件的数据库中完成的。我正在使用文件系统对象来这样做。

当在文本文件中搜索到一个单词时，我需要从下一行返回字符串，也就是含义。看看下面的txt格式：

MS

微软

SO

StackOverflow的

我怎么能这样做？

谢谢！

Answer 1

您对当前的行匹配，从而

if (oFS.ReadLine = search_text) then检查匹配

，然后如果这是真的，那么

Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1) = oFS.ReadLine

跳转到下一行，并在列中保存它A

Set oFS = oFSO.OpenTextFile(filePath) 
Do While Not oFS.AtEndOfStream 
    if (oFS.ReadLine = search_text) then 
     Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1) = oFS.ReadLine 
    end if 
Loop 
oFS.Close