使用vbscript时输出文件为空

从一个输入文件（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()

但是在输出文件中没有显示任何内容。有什么帮助吗？我想把这个输出作为示例

20/05/2013 22/05/2013 21.00.00.00 00000000 54

该行

* 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

---

那么我该怎么办呢？@David_看一看

WScript.Echo Left（“*开始日期：31/07/13”，13）”的输出，你需要做什么应该变得很明显。对不起，这是我第一次使用vbs：（所以问题是
*
？真的我不知道..什么也没发生！我应该把这个代码放在哪里？问题是
*
的计数对吗？