Метод VBScript Readline, игнорирующий 3-й оператор IF

Question

Метод VBScript Readline, игнорирующий 3-й оператор IF

Мой скрипт, похоже, не проверяет снова "secLine" для 3-го оператора if. Следует помнить, что хранится в "secLine".... хмммм

Это текст:

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

СЦЕНАРИЙ:

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

0

vbscript readline

Источник

user3050367 11 янв '14 в 15:55

1 ответ

Решение

Другие вопросы по тегам vbscript readline

user603855 11 янв '14 в 17:22 2014-01-11 17:22 · Accepted Answer · 2014-01-11 17:22

Убедитесь, что первый 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