Darkthread

CODE-批次清除SQL資料庫的孤兒使用者

Jeffrey — Wed, 17 Mar 2010 07:45:00 GMT

要快速把資料庫掛上另一台SQL Server，我最常用的作法是複製mdf檔案過去，再直接Attach上去。不過，後續在新SQL上建立與原SQL相同帳號並設定權限的過程，常會遇到以下錯誤訊息:

Microsoft SQL-DMO (ODBC SQLState: 42000) 錯誤 15023: 使用者或角色 '%s' 在目前的資料庫中已經存在。
Microsoft SQL-DMO (ODBC SQLState: 42000) Error 15023: User or role '%s' already exists in the current database.

問題出在複製mdf時，同名使用者(MS KB定義的名詞叫"孤兒使用者")也一併被帶過來，MS KB建議的做法是用sp_change_users_login重新建立新帳號與孤兒使用者間的對應。(註: sp_change_users_login已被宣告未來要廢除，可改用ALTER USER)

不過，我個人比較習慣的做法，是將這些孤兒使用者先一律清除，因為並非所有使用者在新SQL都會有對應的登入帳號，砍掉重練較省事。

以下的T-SQL可以自動列舉出有哪些孤兒使用者，執行清理門戶的任務，供有需要的朋友參考:

【強烈警告】
本程式若使用不當，可能誤殺忠良，導致資料庫問題，請各位自行斟酌風險決定是否使用，行刑前請務必再三確認!

declare @name varchar(32)

declare @stmt nvarchar(1024)

declare cur cursor for

--以sys的建立日為基準，之後才建立者視為非系統內建(SQL 2005)

select name from sys.database_principals

where create_date >

(select create_date from sys.database_principals

 where name = 'sys')

and type in ('S', 'U')

open cur

fetch next from cur into @name

while @@fetch_status = 0

begin

    set @stmt = 'DROP USER [' + @name + ']'

    print @stmt

    --**警告**建議先印出待刪清單，人工檢核過一次再執行

    --EXEC dbo.sp_executesql @stmt

    fetch next from cur into @name

end

close cur

deallocate cur

CODE-將LINQ查詢結果轉成ADO.NET DataTable

Jeffrey — Wed, 17 Mar 2010 00:11:00 GMT

跟同事討論在新專案中開始採用LINQ，但有些古老元件的API只接受DataTable參數，我想到以前想過可以利用Reflection將LINQ查詢結果轉成DataTable，花了點時間，參考網路上的文章，整理成以下範例:

using System;

using System.Collections.Generic;

using System.Linq;

using System.Data;

using System.Reflection;

namespace ConsoleApplication1

    class Program

        //REF: http://3.ly/y8rA

        //註: .NET 3.5有個IEnumerable.CopyToDataTable<T>()，但T只接受DataRow(感覺有點莊孝維)

        static DataTable LinqQueryToDataTable<T>(IEnumerable<T> query)

            DataTable tbl = new DataTable();

            PropertyInfo[] props = null;

            foreach (T item in query)

                if (props == null) //尚未初始化

                    Type t = item.GetType();

                    props = t.GetProperties();

                    foreach (PropertyInfo pi in props)

                        Type colType = pi.PropertyType;

                        //針對Nullable<>特別處理

                        if (colType.IsGenericType

                            && colType.GetGenericTypeDefinition() == typeof(Nullable<>))

                            colType = colType.GetGenericArguments()[0];

                        //建立欄位

                        tbl.Columns.Add(pi.Name, colType);

                DataRow row = tbl.NewRow();

                foreach (PropertyInfo pi in props)

                    row[pi.Name] = pi.GetValue(item, null) ?? DBNull.Value;

                tbl.Rows.Add(row);

            return tbl;

        class Person

            public string Name { get; set; }

            public int Score { get; set; }

            public DateTime RegDate { get; set; }

        static void Main(string[] args)

            List<Person> people = new List<Person>() {

                new Person { Name="Jeffrey", Score=32767, RegDate = DateTime.Today },

                new Person { Name="Darkthread", Score=65535, RegDate = DateTime.Now }

};

            var q = from p in people

                    where p.Score > 255

                    select p;

            DataTable t = LinqQueryToDataTable(q);

            Console.WriteLine("Row Count={0}", t.Rows.Count);

            DataRow r = t.Rows[0];

            Console.WriteLine("1st Person Name={0} Score={1} RegDate={2}",

                r["Name"], r["Score"], r["RegDate"]);

            Console.Read();

CODE-自動產生投影片縮圖索引的PowerPoint VBA

Jeffrey — Tue, 16 Mar 2010 20:16:19 GMT

Excel/Word VBA寫過不少，頭一次寫PowerPoint VBA，拿出來分享一下。

同事跟我分享了多年來的收藏--一大堆精美華麗的投影片範例，需要對長官高層做簡報時，找相近的改一改，唬人效果十足。不過一百多個PPT檔案每個都只有一張投影片(因為背景、樣版不同，難以合併)，瀏覽起來頗為麻煩!

為了感謝同事的慷慨分享，我寫了以下VBA作為回報。這段程式，會逐一列出Slides子目錄下的所有PPT檔，對每一張投影片產生縮圖，然後以一張投影片四張縮圖的方式排版，再為縮圖加上超連結以便開啟原投影片檔案，便做成了方便瀏覽檢閱的索引型錄囉!

Option Explicit

Sub BuildIndex()

    'FileSystemObject物件

    Dim FSO As Scripting.FileSystemObject

    Set FSO = New Scripting.FileSystemObject

    '取得現有路徑及暫存路徑

    Dim sCurrentPath As String, sTempPath As String

    sCurrentPath = ActivePresentation.Path

    sTempPath = FSO.GetSpecialFolder(TemporaryFolder)

    '索引PPT及標的PPT物件

    Dim pptIndex As Presentation, pptToOpen As Presentation

    Set pptIndex = ActivePresentation

    '一些工作用變數

    Dim I As Integer, S As Slide, ImgFile As String

    Dim iGlobalIndex As Integer, iIndexPerPage As Integer

    Dim iPngWidth As Integer, iPngHeight As Integer

    Dim sldIndex As Slide, picInserted As Shape

    Dim iDimCount As Integer, iIndexAtPage As Integer

    '先將有投影片清除，只留下最後一張，並清除其內容

    While pptIndex.Slides.Count > 1

        pptIndex.Slides(1).Delete

    Wend

    Set sldIndex = pptIndex.Slides(1)

    While (sldIndex.Shapes.Count > 0)

        sldIndex.Shapes(1).Delete

    Wend

    '複雜空白頁配置供後續新增時使用

    Dim pptLayout As CustomLayout

    Set pptLayout = pptIndex.Slides(1).CustomLayout

    iIndexPerPage = 4

    iDimCount = iIndexPerPage ^ 0.5

    iPngWidth = pptIndex.PageSetup.SlideWidth / iDimCount

    iPngHeight = pptIndex.PageSetup.SlideHeight / iDimCount

    iGlobalIndex = 0

    '列出待處理PPT的目錄及檔案物件

    Dim SourceFolder As Scripting.Folder

    Dim FileItem As Scripting.File

    '列舉檔案清單

    Set SourceFolder = FSO.GetFolder(sCurrentPath & "\Slides")

    For Each FileItem In SourceFolder.Files

        '排除索引PPT本身

        If InStr(LCase(FileItem.Name), "index") = 0 Then

            '開啟檔案

                Set pptToOpen = Presentations.Open(FileItem.Path, WithWindow:=msoFalse)

            I = 0

            ImgFile = sTempPath & "\" & Split(FileItem.Name, ".")(0) & "_" & I & ".png"

            For Each S In pptToOpen.Slides

                iIndexAtPage = iGlobalIndex Mod iIndexPerPage

                '索引檔加入新投影片

                If (iIndexAtPage = 0) Then

                    Set sldIndex = pptIndex.Slides.AddSlide(pptIndex.Slides.Count, pptLayout)

                End If

                '將投影片匯出成暫存PNG

                S.Export ImgFile, FilterName:="PNG", _

                         ScaleWidth:=iPngWidth * 1.2, ScaleHeight:=iPngHeight * 1.2

                '插入圖片

                Set picInserted = sldIndex.Shapes.AddPicture(ImgFile, Linktofile:=msoFalse, _

                                  SaveWithDocument:=msoTrue, _

                                  Left:=(iIndexAtPage Mod iDimCount) * iPngWidth, _

                                  Top:=(iIndexAtPage \ iDimCount) * iPngHeight, _

                                  Width:=iPngWidth, Height:=iPngHeight)

                '加上連至PPT的超連結

                With picInserted.ActionSettings(ppMouseClick)

                    .Action = ppActionHyperlink

                    .Hyperlink.Address = FileItem.Name

                End With

                I = I + 1

                iGlobalIndex = iGlobalIndex + 1

            Next

            '關閉PPT檔，刪除暫存圖檔

            pptToOpen.Close

            FSO.DeleteFile ImgFile

        End If

    Next

    '儲存索引檔

    pptIndex.SaveCopyAs sCurrentPath & "\Slides\Index.ppt", _

                        ppSaveAsOpenXMLPresentation, msoFalse

End Sub

