|
日時: 2008/09/18 10:38
名前: lightbox
|
http://lightbox.on.coocan.jp/download/flex3_web_build.lzh
SDKの場所
バッチビルド用コマンド
クリップボードコピー用
README
対話ビルド用コマンドライン
拡張子:
<JOB>
<RESOURCE id="commandList">
<![CDATA[
mode con: cols=120
set PATH=$BIN;%PATH%
prompt flex3$G
title Flex アプリケーションのビルド
fcsh
]]>
</RESOURCE>
<OBJECT id="WshShell" progid="WScript.Shell" />
<OBJECT id="Fso" progid="Scripting.FileSystemObject" />
<SCRIPT language=VBScript>
' ***********************************************************
' 処理開始( コマンドラインからビルドする為のスクリプトです )
' ***********************************************************
strPath = WScript.ScriptFullName
Set obj = Fso.GetFile( strPath )
Set obj = obj.ParentFolder
WshShell.CurrentDirectory = obj.Path
Set objHandle = Fso.OpenTextFile( obj.Path & "\__buildPath.txt", 1 )
Do While not objHandle.AtEndOfStream
sPath = objHandle.ReadLine
if Left( sPath, 1 ) <> ";" and sPath <> "" then
Exit Do
end if
Loop
objHandle.Close
aData = Split( GetInline( "commandList" ), vbCrLf )
strCommand = "cmd.exe /k " & aData(0)
For I = 1 to Ubound( aData )
if instr( aData(I), "$BIN" ) > 0 then
aData(I) = Replace( aData(I), "$BIN", sPath )
end if
strCommand = strCommand & "&" & aData(I)
Next
Call WshShell.Run( strCommand, 3 )
' ***********************************************************
' 関数
' ***********************************************************
Function GetInline( strName )
GetInline = RegTrim( getResource( strName ) ) & vbCrLf
End Function
Function RegTrim( strValue )
Dim regEx, str
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Pattern = "^[ \s]+"
str = regEx.Replace( strValue, "" )
regEx.Pattern = "[ \s]+$"
RegTrim = regEx.Replace( str, "" )
End Function
</SCRIPT>
</JOB>
※ コマンドプロンプトの設定に関しては、以下を参照
|