前と似たようなエラー(If文が複数…)

[Mario2]

[IF文内に一行IFが複数あるとExportエラーが・・・]
http://www.discoversoft.net/forum/viewtopic.php?t=434
で、Exportエラーにはならなくなったものの、次は

コード: 全て選択

Sub fFA()
Dim a(3) as string
If a(0) Then
If a(1)="" Then a(1)="2"
If a(2)="" Then a(2)="3"
ElseIf a(3)=".wav" Then

ElseIf a(3)=".ogg" Then

ElseIf a(3)=".wma" Then

End If
End Sub

と同じコードで、同じくa(3)の部分のIF文で

MainWnd.sbp(2297) - 文法が間違っています
MainWnd.sbp(2299) - "ElseIf" の使い方が不正です
MainWnd.sbp(2301) - "ElseIf" の使い方が不正です

となり、正常に直っていないように見えます。
(見つけるのが遅くなった原因は、ずっとコメントアウトしていたためです(^^;;;))

AB:4.12.01
OS:Win XP Home (SP2)

[Uhsp]

素人がレスするのも何ですが、多分下記で良いと思います。

コード: 全て選択

Dim a(3) as string
If a(0) Then
   If a(1)="" Then a(1)="2"
    If a(2)="" Then
       a(2)="3"
       ElseIf a(3)=".wav" Then
       ElseIf a(3)=".ogg" Then
       ElseIf a(3)=".wma" Then
    End If
End If

[Uhsp]

　すいません勘違いしました、正しくは最初のIF～THENで処理される部分を
字下げすると解消されます。

コード: 全て選択

Dim a(3) as string
If a(0) Then
 If a(1)="" Then a(1)="2" 'スペース1個でも化
 If a(2)="" Then a(2)="3" '〃
ElseIf a(3)=".wav" Then
ElseIf a(3)=".ogg" Then
ElseIf a(3)=".wma" Then
End If