產生的索引PPT如上圖所示，在縮圖上按右鍵再選"開啟超連結"就可以打開投影片來源檔案。有需要的朋友請自取參考。

關於PowerPoint的笨問題-如何選取被藏在下方的物件

Jeffrey — Mon, 15 Mar 2010 02:50:44 GMT

我覺得這是一個笨問題，說出來會被人恥笑，不過找到解法很開心，還是決定PO文一篇以示紀念。

最近這陣子重操舊業，做起了弄投影片準備簡報的買賣。為了能生動地說明一些技術細節，我搞了幾個複雜的動畫展示(，其中不乏先顯示圖片1，按一下滑鼠出現圖片2蓋過圖片1的設計。

這種效果對PowerPoint來說是小事一椿，但我老被一個問題困擾: 當我把圖片2放在圖片1上方並完全蓋掉圖片1後，要如何選取圖片1調位置對我來說就是爆難的挑戰。我唯一會的解法，是先把蓋在上面的圖片2拖開好讓圖片1露出來，選取調整位置後再把圖片2蓋回去；如果蓋了三四層，就要改成一邊碎唸，一邊像剝洋葱一樣，逐層拖開，再逐層蓋回去。

拿個實例來說明: 投影片有兩張圖，海角單車圖的圖層順序在螳螂捕蟬圖上方

當螳螂躲到海角天涯之後(如下圖)，再點一下其他地方，選取框便會消失，從此看不到也點不到，請問要怎麼把它再抓出來調位置?

答案出奇簡單:

按Tab鍵就好了呀，笨蛋!!

我笨了好幾年，真的。

我的MCE體驗

Jeffrey — Sun, 14 Mar 2010 00:49:23 GMT

還記得我那台在客廳找到職場第二春的XPC SB81P嗎? 前些時候突發奇想，心想既然放在客廳還接了電視，何不加塊電視卡讓它具有錄影功能? 再加上Windows 7 Ultimate內建了Windows Media Center(但我還是習慣叫它MCE)，如此才真能成為名符其實的娛樂中心。

弄來一塊退役的電視卡UPG301 BTR(在拍賣網站只值100元，可以想見其又老又不中用的程度)，反正是無償取得，就胡亂玩玩。這麼老的TV卡片，最新的驅動程式只到XP用WDM版，但Windows 7竟出乎意外的親切隨和，WDM Driver也照單全收，裝完後，Media Center居然還真偵測到這塊電視卡。

坦白說，在電腦裡看到電視畫面讓人有點小興奮。但畢竟這是張行將就木的老卡，當年技術較不成熟，縱使卡上有顆超大鐵殼包著的TV Tuner，但大部分頻道畫質極差，有些頻道雜訊多到直逼"色盲檢定表"的地步~~ 再者，或許因為驅動程式問題，只看得到影像沒有聲音。但這些都不是最嚴重的問題...

老伯伯電視卡每次重啟Media Center後只提供六秒鐘的功能展示，就會出現低位元速率錯誤後停止服務，提醒你: 如果滿意在電腦上看電視的感覺，記得要花錢哦~~~

於是，被這個有影無聲的類色盲檢定打動(或者該說被刺激到)，冒險走了趟恐怖的光華商場，買了一塊支援硬體壓縮的新版電視卡-Vista H900F。

科技日新月益，新TV卡上的Tuner縮到只比50元銅板略大些(老TV卡上的Tuner鐵殼體積直逼牛奶糖外盒，參考圖片: 1, 2)，但畫質卻異常清晰，跟直接接電視的效果相當。

試用了一個星期感覺良好，以下是我覺得用Windws Media Center看電視的好處:

首推當然是預錄功能!
直接在節目表上找到播放時間，電腦就會自動醒來錄影，錄完又自己回去睡。
我愛用錄影的目的其實並非怕錯過某些節目，而是企圖更有效率地應用時間。把"較有價值"的節目保留下來，當有時間坐在沙發上看電視時，直接看些有營養的東西，好過握著搖控器一台轉過一台，漫無目的Channel Surfing，"看電視"這件事才會變得更有意義。(謎之聲: 意義是三小... 黑暗: 不要來亂，小心我把你弄死!)
舉個例子，昨天小朋友吵著想看電視，當時幼幼台正在播兒子常看的戰龍四驅卡通，但最後被我說服改看預錄好的百萬小學堂。我覺得能更自主的選擇要值得看的節目，比隨遇而安亂看一通來得更積極正面。
看錄影節目還有另一項好處: 可以隨時中斷再繼續，不怕被打斷(有小孩的人就知道這點有多重要)，而廣告部分可以直接跳過的功能也很迷人。(我還想要有一顆向前快轉3分鐘或5分鐘的快捷鈕)
最後，時光平移功能在觀賞即時節目時很讚，可以回頭重播剛才遺漏或沒看清楚的部分，就不怕被人打斷了(有小孩的人就知道這點有多重要)。

但目前有個棘手問題，由於要預錄節目，電腦得長期保持在休眠狀態，已經關掉了滑鼠、鍵盤、網卡的喚醒功能，但電腦仍常無故自己醒來(最近連續三天早上6:37分醒來，莫非是老年人的症頭?)，另外設定固定時間後休眠的功能也常未如預期生效。這個議題就交給茶包射手，過陣子請他再跟大家報告。

LINQ應用實例-對字串陣列元素逐一做處理

Jeffrey — Thu, 11 Mar 2010 11:11:02 GMT

今天有個需求，要將某目錄下的圖檔清單轉成Javascript字串陣列，以方便網頁處理。例如: B:\100311\目錄下有F1.gif, F2.gif, F3.gif三個圖檔，便要產出var data = ["F1.gif","F2.gif","F3.gif"];，心血來潮，分別列出傳統組字串寫法、String.Join及應用LINQ概念的程式碼比較一番。

static void Main(string[] args)

    StringBuilder sb = new StringBuilder();

    //傳統寫法

    sb.Append("var data = [");

    bool addComma = false;

    foreach (string f in Directory.GetFiles("B:\\100311", "*.gif"))

        string pureFileName = Path.GetFileName(f);

        sb.AppendFormat("{0}\"{1}\"", addComma ? "," : "", pureFileName);

        addComma = true;

    sb.Append("];");

    Debug.WriteLine(sb.ToString());

    //用String.Join

    sb.Length = 0;

    sb.Append("var data = [");

    List<string> l = new List<string>();

    foreach (string f in Directory.GetFiles("B:\\100311", "*.gif"))

        l.Add("\"" + Path.GetFileName(f) + "\"");

    sb.Append(string.Join(",", l.ToArray()));

    sb.Append("];");

    Debug.WriteLine(sb.ToString());

    //使用LINQ概念，程式碼可以簡化成一行

    string r = "var data = [" +

                string.Join(",",

                    Directory.GetFiles("b:\\100311", "*.gif")

                    //利用Select()對陣列做處理，只保留檔名部分，前後加上雙引號

                    .Select(s => "\"" + Path.GetFileName(s) + "\"")

                    //轉回字串陣列

                    .ToArray()) + "];";

    Debug.WriteLine(r);

    Console.Read();

Directory.GetFiles()傳回的string[]，在.NET 3.5中可呼叫Select()配合Lambda表示法，直接將檔名中的路徑部分去掉，並在前後加上雙引號後，再透過.ToArray()傳回處理過的字串陣列，這樣就連foreach迴圈都免了。

程式碼變簡潔了(一行搞定，連StringBuilder都用不到)，但看懂Code的門檻也變高，簡潔度及親和性如何取捨，大家再視狀況自行斟酌吧!

模擬iPhone瀏覽網頁

Jeffrey — Wed, 10 Mar 2010 20:54:49 GMT

先前介紹過用Windows Mobile模擬器測試網頁的做法。但依目前市場的態勢，評估行動裝置上網卻漏了iPhone，就像炒菜鍋行銷企劃只找辣妹做問卷調查、卻不去了解歐巴桑的偏好一般可笑。(謎之聲: 你該不會以為舉這種酸溜溜的比喻，WM市場就會變大，只會.NET的老頭就會變值錢吧? 黑暗: 沒辦法，誰叫我是謝團長...)

依我的了解，iPhone模擬器只能在iMac機器上執行，沒投資硬體就想模擬? 門都沒有!! 不過，幸好我們只需模擬iPhone瀏覽網頁，問題比較單純。簡單在網路上找了一下，發現善心人士提供的工具:

iPhone Drift
模擬了iPhone的Safari、YouTube、Google Maps，還可以旋轉檢視橫向效果，功能挺齊備的，而程式有一個不到1M的執行檔，用起來很方便。
iBBDemo
由於iPhone的Safari與Windows版Safari都是用Webkit作為核心，因此作者透過客製的CSS Extension，就能在Windows上模擬出iPhone Safari的瀏覽效果。比較特別的是它還模擬了iPhone的螢幕鍵盤輸入畫面，但純示意罷了，無法真的用來輸入。[展示影片]
也有線上版本的iPhone瀏覽器模擬，例如: TestiPhone.com

透過上述的方法，就可以在Windows上測試iPhone Browser的瀏覽效果囉~~

【補充】

iPhone的Safari不支援Flash、Java等，我測試的結果iPhoneDrift會攔下Flash但Java Applet則闖關成功、iBBDemo則是擋了Java放行Flash，小心此點對結果正確性的影響。
模擬器在Windows上的執行速度不會跟實體機器一致(多半效能會比手機好)，在評估操作流暢度時建議納入考量。

jQuery 1.4 Solved The OnChange Event Issue of IE AutoComplete

Jeffrey — Mon, 08 Mar 2010 13:36:00 GMT

IE's AutoComplete feature doesn't trigger onchange event is a well-known "by-design" behaviour:

Using AutoComplete in HTML Forms
To determine when a user updates the content of a field from the AutoComplete dialog box, use the onpropertychange event, rather than the onchange event, because the onchange event does not fire.

I have ever found some fixes (example 1, 2) developed by community before. Today, when I managed to put them into my project, I found something interesting.

As using jQuery 1.4+, if I set change() event on a <input type="text" />, it will be triggered as well as the event declared by onchange="..." when IE AutoComplete. In the other word, jQuery 1.4 solved the "onchange not triggered" issue of IE AutoComplete.

After tracing the code roughly, I found jQuery uses some new mechanism: beforeactive event to store the original value in .data("_chage_data"), compares it with current value in focusout event, if not equal, then trigger the onchange event... I guess that's why it can detect the value change when using IE AutoComplete.

So, using jQuery 1.4+, you can solved the well-known "No OnChange Event When IE AutoComplete" issue easily!

Here is my simple test case. When jQuery 1.3.2 is included, no change event will be fired when using IE AutoComplete to fill t1, t2 value. After changing the link to jQuery 1.4.2, you will find AutoComplete on t1 can trigger both "T1 JS change" and "T1 jQuery change" now.

<%@ Page Language="C#" AutoEventWireup="true" %>

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

    <script type='text/javascript'

src='http://ajax.googleapis.com/ajax/libs/jquery/1.3.2/jquery.js'></script>

<!--  <script type='text/javascript'

src='http://ajax.googleapis.com/ajax/libs/jquery/1.4.2/jquery.js'></script> -->

    <script type="text/javascript">

        function output(msg) {

            var disp = document.getElementById("disp");

            disp.innerHTML += "<li>" + msg;

        $(function() {

            //if you set change event on #t1 with jQuery 1.4.2,

            //the onchange event will be triggered when using AutoComplete

            $("#t1").change(function() {

                output("T1 jQuery change");

});

});

    </script>

</head>

<body>

<form method="post">

T1: <input type="text" id="t1" name="t1" onchange="output('T1 JS change');"/><br />

T2: <input type="text" id="t2" name="t2" onchange="output('T2 JS change');" /><br />

<input type="submit" value="Submit" />

</form>

<div id="disp"></div>

</body>

</html>

【中文摘要】

上回試著要用autocomplete="off"法解決IE自動完成時onchange事件不會被觸發的老問題，不過如同91在回饋裡所言--要關閉使用者慣用的自動完成功能，就得向User解釋這個難以啟齒的技術鳥問題。萬一不幸遇上"角頭級"的使用者，哪可能耐著性子聽你說什麼IE自動完成、onchange這些鬼東西，只怕會換來一句--"onchange是三小，恁爸只聽過回家吃自己，沒聽過onchange啦!"... 想到這個畫面，我忽然不寒而慄，決定花時間研究一下怎麼讓AutoComplete也觸發change事件。

開了個小專案寫了jQuery做測試，卻發現一件有趣的事。AutoComplete竟會觸發onchange事件~~~ 是我眼花了還是腦筋不清楚? 明明上回驗證過，像鐵一般的事實這回怎麼來了個急轉彎? 在做了一堆測試比對後，總算釐清一件事實:

使用jQuery 1.4設定<input type="text">的change()事件後，使用IE AutoComplete也會觸發onchange事件!!

我做了一個簡單的測試案例(程式碼在上方)來驗證這點: 首先使用jQuery-1.3.2，用IE自動完成填入t1, t2的資料，並不會觸發onchange事件；改用jQuery-1.4.2後，再以自動完成為t1, t2填入資料, 這回有加掛jQuery chnage()事件的t1會觸發用jQuery及用onchange="..."宣告的事件，而t2則不會。

粗略地追了一下程式碼，發現jQuery-1.4在change事件觸發機制上做了改良: 在beforeactive事件時會將原值存在.data("_chage_data")、在focusout事件中會用它跟現值比對，不一致時則觸發change事件。這跟我原本想出的解法差不多，而jQuery在核心中已實踐了類似的邏輯，應該就是無形中修好"AutoComplete不觸發OnChange事件"問題的原因。

總之，不費吹灰之力就修好這個惱人的問題，有賺到的感覺，哈!!

利用Windows Mobile模擬器測試網頁

Jeffrey — Sun, 07 Mar 2010 06:59:00 GMT

上回介紹過獨立安裝Windows Mobile 6模擬器的方法，最終目標是想利用模擬器測試網站在行動裝置上的呈現與操作效果，今天繼續補完後續步驟。

首先，我們來讓模擬器可以"上網"。要讓模擬器連上Internet，透過VPC 2007的虛擬網卡驅動程式是一種方法，不過必須安裝VPC 2007，會有平台上的限制，所以像Windows 7、Windows 2007 R2就被發了好人卡；我個人偏愛的是另一種做法---透過Mobile Device Center轉接(就是ActiveSync在Vista之後進化版)。

[2010-03-08補充] 網友guest提供在Windows 7上獨立安裝模擬器所需Virtual Machine Network Services的密技，可以克服Win7上無法安裝VPC2007的問題，特此感謝!

為了讓模擬器連上Mobile Device Center，我們要先開放DMA連線(如下圖)。另外，網路選項要設成Automatic或The Internet，以允許模擬器連到Internet。有一個小撇步: 當發現模擬器無法連上Internet時(完全連不到或變成連上本機IIS)，在Automatic/The Internet間做一次切換常能解決問題，我不知背後原理為何，大家就姑且當成"電視沒訊號時用力搥一下就會變好"那種密技吧!

設定好Mobile Device Center，接著在Device Emulator Manager啟動模擬器的"Cradle”功能，模擬實體手機/PDA用USB連上電腦的樣子。

接著Mobile Device Center就會偵測到模擬器連上線了(Connected)，由於我們不需要同步模擬器的行事曆、連絡人，其他功能可以忽略不理。

如果沒有意外，此時在模擬器裡開啟IE，就可以開連上平日常逛網站，看看它們在手機上變成什麼~~鬼樣子~~德行囉! (密技提示: 發現無法連線時，記得用力拍一下電視機 XD)

另外，在智慧手機界，使用Opera Mobile或Opera Mini的使用者很多，所以理論上也該裝一套來玩玩。安裝Opera最快的方法是用直接用模擬器開IE連上http://m.opera.com/next，下載Cab檔案回來安裝就搞定了。

Mini C# Lab 1.4 Release

Jeffrey — Fri, 05 Mar 2010 09:29:21 GMT

The primary new feature of Ver 1.4 is batch mode!

Now you can run Mini C# Lab program as a scheduled task, no UI interactivity is needed. Here are some batch argument examples:

Load and execute x:\temp\test.cs, use the output to overwrie x:\temp\log.txt
MiniCSharpLab /batch /cs:x:\temp\test.cs /out:x:\temp\log.txt /overwrite
Load and execute "c:\some path\test.cs", append the output to LogyyyyMMdd.txt (the file name will be change according to System.DateTime.Now)
MiniCSharpLab /batch /cs:""c:\some path\test.cs"" /out:Log{yyyyMMdd}.txt
Load and execute x:\aa.cs, append the output to x:\aa.txt, if execution time is longer than 1200 seconds, program will be terminated.
MiniCSharpLab /batch /cs:x:\aa.cs /out:x:\aa.txt /timeout:1200
Load and execute x:\aa.vb as .NET 3.5 program, append the output to x:\aa.txt
MiniCSharpLab /batch /vb:x:\aa.vb /out:x:\aa.txt /v35

There are also minor bug fix and improvement:

Fix: Thread.Sleep for 0.5" after execution to avoid output loss (I hope it works)
Add: Add execution duration display

【中文說明】

其實1.4版已經寫出來蠻久了，上回的黑暗盃程式魔人賽裡就已經偷跑過了。今天剛好跟同事提到要寫簡單的Script跑排程，索性一不做二不休，把它Release到CodePlex網站上，想參考程式的人也可以在CodePlex找到原始碼。

1.4版最大的特色是支援批次無UI的方式執行，這個之前網友Ammon也有提過，剛好也是我自己不少排程作業上的需求。執行參數如下:

載入並執行x:\temp\test.cs, 輸出結果覆寫到x:\temp\log.txt
MiniCSharpLab /batch /cs:x:\temp\test.cs /out:x:\temp\log.txt /overwrite
載入並執行"c:\some path\test.cs", 輸入結果附加到LogyyyyMMdd.txt檔案後端(檔名會隨執行時間變化)
MiniCSharpLab /batch /cs:""c:\some path\test.cs"" /out:Log{yyyyMMdd}.txt
載入並執行x:\aa.cs, 輸出結果附加到x:\aa.txt。若執行時間超過1200秒，會被強制中止
MiniCSharpLab /batch /cs:x:\aa.cs /out:x:\aa.txt /timeout:1200
載入x:\aa.vb，視為.NET 3.5程式執行，輸出結果附加到x:\aa.txt
MiniCSharpLab /batch /vb:x:\aa.vb /out:x:\aa.txt /v35

另外還有兩個小修改:

修正: 加入0.5秒Thread.Sleep延遲，防止輸出結果遺失(希望有效)

加入執行時間顯示功能

如發現Bug或有功能建議，歡迎在此留言回饋。(但不一定能即時修正或擴充，請見諒!)

CODE-鎖定有掛onchange事件的欄位停用自動完成

Jeffrey — Fri, 05 Mar 2010 05:56:00 GMT

上回提過因使用IE自動完成造成onchange事件不被觸發的問題，著實帶來一些困擾，不少User抱怨系統掛在onchange事件的欄位連動功能失效。雖然User漸漸都已學會在這些欄位使用手工輸入，不要依賴IE自動完成帶入結果就可以避開問題，抱怨日少。不過我想從網頁設定上去停用autocomplete還是比較根本的解決之道。

當然，我們可以抱著寧可錯殺一百，不可錯放一個的精神來個$("input:text").attr("autocomplete", "off")，把網頁上所有<input type='text'>的自動完成功能全都閹掉，一了百了。不過，我習慣處理得細膩一點，將這個不得已措施的範圍縮小到受影響的欄位上，換句話說，只有掛了onchange事件的<input type='text'>才是要撲殺的對象。

要怎麼偵錯欄位是否有掛onchange事件? 想起上回剛好玩過列舉元素已掛載的jQuery事件的小把戲，這回把它融合進來，就做出了這個"標靶治療式"的autocomplete屬性停用Plugin。

以下的程式範例可以讓大家拿去Mini jQuery Lab實地玩一下。

//針對有掛onchange的<input type="text">設定autocomplete="off"

//參考: http://tinyurl.com/yzwp3lt

//限制: 只對執行當下已經掛載onchange事件者有效(不包含.live()掛載者)

$.fn.disableAutoCompleteForChange = function(force) {

    //過濾只留下<input type='text'>

    return this.filter(":text").each(function() {

        //篩選有掛change事件者, 參考: http://tinyurl.com/yka6x8g

        var evts = $.data(this, "events");

        if (force || evts && evts["change"] || this.onchange != undefined)

            $(this).attr("autocomplete", "off");

            //.val("SET"); //可加上這段測試是否被設定

});

//加入三個<input>進行測試, T2用jQuery掛onchange, T3直接宣告onchange

$("body").append("<input id='T1' /><input id='T2' />")

.append("<input id='T3' onchange='alert(3);' />");

$("#T2").change(function() { alert("2"); });

$("input").disableAutoCompleteForChange();

注意:

.disableAutoCompleteForChange()的呼叫時機要在onchange掛上去後
對使用.live()掛載的onchange無效
另外多加對以<input onchange="..." />方式掛上事件的偵測
.disableAutoCompleteForChange(true)時可不管有無onchange，一律停用

[2010-03-08補充] 測試發現使用jQuery 1.4+掛載change()事件即可解決此問題

獨立安裝Windows Mobile 6模擬器

Jeffrey — Wed, 03 Mar 2010 20:31:21 GMT

Visual Studio 2005/2008提供了整合式的Windows Mobile程式開發環境，其中包含PocketPC及Windows Mobile平台模擬器，可以在沒有實體手機/PDA的情況下執行、測試及偵錯程式。不過VS2008內附的模擬器只支援到Windows Mobile 5.0，如果想測試WM6，則需安裝Windows Mobile 6 Professional and Standard Software Development Kits Refresh (Standard / Profession分成兩包，視需要分別下載安裝) ，而要測試中文環境的話，則還要另外下載正體中文版的Windows Mobile 6 ROM Image，安裝完成後Device Emulator Manager就會自動多出WM6平台可供選擇，非常直覺簡單:

圖1 從VS2008啟動Device Emulator Manager

圖2 安裝WM6 SDK及正體中文WM6 Image後，會多出WM6平台選項

手上有台跑Windows 7的ThinkPad T43，沒安裝VS2008(只有VS2010 RC)，但我想在上面跑WM6模擬器，用WM6的IE瀏覽器測試網頁在行動裝置上的呈現效果。少了VS2008一手包辦自動裝到好的貼心協助，獨立安裝需要較多的手工。以下是我試出來的步驟:

下載安裝Microsoft Device Emulator 3.0 -- Standalone Release， C:\Program Files\Microsoft Device Emulator\1.0\dvcemumanager.exe就是圖1 Device Emulator Manager的執行程式，建議在桌面做個捷徑方便啟動。 (註: 模擬器使用與Virtual PC相似的核心技術，所以不能裝在VM OS上)
下載安裝正體中文版的Windows Mobile 6 ROM Image
此時執行Device Emulator Manager的結果可能會讓你失望，清單上空空如也，剛才新裝的WM6 Image並不會自動列出來(這種時候就會覺得Visual Studio就甘心A)。我們需要設法產生一個.decfg檔案，提供Emulator Manager足夠的資訊，才能順利啟動WM6模擬器。最簡單的方法是找台有裝VS2008的機器，在圖2介面上先選取模擬器，按右鍵用Save As產生.decfg檔再修改(多半只需調整檔案路徑)。
將上一步驟產生的.decfg檔案Copy到C:\Users\使用者名稱\Documents\My Device Emulators目錄下，重新啟動一次Device Emulator Manager，就可以看見新增的模擬器，按右鍵選Connect…

薑! 薑! 薑! 薑~~~ WM6模擬器就跑起來囉!

檢附上述的WM6ProCHT.decfg供參:

<DeviceEmulator xmlns="http://schemas.microsoft.com/DeviceEmulator/2006/01/DeCfg">
    <Board>
        <CpuCore Reconfigurable="false">ARMv4</CpuCore>
        <CpuOptions Reconfigurable="false">TDI</CpuOptions>
        <VFP Reconfigurable="false">false</VFP>
        <OSImage Reconfigurable="false" Address="0">C:\Program Files\Windows Mobile 6 SDK\PocketPC\DeviceEmulation\0404\PPC_CHT_GSM_VR.BIN</OSImage>
        <MemSize Reconfigurable="false">128</MemSize>
    </Board>
    <Emulator>
        <DefaultSave Reconfigurable="false">true</DefaultSave>
        <FuncKey Reconfigurable="true">193</FuncKey>
        <HostKey Reconfigurable="true">Right-Alt</HostKey>
        <Language Reconfigurable="false">1028</Language>
        <Skin Reconfigurable="true" EnableSkin="true" ToolTips="off">C:\Program Files\Windows Mobile 6 SDK\PocketPC\DeviceEmulation\Pocket_PC_Phone\Pocket_PC_PE.xml</Skin>
        <VMID Reconfigurable="false">{984B347D-C615-4042-856D-EF567D2721C2}</VMID>
    </Emulator>
    <Peripherals>
        <SerialPort Reconfigurable="true" UARTNumber="0">none</SerialPort>
        <SerialPort Reconfigurable="true" UARTNumber="1">none</SerialPort>
        <SerialPort Reconfigurable="true" UARTNumber="2">none</SerialPort>
    </Peripherals>
    <Platform>Windows Mobile 6 Professional SDK</Platform>
</DeviceEmulator>

開啟RSClientPrint偵錯Log

Jeffrey — Tue, 02 Mar 2010 02:00:47 GMT

Reporting Service線上列印功能可以直接由網頁列印出美美的報表，是很酷的功能，不過實務應用也遇過不少小狀態就是了。

昨天無意中發現RSClientPrint元件支援寫Log檔的功能，這在射茶包時可是價值連城的情報。故特別PO文做個筆記以防年老失憶:

開啟Log記錄的做法是用RegEdit加入一則機碼(Key)HKEY_CURRENT_USER\Software\Microsoft\Microsoft SQL Server\80\Reporting Services
並新增LogRSClientPrintInfo REG_DWORD = 0x00000001(可參考這篇KBMore Inforation一節的說明)
執行SSRS報表並使用線上列印
DIR %temp%\LOG*.tmp，便可看到剛才列印動作所產生的Log檔案(檔名格式為LOGnnnn.tmp，nnnn為16進位隨機數字)。

稍微看了一下，Log裡記載的資訊蠻詳細的，開啟報表路徑/名稱、使用語系、選擇的印表機、換頁、發出Request的過程都鉅細靡遺地被保留下來，很有Debug Log的味道，我想對於解決RSClientPrint疑難雜症應該很有幫忙。不過要看到這些Log，RSClientPrint元件至少要被順利載入並啟動才可以，RSClientPrint另一個常見的問題是因版本更新導致無法載入使用，這裡也順便提供一下參考資訊:

【茶包射手日記】不限條件選項之SQL組裝與資料庫OR運算特性驗證

Jeffrey — Mon, 01 Mar 2010 13:38:44 GMT

在設計查詢介面時，下拉式選單是很常見的條件選取方式，而往往我們都會再加上一個"不限條件"選項，允許使用者不限制條件，列出所有項頁。舉例來說: 在設定查詢地區的下拉選單(例如: ddlArea)，除了列出基隆市、台北市、台北縣、桃園縣...等各縣市Option外，常會再多一個"所有地區"選項，將Option Value設定='*'，選取時表示不限定地區。在Server端，便要將這些篩選條件轉為SQL指令，如何將'*'視為不限地區? 我過去都用條件式動態組裝:

if (ddlArea.Text != "*") {
cmd.CommandText += " AND AreaCol = @pArea";
cmd.Parameters.Add("@pArea", SqlDbType.NVarChar).Value = ddlArea.Text;
}

後來有一天開了竅，想到更簡潔的寫法:

cmd.CommandText = @"
SELECT .... FROM ...
WHER ...其他查詢條件...
AND (@pArea = '*' OR AreaCol = @pArea)
....";
cmd.Parameters.Add("@pArea", SqlDbType.NVarChar).Value = ddlArea.Text;

如此，整個查詢條件可以直接寫成靜態字串，便於閱讀修改，不必視狀況決定是否要傳入@pArea，而它一樣可達到傳入"*"就不設地區比對條件的效果。

今天在噗浪上與噗友討論到類似議題，看到一種新寫法: where p1 = case @p1 when '*' then p1 else @p1 end，噗友提到曾經聽某資料庫老師說過，這種寫法比上述OR法效能更好，理由是在SQL指令中，OR 的兩邊條件都會做運算比較，跟一般程式的認知不同。(不過噗友對此理論也抱持懷疑態度就是了)

基本上，我無法接受SQL指令中OR兩邊都會執行的主張。當今各家DB在效能優化上不遺餘力，每一個環節錙銖必較，怎麼可能留下這麼個大洞害人摔跤? 不過要怎麼驗證它倒是挺傷腦筋的。

想到一個好辦法，用Block機制來突顯差別!! 故意在OR後方條件式中SELECT一個被Lock住的Table，接著故意讓OR前方條件為True，若SQL傻不楞登硬要執行OR後方條件式就會被擋下來，直到Lock被釋放為止(ROLLBACK TRAN/COMMIT TRAN)；若SQL如我想的冰雪聰明，就會直接忽略OR後方條件立刻送回結果。由結果出現時機，便可判定OR後方的條件式是否被執行。

實驗結果如下: (SQL 2008 @ Windows 2008 x64)

在最下方的SQL指令區故意INSERT卻不COMMIT讓T2被Lock住，此時OR前方條件為1=1的SQL指令不受影響，OR前方為1=0的SQL指令才會執行到第二條件SELECT COUNT(ID) FROM T2而被Block住。由此可證: SQL Sever並不會像VB6一樣傻傻地檢查全部的AND/OR條件式，後方條件式執行與否會視前面的結果而定，故前述的OR法大家可安心服用。(這裡有另一篇討論也持相同看法: The query engine will take care of this for you. All operators will "short circuit" if they can.)

MYTH BUSTED!!! [註]

【黑暗水電工日記】假戲真做!

Jeffrey — Sun, 28 Feb 2010 04:41:00 GMT

樓梯間的天花板燈座年代久遠，塑膠逐漸脆化，前陣子更是開始座盤分離，接著就出現接觸不良的狀態。開燈後常得用雨傘尖輕推燈泡"喬"個幾下才能點亮，上週一，小燈座走到了生命盡頭，再也亮不起來。樓梯少了燈，晚上出入不便，身為黑暗水電工，面對這種險惡情境，當然責無旁貸要扛起拯救世界的重責大任! (遠目)

平日下班都己晚上，樓梯間昏暗難以施工，於是趁著週末，先去附近的"專業水電材料行"(不是一般水電行，是專做"專業水電工"生意的水電材料批發店家，也是上回買到止水墊的地方)進貨買材料。材料行內成天都有"專業水電工"進出，用行話直接跟老板下單，像"LP4來50個"、"有六分管嗎"之類的，我雖然跟水電工前輩們一樣穿著排汗衫牛仔褲，但只要一開口說找"樓梯間天花板用的那種燈泡座"，偽水電工的身份馬上穿幫。不過，水電材料行的所有商品都標了價，老板沒打算坑殺外行人(比起上回想賣我高檔汽車大燈燈泡的店家好多了)，讓我買起來很安心。以下這兩個燈座，大家猜猜看多少錢?

一個10元，很便宜吧!

搬來木梯，抄起起子卸螺絲、拆舊燈座、裝新燈座、旋緊螺絲，三兩下便換裝完成。看來拆換燈座對我根本是小菜一碟，請叫我【黑暗水電工】!!

完工後站在梯子上，等黑暗女王開關燈檢測功能是否正常。此時發生了一件震憾我幼小脆弱心靈的大事...

樓下傳來鐵門開門聲，原來是住樓上的老先生回來了。木梯卡住狹小的樓梯轉角，要由梯子旁的狹小間隙側身穿過有點為難老人家，於是我趕緊將木梯收合讓出路來。老先生跟我點頭道謝繼續向上走，看到正在家門口控制電燈開關的黑暗女王，隨口說了一句:

妳找水電來換燈哦~妳找水電來換燈哦~妳找水電來換燈哦~妳找水電來換燈哦~妳找水電來換燈哦~妳找水電來換燈哦~妳找水電來換燈哦~妳找水電來換燈哦~妳找水電來換燈哦~~~~~~

但見女王強忍笑意，努力克制不自主抖動的身體，回答老先生: "沒有啦，我先生看燈壞了，就想換一換..."

老大爺，我說"叫我【黑暗水電工】"只是玩笑話，您怎麼當真啦!! 沒想到，我這個"偽．水電工"入戲太深，今天有排汗衫+牛仔褲的加持，全身已開始散放出濃濃的"水電工味"，竟順利騙倒鄰居。真不知該為練成"二轉水電工"高興，還是該擔心這會對我繼續從事"專業資訊工作"形成隱憂?

一切都是幻覺，嚇不倒我的。

平復好受驚的心情，在此向大家介紹前陣子在光華商場挖到的寶--八合一折疊起子! 比起過去買過的換頭起子優秀許多，最大的好處是不需額外空間收納起子頭，而且起子前端一體成形跟標準起子一樣細長，不像抽換式起子前端的突出六角套筒座常會卡住螺絲孔，伸不進去轉螺絲。

還有，起子前端的7顆LED燈在照明不足的場合超級好用，大推!!

這麼順手俐落的兵刃，絕對是水電工作人員居家旅遊，不可或缺的良伴，只要100塊大洋，有空要去光華敗家的捧油們可以考慮帶一把回家。

遲來一週的Acer P224W箱文

Jeffrey — Sun, 28 Feb 2010 04:32:39 GMT

【註: 文中有標明[p]的連結為噗浪訊息】

故事要從2008年11月說起，家裡有一台LKK的三鳥牌17" LCD，在添購新的22"內建電視盒LCD後，高齡8歲的它在我公司的辦公桌覓得第二春，轉任工作機的第二螢幕。

時間來到半年後，7月的一天早上，17" LCD忽然出現一條血紅垂直線[p]。當時，全黑桌面背景配上紅線，還真有Canon L鏡的高級fu呢! 讓我心生莫名的虛榮感[p]~~~

可惜，代誌嘸像憨人想A哈尼甘單~~~ 兩個月後，第二條紅色線[p]冒出來了，噗友預言，線會愈來愈多，然後不久就會掛點。果不其然，第三條[p]、第四條[p]、第五條[p]陸續出現，還開始不定期出現消失加變色，我想這一定是傳說中稀有的隱藏版LCD--轉吧轉吧七彩霓虹線17"變色龍系列!!

經過一段時間磨合，螢幕線條開始穩定，固定顯示三條。AskaSu提醒我，三條槓意義非凡，這台螢幕肯定是萬中選一、全球僅有，唯一掛上尉階的LCD，從此它博得"上尉LCD[p]"的稱號。

雖然擁有一台掛階LCD挺酷的，但為了防止它無預警退役，我還是展開新LCD的Survey。一開始想衝1920*1080 FullHD解析度，一方面它是市場目前的主流，選擇多競爭大價格優，而超大的可使用桌面也有利於寫程式，只是有個問題--點距!

點距指螢幕上點與點之間的距離。在解析度相同的前題下，用個比喻，就像一模一樣兩千字的文章，印成A4大小的點距會比縮小印成B5來得大，字看起來較大，閱讀較不費力。粗略的點距算法是吋數 / (水平線數^2+垂直線數^2) ^ 0.5 / 2.54。[參考]

以我原來的工作機螢幕組合來說，19" + 17"，兩台都設成1280*1024解析度，而二者的點距就有段距離，以髮蒼蒼視茫茫中年人的標準，19"的點距(0.0294)看起來比17"(0.0263)舒適不少。若同樣是1920*1080 FullHD，22"的點距是0.0253，23"是0.0265，24"是0.0276，26"是0.0299，換句話說，要到我偏愛的1280*1024 19"點距水準，FullHD得買到26"才會符合，再不然至少也要24"。這會有兩個問題，1) 我的辦公桌硬要擠下24" or 26" + 19"的組合會猶如阿婆生子--很拼 2) 有點擔心24"/26"大尺寸LCD對近距離長期使用有點太大(一直從左到右轉頭，讀完長篇大論Word文件時不知會不會扭傷脖子 XD)

最後我決定退而求其次選1680，尺寸也退到22"。有兩個選擇: 16:9 (1680*945)或16:10 (1680*1050)? 在辦公室裡鮮少會有看16:9寬螢幕電影的需求，而垂直多出105個pixel高度，足足可以放下三條狀態列，對總是擠滿各式工具小視窗的IDE開發環境來說彌足珍貴。

確定22" 1680*1050的規格後，趁著年假逛了PCHome，發現22" 16:10的選擇並不多，不用在幾十台符合規格中猶豫不決，反而是好事一椿。篩選條件很簡單，一定要有DVI，有HDMI更好，一堆便宜的純D-Sub款式立刻出局，很快地就決定了Acer P224W(剛才發現現在標價比上週調高三百元，頓時又多了賺到的感覺，XD)，這台螢幕有24h到貨服務，順便也讓我第一次體驗到"敗家於無形"的奧義--一時意亂情迷，頭腦還來不及清醒，小黑貓就已經叼著東西在門口等您...

敗了家還沒圖沒真相是不被允許的，所以:

講完了。

什麼? 住在開封的艾凱香小姐Call In提問，為什麼只有這樣，根本就沒開箱?

咳，請大家仔細看標題，本來就說是"P224W箱文"，並不是"P224W開箱文"，到此為止也是合情合理。

使用心得還是得提一下: 經一週工作使用實測，各方面感覺良好，這是台好螢幕!

TIPS-Windows 7便利貼(自黏便箋)快速鍵

Jeffrey — Fri, 26 Feb 2010 08:21:00 GMT

Windows 7內建了桌面便利貼軟體，或許基於商標專利或其他考慮，名字有些繞口--自黏便箋。

相較於市場上其他便利貼軟體，它的功能有點陽春，介面也不怎麼順手。例如: 右鍵選單除了Copy/Paste跟換紙條底色外，找不到任何編輯文字內容的操作，也沒有工具列，一度讓我以為它只能當NotePad用。不過貼上去的內容倒是可以保留字型顏色，表示它的確支援RichText。爬了一下文，發現原來有密技! 雖然沒有按鈕工具列，但有一些快速鍵可以進行"簡單"的文字編輯操作。

Ctrl + Shift + > : 字型變大
Ctrl + Shift + < : 字型變小
Ctrl + B : 粗體
Ctrl + I : 斜體
Ctrl + T : 刪字線
Ctrl + U : 底線
Ctrl + Shift + L : 按一次項目符號(Bulleted)
Ctrl + Shift + L : 按兩次自動編號(Numbered)
Ctrl + L : 靠左對齊
Ctrl + C : 靠中對齊
Ctrl + R : 靠右對齊

很可惜，想改字型跟顏色，還是門都沒有。

如果不介意它的功能過於陽春、介面過於簡陋，Windows 7 User倒可試試這個不用安裝的內建便利貼。不過，我個人把它定位成免費奉送的小菜，針對這類需求，微軟真正的大餐是--OneNote(OneNote是Office 2003/2007的家族成員之一，不過好像知名度並不高)，操作順手、功能華麗，用過的人評價都蠻高的，有興趣的人可以試試。

【不小心找到的其他技巧】

便利貼過多時的快速排序法

POC-以jQuery實作會議室登記狀況顯示

Jeffrey — Thu, 25 Feb 2010 07:56:00 GMT

專案有個需求，要在網頁上呈現多間會議室一天的使用登記狀況。'傳統思維"可能會傾向用Table <td>模擬出時段區塊，然後將預約起迄時間範圍內的<td>用colspan併成一塊。不過如果要做到登記時間以10分鐘為單位，意味著每個小時要切割成6個<td>，即便沒有任何預約也是，讓Table充滿一堆無用又囉嗦的廢物Tag。加上計算哪幾個<td>要併在一起，得找出第一個<td>加colspan，並將後面<td>省略，演算法不怎麼單純。分析起來，這就是該用CSS取代Table做法實作Layout的經典情境。

寫了一段jQuery程式做出POC(Proof of Concept)供同事參考，示範使用DIV+CSS達成上述效果，並並盡可能簡化為呼叫函數就可以完成。一魚兩吃，PO出來供大家參考，順便蒐集諸位先進達人們的回饋指教。

//輸入起/迄整點、寬、高及是否顯示時間標題列，傳回顯示全日時段狀態的<div>

function genTimeline(startHour, endHour, width, height, incHeader) {

    $.Darkthread.tools.addDefaultStyles(".dttl_BookingBlock", {

        ".dttl_BookingBlock": {

            float: "left", position: "absolute",

            margin: "0px", padding: "0px", height: "100%",

            "font-size": "9pt", "background-color": "#dddddd",

            "border-left": "solid #444444 1px",

            "border-right": "solid #444444 1px"

},

        ".dttl_Timeline": {

            border: "solid black 1px", position: "relative"

},

        ".dttl_TimelineHeader": {

            border: "solid black 1px",

            backgroundColor: "#dddddd",

            "font-size": "8pt", position: "relative"

},

        ".dttl_SplitLine": {

            float: "left", position: "absolute",

            "border-left": "solid gray 1px",

            width: "1px", height: "100%"

});

    var $tl = $("<div class='dttl_Timeline' />");

    $tl.height(height).width(width);

    var hourWidth = width / (endHour - startHour);

    var $h = $("<div />");

    if (incHeader)

        $h.width(width).height(15).addClass("dttl_TimelineHeader");

    for (var i = startHour; i < endHour; i++) {

        var vLine =

            "<div class='dttl_SplitLine' style='left:" +

            hourWidth * (i - startHour) + "px;' />";

        $tl.append(vLine);

        if (incHeader)

            $h.append("<div>" + i + "</div>").append(vLine);

    if (incHeader) {

        $h.find("div").css({

            float: "left", margin: "0px", width: hourWidth + "px",

            textAlign: "center"

});

    var $container = $("<div class='dttl_Container' />");

    $container.append($h).append($tl)

    .data("hourWidth", hourWidth)

    .data("startHour", startHour)

    .data("endHour", endHour);

    return $container;

//display會直接顯示在方格中，可支援HTML語法

//detail以title="..."方式處理，請給純文字

//cssOption可為css屬性物件，例如: { border:"...", color:"..." }或是className

//會傳回<div> jQuery物件供後續應用

function addBooking(timeline, startTime, endTime, display, detail, cssOption) {

    if (cssOption == undefined || typeof cssOption == "string")

        cssOption = { };

    var $tl = $(timeline);

    var sh = $tl.data("startHour"), eh = $tl.data("endHour");

    //將時間先轉成小數

    var p = startTime.split(':');

    var st = parseInt(p[0]) + (parseFloat(p[1]) / 60);

    //小於startHour, 以startHour為準

    if (st < sh) st = sh;

    p = endTime.split(':');

    var et = parseInt(p[0]) + (parseFloat(p[1]) / 60);

    //大於endHour, 以endHour為準

    if (et > eh) et = eh;

    //算出起始位置及寬度

    var hw = $tl.data("hourWidth");

    var w = (et - st) * hw;

    var x = (st - sh) * hw;

    //加入顯示元素

    var $container = $tl.children("div:last");

    var $dv = $("<div class=\"dttl_BookingBlock\"/>");

    $dv.css(cssOption).css({

        left: x + "px", width: w + "px",

        opacity: 0.7

});

    $dv.html("<span style='padding: 2px;'>" + display + "</span>")

    .attr("title", startTime + "-" + endTime + "\n" + detail);

    if (typeof cssOption == "string")

        $dv.addClass(cssOption);

    $container.append($dv);

    return $dv;

以下是應用範例：

<script src="jquery-1.4.2.js" type="text/javascript"></script>

<script src="jquery.darkthread.tools.js" type="text/javascript"></script>

<script src="TimelineUtil.js" type="text/javascript"></script>

<script type="text/javascript">

    $(function() {

        var $d = genTimeline(9, 21, 800, 30, true);

        $("body").append($d);

        var $booking;

        //truncText可幫忙取前10個字

        var longText = "超長文字測試，利用truncDetail()取前10個字元";

        $booking = addBooking($d, "14:30", "17:00",

            $.Darkthread.tools.truncText(longText, 10), longText);

        //允許重疊顯示

        $booking = addBooking($d, "16:30", "20:00", "來亂的", "咬我呀!");

  //cssOption可指定CSS

        var cssOption = { backgroundColor: "green", color: "yellow" };

        $booking = addBooking($d, "09:30", "10:00", "Jeffrey",

                              "重要會議", cssOption);

        //cssOption傳入字串時，視為className

        $booking = addBooking($d, "10:30", "12:00",

                                "Meeting", "MouseOver特效", "booking");

        //addBooking會傳回<div>的jQuery物件，可進行加上hover/click事件等操作

        $booking.hover(function() {

            $(this).addClass("inverse");

        }, function() {

            $(this).removeClass("inverse");

        }).css("cursor", "pointer").click(function() {

            alert("Hi!");

});

        //產生100條時間軸各有12筆登錄，測試速度

        var $tbl = $(

        "<table cellspacing='0' cellpadding='0' style='margin-top: 10px;' />");

        for (var i = 0; i < 100; i++) {

            $tr = $("<tr><td width='10%' /><td width='90%' /></tr>");

            $tr.find("td:first").text("Room" + i);

            var $timeline = genTimeline(9, 21, 800, 30, i == 0);

            $tr.find("td:last").append($timeline);

            $tbl.append($tr);

            for (var j = 9; j < 21; j++) {

                $booking = addBooking($timeline, j + ":00", j + ":30",

                    "Test-" + i + "-" + j, "Test");

        $("body").append($tbl);

});

</script>

<style type="text/css">

    .booking

        background-color: Green;

        color: Yellow;

    div.inverse

        background-color: black;

        color: White;

</style>

【註】只是POC，防呆、檢核及彈性都很薄弱，不足處請自理!

黑暗jQuery工具包1-動態加入預設Style設定

Jeffrey — Thu, 25 Feb 2010 06:06:10 GMT

對我來說，Javascript在處理CSS上一直有一個小困擾...

一般在習慣上，為了方便開發人員修改，多半會將Style設定獨立放在.css檔案裡，應用者可視需要覆寫或修改之。但有蠻多時候，應用者根本不打算更動CSS內容，只想直接沿用預設CSS設定，但部署時還是少不了要Copy相對應的.css檔案，網頁也必須多加上<style src="...">宣告。

我總覺得，最理想的方式是將預設css與js融和在一個檔案裡。當開發者想自行定義CSS樣式，可將其寫在.css中加以引用，或在HTML中以<style>逕行宣告；若只想用預設內容，則只需參照.js就大功告成。

今天遇到類似需求，索性寫了幾個小函數，試著實現上述想法。

我的設計概念是這樣的: 先透過document.styleSheets.cssRules比對某個CSS Selector(例如: div.cCountryPicker)，若已被定義過，表示網頁已透過參照.css檔或直接宣告<style type="text/css">方式定義了div.cCounterPicker，此時就不需加入預設的div.cCountryPicker樣式規則；反之，若沒有定義該規則，則透過$("head").append("<style type=\"text/css\">....")的方式加入Style宣告。

程式碼如下:
(PS: 我規劃用jQuery.Darkthread.*蒐集我陸續開發出來的工具函數，最前面的$.extend用來將多個.js中宣告的jQuery.Darkthread.*函數彙整在一起)

/*

** Darkthread's Tools for jQuery ver 1.0 **

by Jeffrey, 2010-02-25, http://blog.darkthread.net

=======================================================

checkStyle: to check if specific style selector is defined

addStyles: add <style type="text/css"> dynamically

addDefaultStyles: if specific style selector isn't defined, add style setting

*/

jQuery.extend(jQuery, { Darkthread: {} });

jQuery.extend(jQuery.Darkthread, {

    tools: {

        //ruleSelector sample: a:hover, .myClass, #someId

        checkStyle:

        function(ruleSelector) {

            //REF: http://www.javascriptkit.com/dhtmltutors/externalcss3.shtml

            var cssCol = document.styleSheets;

            ruleSelector = ruleSelector.toLowerCase();

            for (var i = 0; i < cssCol.length; i++) {

                var rules = cssCol[i].cssRules || cssCol[i].rules;

                for (j = 0; j < rules.length; j++)

                    if (rules[j].selectorText.toLowerCase() == ruleSelector)

                    return true;

            return false;

},

        /*styleDictionary sample:

        "a:hover": { "background-color": "red", "color":"yellow" },

        "#dvTest": { "border", "solid blue 1px" }

        Note: it's for <style> declaration, not for jQuery.css, so don't use

        backgourndColor instead of "background-color"

*/

        addStyles:

        function(styleDictionary) {

            var sb = [];

            for (var selector in styleDictionary) {

                sb.push(selector + " {");

                var props = styleDictionary[selector];

                for (var p in props) {

                    sb.push(p + ":" + props[p] + ";");

                sb.push("}");

            $("head").append("<style type=\"text/css\">\n" +

                sb.join("\n") + "\n</style>");

},

        addDefaultStyles:

        function(ruleSelector, styleDictionary) {

            if (!$.Darkthread.tools.checkStyle(ruleSelector))

                $.Darkthread.tools.addStyles(styleDictionary);

});

應用方式挺簡單的，將以下的程式寫進.js，等於將預設的.css一起藏進.js裡，就不必再多搞出一個預設用途的.css檔案囉!

    $.Darkthread.tools.addDefaultStyles(".dttl_BookingBlock", {

        ".dttl_BookingBlock": {

            float: "left", position: "absolute",

            margin: "0px", padding: "0px", height: "100%",

            "font-size": "9pt", "background-color": "#dddddd",

            "border-left": "solid #444444 1px",

            "border-right": "solid #444444 1px"

},

        ".ddtl_Timeline": { border: "solid red 1px" }

});

(以上的程式碼，會在網頁本身沒有宣告.dttl_BookingBlock且所有參照的.css中也沒有該宣告時，加入.dttl_BookingBlock及.dttl_Timeline兩條CSS規則，賦與預設Style設定。)

Outlook 2007無法預覽PDF附件

Jeffrey — Tue, 23 Feb 2010 03:14:51 GMT

Outlook 2007在x64平台上無法預覽信件的PDF附件檔，會出現:

無法預覽此檔案，因為下列預覽器發生錯誤:
PDF Preview Handler for Vista
若要在本身所屬的程式中開啟此檔案，請按兩下檔案。

找到這篇文章，才知道這是Adobe PDF Preview Handler的Bug，網友們已經抱怨了兩年多，Adobe還是沒處理，於是該文章的作者就自力救濟寫出修補程式，修改Registry裡錯誤的AppID後，PDF預覽器馬上就可以使用囉~~

PS: 另外，該Fix還做了一個"32/64-bit thumbnail bridge"，一併修正了x64下檔案總管檢視時無法產生PDF內容縮圖的問題(Adobe沒出x64版的縮圖產生器)，真神人也!

升級Win2008R2後Hyper-V VM無法啟動

Jeffrey — Mon, 22 Feb 2010 00:27:34 GMT

年前將作業系統由Windows 2008升級到Windows 2008 R2，已有年後要"打地鼠"的心理準備(每日一詞: 【打地鼠】意指針對疑難雜症或系統問題，採取見一個解一個，遇到再說的鄉愿策略)，而今天打了第一隻地鼠...

啟動Hyper-V VM時出現以Microsoft Emulated IDE Controller: Failed to Power on with Error 'The system cannot find the file specified.'錯誤，導致VM無法開機。

本以為會很棘手，幸好在檢視VM設定時很快就發現可疑之處: Physical CD/DVD drive:選單出現Drive 'Not found'，而下拉選單中另有一筆Drive 'D:'應該才是正確的選項。

重設為Driver 'D:'後，VM即可順利啟動，而之後再開啟VM Setting，Driver 'Not found'選項也消失了，我的推測是升級R2後，DVD光碟機被賦與了新識別碼，而VM設定仍指向舊識別碼，導致上述問題，理論上重新設過就可解決囉。

【茶包射手手札】比蝸牛還慢的HD

Jeffrey — Sat, 20 Feb 2010 15:40:09 GMT

前一代工作機XPC SB81P自從退休後，輾轉流落到客廳，擔任起"偽家電"兼娛樂PC的角色。(老讀者們可能己見過，它在這篇文章中曾露過臉，照片左側音箱上方，巴黎鐵塔下方，我想它能二次就業多少跟黑色鏡面長相脫不了關係，沒想到俊男美女較吃香的定律在硬體界也適用)

前些時候，周遭的機器接連發生某廠牌HD集體暴斃的慘劇，它也在中鏢之列，便換了顆新硬碟WD 6400AAKS，順便把OS由XP換裝成Windows 7。這台機器我裝完機後幾乎未再碰過，平日多由黑暗女王及兩位王室小成員操作使用。在換HD升OS後，陸續接獲一些抱怨: 放YouTube影片聲音會斷斷續續、某些程式執行過程會停頓一下、跑大型遊戲程式時會當機...

趁著年假時間較有空，便在客廳扮演一下茶包射手，著手修理這台不乖的電腦。

實測播放YouTube影片，360p順暢，到480p起就偶有斷續雜音(感覺是CPU跟不上)，720p更是慘不忍睹。有點狐疑，同一台機器，之前裝XP用得還不錯，即便機器老了點(Pentium-D 935 3.2GHz + 2G RAM) ，Windows 7對硬體要求稍高，但直覺上應該不至於連YouTube影片都跑不動。

Vista/Windows 7起有所謂的效能分數檢測，是很不錯的初步評量。執行了一次，發現頗意外的結果，這顆新HD居然只有2.7分，是所有分數中最差的。啥? 最新買的裝置居然是整台機器的罩門，太不合理了!

X光照出異常，接著就該做斷層掃瞄了。找來HD專屬的測速工具--HD Tune，診斷報告一出，我~~花容失色~~大吃一驚!!

嚇! 3MB/s!! 大家評評理，SATA HD都在拼100MB/s的時代，這種速度能看嗎能看嗎?

經過一番嘗試，發現如果我把BIOS裡的On-Chip Serial ATA Setting/SATA Mode設定由AHCI調回IDE，HD速度就會改善，一舉飆上86MB/s，才是WD 6400AAKS合理的效能表現。

為何AHCI模式會導致如此不堪的HD效能數字，噗友鐵衛在噗浪提供了一些情資，不過似乎於我的狀況不太相同，由HD Tune資訊顯示，HD狀態為UDMA Mode 5。但回想起來，因為XP要換AHCI工程很大，所以AHCI倒真是安裝Windows 7時才調過來的，跟遇到HD效能問題的時點相當，坐實HD問題與AHCI設定有關的推論。

雖然未知AHCI模式導致HD效能低落的真實原因，但畢竟這是台高壽五年的老機器，若是追到最後，問題出在BIOS卻又不可能再有Update，將情何以堪? 於是我很果斷地決定"面對它、接受它、處理它(調成IDE不就好了)、放下它"，啦啦啦啦~~~

在福虎開春之際，茶包射手就用馬馬虎虎的結案態度應景一下(喂!)，順道給大家拜個晚年囉!

簡易版記憶體用量觀察工具

Jeffrey — Wed, 17 Feb 2010 01:19:49 GMT

找資料時發現GC.GetTotalMemory()這個方法，看到有些人用它來測量記憶體使用狀況，我也好奇玩了一下，包成一個MemWatch Class(比照Stopwatch的概念):

//簡易版的記憶體用量觀察工具

//  透過觀察Managed Heap的總使用量變化

//  粗略推估某段程式所耗用的記憶體大小

class MemWatch

    //比較記憶體使用量變化的基準值

    private long _lastTotalMemory = 0;

    //記憶體使用量變化

    public long MemorySizeChange = 0;

    //是否強制GC再測量記憶體用量

    private bool _forceGC = false;

    //可指定測量前是否要先做GC

    //(可排除己不用但尚未回收的記憶體)

    public MemWatch(bool forceGC)

        _forceGC = forceGC;

    public MemWatch() : this(false) { }

    //保留測量開始之基準

    public void Start()

        _lastTotalMemory =

            GC.GetTotalMemory(_forceGC);

    //測量從Start()至今的記憶體變化

    public void Stop()

        MemorySizeChange =

             GC.GetTotalMemory(_forceGC) - _lastTotalMemory;

    //記憶體使用量變化(以KB計)

    public string MemorySizeChangeInKB

get

            return string.Format("{0:N0}KB",

                MemorySizeChange / 1024);

    //記憶體使用量變化(以MB計)

    public string MemorySizeChangeInMB

get

            return string.Format("{0:N0}MB",

                MemorySizeChange / 1024 / 1024);

測試時，故意宣告指定大小的byte[]，看看結果是否如預期:

class Program

    static void Main(string[] args)

        //測試1-宣告byte陣列記憶體使用

        //利用MemWatch觀察Heap記憶體使用狀況

        MemWatch mw = new MemWatch();

        //宣告前先記錄使用前的記憶體用量

        mw.Start();

        byte[] b1 = new byte[512 * 1024];

        //宣告後再測一次

        mw.Stop();

        //會得到二次的記體變化差距為512KB

        Console.WriteLine(mw.MemorySizeChangeInKB);

        //測試2-這次宣告byte陣列後立即棄用，但不做GC

        mw.Start();

        byte[] b2 = new byte[256 * 1024];

        b2 = null;

        mw.Stop();

        //b2佔用記憶體已釋出，但尚未回收，結果為256KB

        Console.WriteLine(mw.MemorySizeChangeInKB);

        //進行下一階段測試前先強制GC

        GC.Collect();

        //測試3-同2，但換成先GC才測記憶體大小的測量模式

        mw = new MemWatch(true);

        mw.Start();

        byte[] b3 = new byte[256 * 1024];

        b3 = null;

        mw.Stop();

        //MemWatch測量時會先將b2釋出的記憶體回收，故結果為0KB

        Console.WriteLine(mw.MemorySizeChangeInKB);

        Console.Read();

補充:

GC.GetTotalMemory()只能取得Managed Heap部分的大小，若變數耗用的是Stack部分的記憶體(例如: Value Type)，則不在量測範圍內。
GetTotalMemeory()只能量測總耗用量，無法精準指出特定變數/物件所耗用記憶體大小。
MemWatch預設會包含配置後棄用但尚未被GC機制回收的記憶體量，若要強制回收可自行呼叫GC.Collect()或用MemWatch(true)建構式啟用強制回收模式。注意，這裡是因測試需要才自行操作GC回收，實務上應避免在程式中自行呼叫GC.Collect()，最好交由.NET Runtime自行決定何時進行回收，較有利於整體效能。
Compiler常會針對程式碼進行最佳化(例如: 忽略只宣告但完全未使用的物件、改變程式執行順序以改善效率...等等)，因此當執行結果與預期出入很大時，可研究看看是否與最佳化有關。

升級Windows 2008 R2!!

Jeffrey — Thu, 11 Feb 2010 01:48:09 GMT

Windows 2008 R2已上市好一段時日，我現在工作桌機的OS是Windows 2008 x64(翻了一下日記，是一年多前裝的)，雖然蠻想升級R2嘗鮮，但礙於更換OS茲事體大，若安裝升級過程發生不測，重新安裝/還原工作環境工程浩大，手上工作就都得停擺了。

趁著有一星期年假可以做為緩衝，前陣子我就偷偷策劃，打算趁過年把OS升級到R2，一併除舊佈新一番。過去升級OS我都是重新安裝再搬檔案，砍掉重練感覺比較乾淨俐落。但這回想偷懶，決定第一次試試"就地升級"的OS安裝法。

昨天部門吃尾牙，出發前我啟動了安裝程式(注意: 要先將所有Hyper-V VM Shutdown)，接著下一步下一步地進入升級程序(畫面上還很貼心地提供了進度跟處理檔案數)，不打算坐在電腦前枯等，就開開心心吃尾牙去~~

尾牙結束回到辦公室，電腦已裝好重開完畢，等待我登入的已經是Windows 2008 R2 x64了，登入後系統環境大致如常，真是讓人愉悅的安裝經驗呀!!

今天小小實地用了一下，微調了幾個小地方:

IE8會復原成原始設定(但我的最愛會保留)，首頁設定、Cookie等也會被清除
預設沒有聲音，要先Enable Audio Service
發現不能使用Windows 7 Aero Theme，爬了文發現是因為Theme Service被Disabled的原因。
我還是很習慣在工作列直接點小圖示啟動程式，所以花了點功夫Add Quick Launch Toolbar

感覺上原來的工作環境已完整被搬來R2，其他問題就等遇到再用打地鼠法解決吧!

CODE-Convert Text to PDF in C#

Jeffrey — Tue, 09 Feb 2010 05:12:49 GMT

透過程式直接將Text內容轉換成PDF的程式範例，寫來給其他組同事做為系統整合模組開發參考，順便PO文備忘。

要在.NET轉PDF，當然少不了大家都說讚的iTextSharp，程式很簡單，我還順手加了一個遇到"\f" (0x0C) Form Feed符號就強制換新頁的功能。

<%@ Page Language="C#" %>

<%@ Import Namespace="iTextSharp.text" %>

<%@ Import Namespace="iTextSharp.text.pdf" %>

<%@ Import Namespace="System.IO" %>

<script runat="server">

    protected void btnConvert_Click(object sender, EventArgs e)

//REF: http://www.codeproject.com/KB/graphics/iTextSharpTutorial.aspx

        Document doc = new Document(PageSize.A4.Rotate());

        using (MemoryStream ms = new MemoryStream())

try

                PdfWriter.GetInstance(doc, ms);

                doc.Open();

//中文字型問題REF

//http://renjin.blogspot.com/2009/01/using-chinese-fonts-in-itextsharp.html

                string fontPath =

                    Environment.GetFolderPath(

                    Environment.SpecialFolder.System) +

                    @"\..\Fonts\kaiu.ttf";

                BaseFont bfChinese = BaseFont.CreateFont(

                    fontPath,

                    BaseFont.IDENTITY_H, //橫式中文

                    BaseFont.NOT_EMBEDDED

);

                Font fontChinese = new Font(bfChinese, 8f, Font.NORMAL);

                StringReader sr = new StringReader(txtInput.Text);

                string line = null;

                while ((line = sr.ReadLine()) != null)

                    string[] p = line.Split('\f');

                    foreach (string s in p)

                        doc.Add(new Paragraph(s, fontChinese));

                        if (p.Length > 1) //表示有換頁符號

                            doc.NewPage();

            catch (DocumentException de)

                Response.Write(de.Message);

                Response.End();

            catch (IOException ioe)

                Response.Write(ioe.Message);

                Response.End();

            doc.Close();

            //Output PDF

            Response.Clear();

            Response.ContentType = "application/octet-stream";

            Response.AddHeader("content-disposition",

                "attachment;filename=output.pdf");

            Response.BinaryWrite(ms.ToArray());

            Response.End();

</script>

<html xmlns="http://www.w3.org/1999/xhtml">

<head runat="server">

    <title>Text to PDF demo</title>

</head>

<body>

    <form id="form1" runat="server">

    <div>

    <asp:TextBox ID="txtInput" runat="server" Height="600px" TextMode="MultiLine"

            Width="800px"></asp:TextBox>

    <br /><asp:Button ID="btnConvert" runat="server" onclick="btnConvert_Click"

            Text="Convert to PDF" />

    </div>

    </form>

</body>

</html>