如何打开HTML文件作为文本文件以使用VBScript读取代码？

Question

我有很多HTML页面，需要在其上更改几行相同的文本。 为了减少在“记事本”中手动打开每个文本并查找文本并将其替换为新文本所花费的时间，我想创建一个脚本来为我执行此操作。

如何打开HTML文件，读取组成页面的代码并查找并替换其中的文本？ 我知道如何打开，读取，查找/替换，编写，关闭文本文件，但是有没有办法使用HTML文件呢？

Answer 1

html文件是文本文件，只需像打开其他任何文本文件一样打开它们即可。

所以代替：

Dim fileReader As New System.IO.StreamReader("c:\file.txt")

做就是了

Dim fileReader As New System.IO.StreamReader("c:\file.html")

通常，编程语言的文本阅读器实际上并不关心文件的扩展名，只要它包含文本即可。

[编辑]

糟糕，对不起，我想我在评论中把vbscript与常规的Visual Basic混在一起了。

在vbscript中，常规方法是使用FileSystemObject，就像Helen建议的那样。

Answer 2

HTML文件是文本文件，因此您可以按照与读取任何其他文本文件相同的方式来读取它们（例如，使用FileSystemObject对象）。

现在，有没有一种方法可以让我的脚本在不知道其名称的情况下打开指定文件夹中的所有.html文件？

您可以枚举Folder.Files集合并检查文件扩展名，如下所示：

Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0

Dim oFSO, oFolder, oFile, oTextStream, strText

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder("C:\MyFolder")

For Each oFile In oFolder.Files
  If LCase(oFSO.GetExtensionName(oFile.Name)) = "html" Then

    Set oTextStream = oFile.OpenAsTextStream(ForReading, TristateUseDefault)
    strText = oTextStream.ReadAll
    oTextStream.Close

    ' Do something with strText '

    Set oTextStream = oFile.OpenAsTextStream(ForWriting, TristateUseDefault)
    oTextStream.Write strText
    oTextStream.Close

  End If
Next