小编sly*_*lam的帖子

我有一个包含许多文本文件的文件夹（EPA10.txt、EPA55.txt、EPA120.txt...、EPA150.txt）。我有 2 个要在每个文件中搜索的字符串，搜索结果写入文本文件 result.txt。到目前为止，我已经将它用于单个文件。这是工作代码：

if 'LZY_201_335_R10A01' and 'LZY_201_186_R5U01' in open('C:\\Temp\\lamip\\EPA150.txt').read():
    with open("C:\\Temp\\lamip\\result.txt", "w") as f:
        f.write('Current MW in node is EPA150')
else:
    with open("C:\\Temp\\lamip\\result.txt", "w") as f:
        f.write('NOT EPA150')

现在我希望对文件夹中的所有文本文件重复此操作。请帮忙。

我正在使用VB在Excel中填充数据。它们正在A列的1到3000行中填充。

这是一个示例部分：

H'03F8
H'03FD
H'4404
H'0812
... and so on

现在，我要做的是查找所有以H'开头的字符串，并删除工作表中所有出现的字符串。因此结果将是：

03F8
03FD
4404
0812
... and so on

为此，这是我正在使用的代码：

Dim xl = Microsoft.VisualBasic.CreateObject("Excel.Application")
Dim wb = xl.Workbooks.Add()
Dim sheet = wb.ActiveSheet

Private Sub find_replace()
    Dim myRange As Range
    myRange = sheet.Range("A1:A3000")
    For Each row In myRange
        sheet.substitute(myRange, "H'", "")
    Next

End Sub 

但是它在运行时给出错误：MissingMemberExeception未处理。并在其详细信息中显示：找不到类型为“工作表”的公共成员“替代”。

我正在使用VB 2010 Express。请帮忙。