卐只有兩面的盒子卍

這篇是2005/1/4：

2005/01/04
今天是第二天編寫執行檔製作精靈
不知道為什麼...我就是不太會控制Command.exe,所以乾脆將程式改寫成輸出一個[檔名.bat]之後,再呼叫command來執行它,最後再讓使用者自行決定要保留或刪除(保留的話下次重新編譯不必再開啟此程式,直接點兩下bat檔就可以重新編譯)
終於可以推出測試版了....這也是我第一次開發這種工具,想到別人開發出那麼多的好工具,自己也想來試試看....至少貢獻給其他有心學習的朋友吧?
以下是這次修改過的原始碼(沒貼出的為沒有修改)

Private Sub compile_Click()
On Error GoTo err '發生錯誤跳到err標籤
Dim rbfilename$, rubypath$, sourcepath$ '宣告三個字串變數，分別為檔案名稱、Ruby執行檔位置、原始檔存放的資料夾

If filedir.Text = "" Then MsgBox "請輸入檔案名稱。", , "Ruby執行檔精靈": GoTo err '如果檔案名稱為空白的話，那就跳出警訊方塊
rbfilename = Trim(filedir.Text) '將文字框內的檔案名稱去掉頭尾的空白之後轉成字串型態再存入rbfilename變數
rubypath = dirs.Path & "uby" '將Ruby安裝位置存入rubypath變數
sourcepath = sourcedir.Path '將原始碼位置存入sourcepath變數
Open sourcepath & "" & rbfilename & ".bat" For Output As #1 '用Open陳述式輸出[檔名.bat]批次檔，以便待會執行編譯
Print #1, "cd " & sourcepath '寫入進行切換原始碼所在目錄指令
Print #1, sourcedisk.Drive '寫入跳到原始碼所在目錄指令
Print #1, rubypath & " -r exerbmkexr " & rbfilename & ".rb" '寫入開始進行編譯步驟1：製造exr檔案跟mak檔案指令
If gui(0).Value Then '判斷是否為GUI介面程式
Print #1, rubypath & " " & disk.Drive & "mingwusrlocalinexerb -c gui" & " " & rbfilename & ".exr" '如果是，加入GUI程式編譯參數，以防程式未來執行時跳出命令列視窗
Else
Print #1, rubypath & " " & disk.Drive & "mingwusrlocalinexerb" & " " & rbfilename & ".exr" '如果不是GUI程式，就直接編譯
End If
Close #1 '關閉輸出批次檔
Shell "cmd.exe /c " & sourcepath & "" & rbfilename & ".bat" & vbCrLf '開啟命令列視窗，執行剛剛產生的批次檔進行編譯為執行檔的工作

err:
End Sub

各位喜歡Ruby的朋友們....大家加油^^
也希望大家喜歡此程式....