VBscript + 替换文本中的单词

【问题标题】：VB script + replcae word in txtVBscript + 替换文本中的单词
【发布时间】：2010-06-16 19:21:22
【问题描述】：

代码，在 txt 文件中找到以 : THIS_LOCATION 开头的行并将 OFF_LINE 替换为 NEW

如果 InStr(strText, 'THIS_LOCATION') 那么

strNewText = 替换(strText, "OFF_LINE", "NEW")

如果结束

VB脚本失败就行了：

如果 InStr(strText, 'THIS_LOCATION')

怎么了？

THX 耶尔

【问题讨论】：

标签： vbscript

【解决方案1】：

你需要双引号：

If InStr(strText, "THIS_LOCATION") Then

【讨论】：

OK 它的工作，但它也替换了所有 txt 我的目标是只替换 THIS_LOCATION 行有什么问题？
如果您使用的是我以前的答案中的信息，似乎 strText 包含您的所有文本，而不是单行。要从使用 FileSystemObject 获得的文本流中读取一行，请使用 ReadLine，而不是 ReadAll。您可以使用 While Not f.AtEndOfStream 逐行读取，其中 f 是 Textstream 对象。