ab.com コミュニティ

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

AB:4.12.01
OS:Win XP Home (SP2)

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

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

　すいません勘違いしました、正しくは最初の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