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

返信する


答えを正確に入力してください。答えられるかどうかでスパムボットか否かを判定します。
BBCode: ON
[img]: ON
[url]: ON
スマイリー: OFF
トピックのレビュー
   

展開ビュー トピックのレビュー: 前と似たようなエラー(If文が複数…)

by Uhsp » 2005年12月19日(月) 17:44

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

by Uhsp » 2005年12月19日(月) 17:33

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

コード: 全て選択


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文が複数…)

by Mario2 » 2005年12月19日(月) 16:40

[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)

ページトップ