Vbscript 写入文件的Vbs然后仅输出该文件中的特定文本

Vbscript 写入文件的Vbs然后仅输出该文件中的特定文本,vbscript,Vbscript,我需要创建一个日志文件test.log,该文件在脚本的每个步骤之后都会写入,并带有时间戳和执行的操作 我还需要创建一个文本文件test_input.txt,它将写入以下行: 玛丽有只小羊 谁住在海底的菠萝里 我养了一只布杜猫 关闭输入文件 打开文本文件进行读取 读每一行,只写与条件语句if/end if确定的海绵行2相关联的行 关闭文本文件 关闭日志你可以试着自己做家庭作业,也许你会从中学到一些东西,这就是家庭作业的目的,不是吗 您还可以尝试找出这段代码正在做什么来满足您的需求,您肯定会从中学到

我需要创建一个日志文件test.log,该文件在脚本的每个步骤之后都会写入,并带有时间戳和执行的操作

我还需要创建一个文本文件test_input.txt,它将写入以下行: 玛丽有只小羊 谁住在海底的菠萝里 我养了一只布杜猫

关闭输入文件 打开文本文件进行读取 读每一行,只写与条件语句if/end if确定的海绵行2相关联的行 关闭文本文件
关闭日志

你可以试着自己做家庭作业,也许你会从中学到一些东西,这就是家庭作业的目的,不是吗

您还可以尝试找出这段代码正在做什么来满足您的需求,您肯定会从中学到一些东西:

Set al = createobject("System.Collections.ArrayList")
for each f in array("Mary had a little lamb", "Who lives in a pineapple under the sea", "I tawt I taw a puddu cat")
    for each l in filter(split(CreateObject("scripting.filesystemobject").OpenTextFile("c:\temp\in.txt", 1).readall, vbNewLine), f)
        if not isEmpty(l) then al.add l
    next
next
CreateObject("scripting.filesystemobject").OpenTextFile("G:\temp\out.txt", 2, true).write join(al.ToArray(), vbNewLine)

好啊就这样做吧。我们将等待。您需要的所有方法都在此MSDN中: