□投稿者/ ルドロフ -(2010/04/21(Wed) 01:19:12) [ID:nq7MOiNF]
| 2010/04/28(Wed) 10:17:34 編集(投稿者)
AccessIncludeFile:
Local 調査ナンバー２ 調査２
If Eval("Dir(Data\System\$(IIf((Args(2) = CSV),Csv,Txt))\$(Args(1)).$(IIf((Args(2) = CSV),csv,txt)))") <> "" Then
If Args(3) = 有 Then
AutoTalk システム
0.1;$(IIf((Args(2) = CSV),複式,単式))スイッチ型サブルーチン.「$(IIf((Args(2) = CSV),"$(Args(1))","$(Args(2))"))」を作成しています。.しばらくお待ちください。
Suspend
EndIf
Open "Data\System\$(IIf((Args(2) = CSV),Csv,Txt))\$(Args(1)).$(IIf((Args(2) = CSV),csv,txt))" For 入力 As 内部調査
CreateFolder Data\System\Eve
Do
Wait 0
Incr 調査ナンバー２
LineRead 内部調査 調査２
Switch Args(2)
Case CSV
Array Var 調査２ ","
If 調査ナンバー２ = 1 Then
CopyArray Var 情報値
CreateFolder Data\System\Eve\Csv
Open "Data\System\Eve\Csv\$(情報値[1])詳細情報.eve" For 出力 As 内部調査２
Print 内部調査２ "$(情報値[1])詳細情報:"
Print 内部調査２ "Local 結果"
Print 内部調査２ "Switch Args(1)"
Else
Print 内部調査２ "Case $((調査ナンバー２ - 1))"
Print 内部調査２ " Switch Args(2)"
For 調査ロクスケ = 1 To Count(情報値)
Wait 0
If 調査ロクスケ = 1 Then
Skip
Else
Print 内部調査２ " Case $(情報値[調査ロクスケ])"
Print 内部調査２ " 結果 = $(IIf((Var[調査ロクスケ] <> ""),"$(IIf((Left(Var[調査ロクスケ],6) = Random),"$(Random(Right(Var[調査ロクスケ],(Len(Var[調査ロクスケ]) - 6))))","$(IIf((Left(Var[調査ロクスケ],4) = Eval),"$(Eval("Eval("$(Right(Var[調査ロクスケ],(Len(Var[調査ロクスケ]) - 4)))")"))","$(Var[調査ロクスケ])"))"))",""""))"
EndIf
Next
Print 内部調査２ " EndSw"
EndIf
Case Else
If 調査ナンバー２ = 1 Then
CreateFolder Data\System\Eve\Txt
Open "Data\System\Eve\Txt\$(Args(2))変換情報.eve" For 出力 As 内部調査２
Print 内部調査２ "$(Args(2))変換情報:"
Print 内部調査２ "Local 結果"
Print 内部調査２ "Switch Args(1)"
EndIf
Print 内部調査２ "Case $(調査ナンバー２)"
Print 内部調査２ " 結果 = $(IIf((調査２ <> ""),"$(IIf((Left(調査２,6) = Random),"$(Random(Right(調査２,(Len(調査２) - 6))))","$(IIf((Left(調査２,4) = Eval),"$(Eval("Eval("$(Right(調査２,(Len(調査２) - 4)))")"))","$(調査２)"))"))",""""))"
EndSw
Loop While (EOF(内部調査) = 0)
Print 内部調査２ "EndSw"
Print 内部調査２ "Return 結果"
Close 内部調査
Close 内部調査２
UnSet 内部調査
UnSet 内部調査２
Require "$(IIf((Args(2) = CSV),"Data\System\Eve\Csv\$(情報値[1])詳細情報.eve","Data\System\Eve\Txt\$(Args(2))変換情報.eve"))"
Else
Talk システム
$(IIf((Args(2) = CSV),複式,単式))スイッチ型サブルーチン作成用ファイル;「$(Args(1))」が既定のフォルダにありません。
End
GameClear
EndIf
Return
|
|
新着情報