Bruce's cellular automata
2011年8月10日 星期三
easy replace (8/12 update)
清寒版的word字串尋找取代程式終於姍~姍~來~遲~了 ( by □○大師)
特色 1. 可以針對資料夾及其子資料夾的內的word檔進行字串搜尋取代
2. 支援 .doc 及 .docx (也只支援這兩種)
3. 沒有例外處理 XD
4. 沒有壓力測試過 (只有跑過雙位數以下的檔案數)
5. 不保證成功 ^_^
大概解說一下
直接用計畫書產生器中已寫過的尋找取代
wordapp.Selection.HomeKey(Word.WdUnits.wdStory, Word.WdMovementType.wdMove)
Dim find As Word.Find = wordapp.Selection.Find
find.ClearFormatting()
find.Replacement.ClearFormatting()
find.Text = findText
find.Replacement.Text = replaceText
Dim oMissing As Object = System.Reflection.Missing.Value
find.Execute(oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, Word.WdReplace.wdReplaceAll, oMissing, oMissing, oMissing, oMissing)
這裡比較注意的oMissing,這是跟Cerberus花了一點時間找出來的參數下法
然後....程式碼在學校電腦忘了備份到dropbox ...先這樣之後補上
2011年7月15日 星期五
計劃書產生器
計劃書產生器經過期末考還有忙農村再生教育訓練
前前後後也寫了長達兩個多月了
大概紀錄一下過程 幫助隨著年紀逐漸降低的記憶
寫的過程大概三分之一花在了解VB語法
三分之一在研究word如何使用
三分之一在調整文件版面
程式內容其實不值一提 寫的很亂 也沒甚麼技巧
但還是花了我很久的時間在google
物件陣列
ex. button 陣列
Dim btuArray As Button() = New Button(2) {} 需要大量物件就用這方法產生 迴圈控制他的位置、大小等
但是呢也因此鎖定了位置及大小,不會隨著螢幕解析度改變
又遍詢不到參數如何設定的情況下.....只好一個一個用拉的
物件迴圈
ex.
me.controls("button"&i).text = i
這樣拉出來的元件就可以自動縮放 又可用迴圈控制 取得他的值
接下來就是 控制word的方式
訣竅就是 先用2007錄製一下巨集
然後觀察巨集用的函式名稱 去google
之後就開始猜猜看參數怎麼下的遊戲
大致這樣 計畫書產生器就完成了
前前後後也寫了長達兩個多月了
大概紀錄一下過程 幫助隨著年紀逐漸降低的記憶
寫的過程大概三分之一花在了解VB語法
三分之一在研究word如何使用
三分之一在調整文件版面
程式內容其實不值一提 寫的很亂 也沒甚麼技巧
但還是花了我很久的時間在google
物件陣列
ex. button 陣列
Dim btuArray As Button() = New Button(2) {} 需要大量物件就用這方法產生 迴圈控制他的位置、大小等
但是呢也因此鎖定了位置及大小,不會隨著螢幕解析度改變
又遍詢不到參數如何設定的情況下.....只好一個一個用拉的
物件迴圈
ex.
me.controls("button"&i).text = i
這樣拉出來的元件就可以自動縮放 又可用迴圈控制 取得他的值
接下來就是 控制word的方式
訣竅就是 先用2007錄製一下巨集
然後觀察巨集用的函式名稱 去google
之後就開始猜猜看參數怎麼下的遊戲
大致這樣 計畫書產生器就完成了
2011年2月21日 星期一
2011年1月24日 星期一
lp_solve load dll fail
使用環境
OS: win7 64 enterprise
python 2.6.6 (32bit)
netbean 6.9.1
發生問題
老師給的lp_solve 模組 load dll fail
解決方式
1.打給阿蒙
2.至http://lpsolve.sourceforge.net/5.5/
下載 lp_solve_5.5.2.0_dev_win32.zip
& lp_solve_5.5.2.0_Python2.6_exe_win32.zip
3. 解開 lp_solve_5.5.2.0_dev_win32.zip 複製到site-packages
4. 解開 lp_solve_5.5.2.0_Python2.6_exe_win32.zip 安裝 lpsolve55-5.5.0.9.win32-py2.6.exe
5. 刪除老師模組內的.dll & .pyd 避免程式load錯
懸疑的地方
家裡的筆電 win7 home premium 64 沒問題
研究室其他人 win7 enterprice 64 沒問題
結論
感謝學長
OS: win7 64 enterprise
python 2.6.6 (32bit)
netbean 6.9.1
發生問題
老師給的lp_solve 模組 load dll fail
解決方式
1.打給阿蒙
2.至http://lpsolve.sourceforge.net/5.5/
下載 lp_solve_5.5.2.0_dev_win32.zip
& lp_solve_5.5.2.0_Python2.6_exe_win32.zip
3. 解開 lp_solve_5.5.2.0_dev_win32.zip 複製到site-packages
4. 解開 lp_solve_5.5.2.0_Python2.6_exe_win32.zip 安裝 lpsolve55-5.5.0.9.win32-py2.6.exe
5. 刪除老師模組內的.dll & .pyd 避免程式load錯
懸疑的地方
家裡的筆電 win7 home premium 64 沒問題
研究室其他人 win7 enterprice 64 沒問題
結論
感謝學長
2010年12月15日 星期三
一定有什麼可以寫
某個星期一,學長依如往常的坐在我旁邊的位置上,給了我他的blog address 並撂下一句 "一定有什麼可以寫,開個blog" 就這樣 每次想到甚麼發現甚麼,這句就在腦中repeat,有多久沒有像這樣為寫而寫? 我也忘了,也可能從來沒有過
回鍋當個老學生,覺得腦筋很久沒在思考,反應很慢,每周一的""阿蒙生意經分享與討論"""這門課,讓腦袋開始開機運轉,不過我腦袋也是裝WINDOWS,目前還卡在前置載入
還有這名稱,剛剛想blog名稱的時候因為""阿蒙的生意經分享與討論""對腦袋運轉影響蠻多的,所以就參照了一下他sandbox取名的方式。cellular automata 是我大學的專題,不過程式雖然是我寫的但是已經全忘光了,有時候忘光的程度會開始懷疑自己是不是得了狂牛症,我還真的蠻愛吃牛的
期許腦袋跟unicellular差不多的自己能開始演進
寫到這邊一直修修改改覺得很詞窮,突然想到阿華
阿華是我前女友,想到阿華不是因為還有留戀,是因為阿華精於文字、文筆一流
還有阿華結婚了,祝他幸福
回鍋當個老學生,覺得腦筋很久沒在思考,反應很慢,每周一的""阿蒙生意經分享與討論"""這門課,讓腦袋開始開機運轉,不過我腦袋也是裝WINDOWS,目前還卡在前置載入
還有這名稱,剛剛想blog名稱的時候因為""阿蒙的生意經分享與討論""對腦袋運轉影響蠻多的,所以就參照了一下他sandbox取名的方式。cellular automata 是我大學的專題,不過程式雖然是我寫的但是已經全忘光了,有時候忘光的程度會開始懷疑自己是不是得了狂牛症,我還真的蠻愛吃牛的
期許腦袋跟unicellular差不多的自己能開始演進
寫到這邊一直修修改改覺得很詞窮,突然想到阿華
阿華是我前女友,想到阿華不是因為還有留戀,是因為阿華精於文字、文筆一流
還有阿華結婚了,祝他幸福
訂閱:
意見 (Atom)
