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：2013年5月20日 DATA_STOP：22/05/2013 TIME_STOP：21.00.00.00 DATA_NUMBER：0000000054

并将其移到另一个文本中：

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()

在txt文件中查找字符串并将其移动到另一个txt中

1 个答案: