VB脚本TXT

代码+ replcae字，在txt文件发现，与启动行：THIS_LOCATION 并用新的替换OFF_LINEVB脚本TXT

如果InStr函数（strText中， 'THIS_LOCATION'），然后

strNewText =替换（strText中， “OFF_LINE”， “NEW”）

END IF

VB脚本失败就行：

如果InStr（strText，'THIS_LOCATION'）

什么问题？

THX 耶尔

来源

2010-06-16 yael

你需要双引号：

If InStr(strText, "THIS_LOCATION") Then

来源

2010-06-16 19:35:22 Fionnuala

确定其工作但其同时更换所有TXT 我的目标是只替代THIS_LOCATION线什么错？ – yael 2010-06-16 19:43:02

如果您使用我以前的答案中的信息，看起来strText包含所有文本，而不是单行。要从FileSystemObject获取的文本流中读取一行，请使用ReadLine，而不是ReadAll。您可以使用'While Not f.AtEndOfStream'逐行读取，其中f是Textstream对象。 – Fionnuala 2010-06-16 20:12:11

另请参阅：http://msdn.microsoft.com/en-us/library/z9ty6h50(VS.85).aspx – Fionnuala 2010-06-16 20:13:46

回答

相关问题