2010年8月31日 星期二

JavaScript 下拉式選單,群組依照不同項目名稱區隔顏色

若FORM及SELECT元件均無ID,可用以下CODE
document.forms[0].group.options.length //取得SELECT項目的數量
NowV = document.forms[0].group.options[i].text; //取得現在項目的名稱

//初始化 顏色
//----------------------------------------------------------------------------------------------------------------------
function InitColorAndSetCookies() {
var i = 0;
var lastV = 'test'; //紀錄上一筆項目的名稱,以供下次比對
var nowV = ''; //取得現在項目的名稱
var k = 0; //切換顏色用

for (i = 0; i < document.userForm.group.length; i++) {
//第一個不用處理外,其餘皆要處理
if (i != 0) {
//取得現在項目的名稱
nowV = document.getElementById("unit1").options[i].text;

//比對兩個項目的前三碼是否相同,含[xxxx] '比較長的單位名稱
if (lastV.indexOf("xxxx") == -1) {
if (nowV.substring(0, 3) != lastV.substring(0, 3)) { k = (k + 1) % 2; }
} else {
if (nowV.substring(0, 6) != lastV.substring(0, 6)) { k = (k + 1) % 2; }

}

if (k == 1) {
document.getElementById("unit1").options[i].style.backgroundColor = '#B3DFA7';
document.getElementById("unit1").options[i].style.color = 'black';
} else {
document.getElementById("unit1").options[i].style.backgroundColor = '#FFFF87';
document.getElementById("unit1").options[i].style.color = 'black';
}

//紀錄上一筆項目的名稱,以供下次比對
lastV = document.getElementById("unit1").options[i].text;
}
}
}







<表單 name="'userForm'" method="post" action="">
<下拉式選單 name=group id= unit1 >

2010年8月27日 星期五

Clonezilla Live 、Ghost15、True Image等還原功能 EASEUS Partition

到網頁下載ISO燒錄成光碟

注意不管是saveparts或restoreparts
都是先選擇備份檔在的磁碟機(來源)
最後才是選要還原的地磁碟機(目的)

備份速度還蠻快的,但經過測試後,好像原始的來源不要超過16GB會比較好,Img存的大小約10GB左右

Ghost 15 感覺上系統很大,且備份及還原速度普普
由其是救援光牒的載入速度更是慢

True Image 備份速度不錯
且救援光牒的載入速度也不賴,排第二名。

EASEUS Partition Master v6.1.1 硬碟分割、管理、格式化工具!
也不錯用。

2010年8月26日 星期四

XP換主機板不用重灌之心得(失敗)

將舊的硬碟系統轉移到新的硬碟上

前置作業
1.裝置管理員,將[電腦] 更新驅動程式為 [標準PC]
參考
"標準PC"<--任何電腦都適用(不支援ATX電源自動關閉) "Advanced Configuration and Power Interface (ACPI) PC"<--P2及P3等級以上電腦適用 "ACPI Multiprocessor PC"<--P4等級以上電腦適用 2.將正版光碟上的Driver.cab解壓縮四個檔案,複製到路徑為C:\WINDOWS\system32\drivers\
(atapi.sys intelide.sys pciide.sys pciidex.sys)
沒有的話,請放入XP光碟 找I386資料夾裡面的driver.cab解開


3.然後把登錄檔 MERGEIDE.REG 匯入,再換主機板,重開機就會自動更新搜尋新的硬體
4.若需要做系統備份為映像檔,請先不用重新開機。

5.若仍無法開機,可先用ERD 2005將系統管理員的密碼去除,再用正版XP開機,使用R主控修復臺,協助處理。

6.

http://support.microsoft.com/kb/824125/zh-tw

取代失敗的主機板


Windows XP:
  1. 如果您正在提示 若要設定 Windows 現在,按 ENTER 鍵,按下 ENTER 鍵。

    安裝程式會尋找任何先前安裝的硬碟上的 Windows XP,,然後顯示它找到任何先前安裝的清單。
  2. 使用方向鍵來選取您想要修復,在安裝,然後按下 R 以選取 [修復選取的 Windows 安裝,請按 R] 選項。

    這會啟動先前的 Windows XP 安裝修復。

以上問題,尚未成功解決。

注意 改成 標準PC,要注意改的回來否。

另外,移植後,據說要等30-40分鐘,但沒有時間這麼嘗試

建議可以使用 Acroins True Image (With Universal Restore) 可以做到異機還原

2010年8月25日 星期三

Windows 7 磁碟分割(C,再多分D或E)

Windows 7

  1. 在桌面上[我的電腦]右鍵按下[管理]
  2. 找[存放裝置]->[磁碟管理]
  3. 對某個磁碟區,按下右鍵[壓縮磁碟區]。例如C。Windows 7 好像會保留一個系統磁碟 (隱藏)?
  4. 看要對可用的空間,選擇多少成立新空間。
  5. 會產生一個未配置區。格式化後即可使用。
