vbscript - 在 txt 文件中查找字符串并将它们移动到另一个 txt 中

Question

嗨，我需要在 vbs 中创建一个脚本来执行此操作：

• 找到 3 个字符串并将它们移动到另一个 txt 文件中。

所以这是例如输入txt：

*************************************
NAME: NOTHING
FUNCTION: NOT IMPORTANT
DATA_START: 20/05/2013
DATA_STOP: 22/05/2013
*************************************
FUNCTION: NOT IMPORTANT
TIME_STOP: 21.00.00.00
*************************************
DATA_NUMBER: 0000000054
*************************************

好吧，这就是文件.. 现在，我必须“获取”这些字符串：

DATA_START：20/05/2013 DATA_STOP：22/05/2013 TIME_STOP：21.00.00.00 DATA_NUMBER：0000000054

并将它们移动到另一个 txt 写作中：

20/05/2013 22/05/2013 21.00.00.00 0000000054

这就是我要的..

我找不到错误

Answer 1

在这里试试这个：

Const ForReading = 1
Const ForWriting = 2
Dim objFSO 'File System Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objInputTS 'Text Stream Object
Set objInputTS = objFSO.OpenTextFile("c:\input.txt", ForReading, False)
Dim objOutputTS 'Text Stream Object
Set objOutputTS = objFSO.OpenTextFile("c:\output.txt", ForWriting, True)

Do Until objInputTS.AtEndOfStream
    Dim strLine
    strLine = objInputTS.ReadLine()
    If (Left(strLine, 11) = "DATA_START:") Then objOutputTS.WriteLine(Mid(strLine, 13))
    If (Left(strLine, 10) = "DATA_STOP:") Then objOutputTS.WriteLine(Mid(strLine, 12))
    If (Left(strLine, 10) = "TIME_STOP:") Then objOutputTS.WriteLine(Mid(strLine, 12))  
    If (Left(strLine, 12) = "DATA_NUMBER:") Then objOutputTS.WriteLine(Mid(strLine, 14))    
Loop

objOutputTS.Close()
objInputTS.Close()