VBScript Readline方法忽略第3個IF語句

Question

我的腳本似乎沒有再次檢查第3個if語句的「secLine」。它應該記住什麼是存儲在 「secLine」 .... hmmmm

這是文字：

PHL DEPARTURES OVER TUSKY PLEASE FILE: 
PHL..DITCH.V312.JIMEE..WAVEY..SHLEP..ACK..DIRECT 

SCRIPT：

If InStr(firLine, "PHL DEPARTURES OVER TUSKY PLEASE") Then 
    secLine = objFile.ReadLine 
If InStr(secLine, "JFK..PUT..BOS..DIRECT") or InStr(secLine, "PHL..DITCH.J225.JFK..PUT..BOS..DIRECT") Then 
    trans507="TUSKY" 
    ind507="1" 

    bunch of code 

If Instr(secLine, "WAVEY..SHLEP..ACK..DIRECT") Then 
    ind507="2" 

    bunch of code 

End If 
End If 
End If 

Answer 1

確保第一IF成功（現在你發佈的數據與文字不匹配）。

請勿使用IF語句的縮寫版本。始終使用

If ... Then 
    ... 
End If 

確保您的壓痕真實地反映了腳本的結構。

在代碼：

If InStr(firLine, "PHL DEPARTURES OVER TUSKY PLEASE") Then 
    secLine = objFile.ReadLine 
    If InStr(secLine, "JFK..PUT..BOS..DIRECT") or InStr(secLine, "PHL..DITCH.J225.JFK..PUT..BOS..DIRECT") Then 
     trans507="TUSKY" 
     ind507="1" 
    End If 
    If Instr(secLine, "WAVEY..SHLEP..ACK..DIRECT") Then 
     ind507="2" 
    End If 
End If