- 帖子
- 549
- 主題
- 152
- 精華
- 0
- 積分
- 691
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- OFFICE 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-8-10
- 最後登錄
- 2022-9-7
 
|
回復 20# koshi0413
我沒有很深入的看您細節的程式碼
但目前只有看到兩個地方可以稍微快一點,你可以試試看這個部分
第一:za=RNG(J,I) =>這個部分可以不用,只接把所有的za取代為RNG(J,I)即可=>但這個地方影響不大
第二:您的迴圈之內使用了大量的SPLIT,應該在迴圈開始的時候直接將AR=Split(za, "/")
然後IF AR(0)=1 OR LEN(AR(1))=1 THEN
這樣的話程式就不用每一行都執行一次拆開的動作
以上您試試看 |
|
發表於 2017-1-4 16:52
| 