<JOB>
<SCRIPT language=VBScript>
' コマンドプロンプトより起動される為の処理
str = WScript.FullName
str = Right( str, 11 )
str = Ucase( str )
if str <> "CSCRIPT.EXE" then
strMessage = "コマンドプロンプトより cscript " & WScript.ScriptFullName
strMessage = strMessage & " と指定して実行して下さい " & vbCrLf & vbCrLf
strMessage = strMessage & "( この文字列をクリップボードにコピーした場合は"
strMessage = strMessage & "ctrl+c です )"
WScript.Echo strMessage
WScript.Quit
end if
aData = Split( getResource("myText"), vbCrLf )
For I = 0 to Ubound( aData )
if Trim( aData(I) ) <> "" then
Wscript.Echo aData(I)
end if
Next
</SCRIPT>
<RESOURCE id="myText">
コード名称マスタ
商品マスタ
得意先マスタ
社員マスタ
取引データ
</RESOURCE>
</JOB>