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

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

1 个答案: