輸出文件使用VBScript

Question

從輸入文件（input.txt中）開始，我必須找到一些字符串，並將其在另一個文件TXT（output.txt的）這是input.txt中寫的是空

********************************************************** 
* NAME   : CONTROLLER               
* FUNCTION  : NOTHING IMPORTANT           
* BEGIN DATE  : 31/07/13        
* TIME BEGIN  : 23.39.17.75        
********************************************************** 
* DATA INPUT READ : 000000540        
********************************************************** 

這是代碼：

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("D:\input.txt", ForReading, False) 
Dim objOutputTS 'Text Stream Object 
Set objOutputTS = objFSO.OpenTextFile("D:\output.txt", ForWriting, True) 

Do Until objInputTS.AtEndOfStream 
    Dim strLine 
    strLine = objInputTS.ReadLine() 
    If (Left(strLine, 13) = "BEGIN DATE:") Then objOutputTS.WriteLine(Mid(strLine, 20)) 
    If (Left(strLine, 13) = "TIME BEGIN:") Then objOutputTS.WriteLine(Mid(strLine, 20)) 
    If (Left(strLine, 18) = "DATA INPUT READ:") Then objOutputTS.WriteLine(Mid(strLine, 22))  
Loop 

objOutputTS.Close() 
objInputTS.Close() 

但是在輸出文件中什麼也沒有出現。任何幫助？我想這個輸出esxample

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

Answer 1

線

* BEGIN DATE  : 31/07/13 

不符合條件

If (Left(strLine, 13) = "BEGIN DATE:") 

你有AC * 計數 *的 「*」也是前綴。

拼寫出來：

>> s1 = "* BEGIN DATE  : 31/07/13" 
>> s2 = Left(s, 13) 
>> WScript.Echo """" & s2 & """" 
>> 
"* BEGIN DATE " 
>> c1 = "BEGIN DATE:" 
>> c2 = "* BEGIN DATE " 
>> WScript.Echo 1, CStr(c1 = s2) 
>> WScript.Echo 2, CStr(c2 = s2) 
>> 
1 False 
2 True