資料參考來源
http://7club.ithome.com.tw/question/10005353

2010年8月18日 星期三

電腦採購 各款CPU效能評比

http://www.anandtech.com/bench/CPU/25

裡頭可將多款CPU與多項軟體評測結果列出,值得參考

還有另外一個網站 cpu bench
http://7club.ithome.com.tw/question/10010526

http://www.tomshardware.com/charts/2009-desktop-cpu-charts-update-1/Adobe-Photoshop-CS-4,1387.html

2010年8月6日 星期五

WORD VBA 表格合併時,如何對欄位取值


利用VBA迴圈取座標值時,若表格TABLE有合併的情形,取值時要注意使用 on error resume next,以避免錯誤。

而表A,取出的座標值結果,會如圖B。

Word VBA 取得文件內所有的表格,其欄位值分析

Sub tbl()

On Error Resume Next '忽略錯誤

Dim tblcnt As Integer
Dim R As Integer
Dim C As Integer
Dim i As Integer
Dim j As Integer

Dim tbs As Integer
tblcnt = Application.ActiveDocument.Tables.Count


'Debug.Print "tabel有 " & tblcnt & " 個 "
'Debug.Print "tabel一 R 有 " & R & " 個 C 有 " & C & " 個"

Dim S As String
Dim DataS As String

For tbs = 1 To tblcnt
Debug.Print "表格 " & tbs
Debug.Print "-------------------------------------------------------------------------------"

R = Application.ActiveDocument.Tables(tbs).Rows.Count
C = Application.ActiveDocument.Tables(tbs).Columns.Count

For i = 1 To R

DataS = " | "
For j = 1 To C
'Debug.Print Application.ActiveDocument.Tables(1).Cell(i, j).Range.Text
'S = Replace(Application.ActiveDocument.Tables(tbs).Cell(i, j).Range.Text, vbCrLf, "")
'若有些表格被合併時

S = Application.ActiveDocument.Tables(tbs).Cell(i, j).Range.Text

S = Replace(S, vbCr, "")
S = Replace(S, vbLf, "")


If Len(S) = 0 Then
DataS = DataS & " - | "
Else
DataS = DataS & "(" & i & "," & j & ") " & S & " | "
End If

Next

Debug.Print DataS
DataS = ""
Next

Debug.Print vbCrLf
Debug.Print vbCrLf


Next

End Sub

'輸出結果範例
'-----------------------------------------------------------------------------------


表格 1
-------------------------------------------------------------------------------
| (1,1) 1,1 | (1,2) 結束案件數 | (1,3) 7日內報案件數 | (1,4) 未於7日內報案件數 | (1,5) 未案件數 |
| (2,1) 93年 | (2,2) | (2,3) | (2,4) | (2,5) |
| (3,1) 94年 | (3,2) 19 | (3,3) 19 | (3,4) | (3,5) |
| (4,1) 95年 | (4,2) 25 | (4,3) 25 | (4,4) | (4,5) |
| (5,1) 96年 | (5,2) 37 | (5,3) 37 | (5,4) | (5,5) |
| (6,1) 97年 | (6,2) 62 | (6,3) 62 | (6,4) | (6,5) |
| (7,1) 98年 | (7,2) 106 | (7,3) 106 | (7,4) | (7,5) |
| (8,1) 合計 | (8,2) 252 | (8,3) 252 | (8,4) | (8,5) |




表格 2
-------------------------------------------------------------------------------
| (1,1) 各單位 | (1,2) 結束案件數 | (1,3) 7日內報案件數 | (1,4) 未於7日內報案件數 | (1,5) 未報案件數 |
| (2,1) 93年 | (2,2) 2,2 | (2,3) | (2,4) | (2,5) |
| (3,1) 94年 | (3,2) | (3,3) | (3,4) | (3,5) |
| (4,1) 95年 | (4,2) | (4,3) | (4,4) | (4,5) |
| (5,1) 96年 | (5,2) | (5,3) | (5,4) | (5,5) |
| (6,1) 97年 | (6,2) | (6,3) | (6,4) | (6,5) |
| (7,1) 98年 | (7,2) | (7,3) | (7,4) | (7,5) |
| (8,1) 合計 | (8,2) | (8,3) | (8,4) | (8,5) |

2010年8月5日 星期四

Access 隨機文章的作法

SELECT 文章ID,文章內容 From [文章庫] Order By Rnd(文章ID)

SELECT 文章ID,文章內容 FROM [文章庫] ORDER BY Rnd(文章ID-timer())
(ORDER後,順序會不同)


參考自
http://www.softbunny.net/post/235.shtml

追蹤者