LENDIEN聯電 冷暖 清淨 除溼 移動式空調 9000BTU任天堂-Switch-NS-公司貨主機-豪華全配組LG樂金 WIFI遠控雙眼小精靈掃地清潔機器人變頻版

2009年6月30日 星期二

過期的新菜


這是端午節那時候園藝達人試的新菜色,電視上學來的
裡面就是放了鹹蛋黃、豆子、紅蘿蔔(吧)、雞蛋

做法:
先把雞蛋外的料先丟進生的花枝身體裡,不用塞太滿。
然後把雞蛋打散,加點鹽,倒入花枝裡。倒進去的時候要稍微擠壓花枝,讓蛋液能流到最下面。
把花枝的開口用牙籤封起來,放進鍋子裡蒸熟。


蒸熟後很多雞蛋都逃了,看了有點傻眼,不過據說是一定會這樣,真是好可惜啊!

2009年6月29日 星期一

用excel巨集刪除重複資料

這是今天做的,感覺挺實用。

=================================================
Sub DelDups_TwoLists()
Dim iListCount As Integer
Dim iCtr As Integer
Dim sheetA_Name As String
Dim sheetB_Name As String
Dim sheetA_Range As String
Dim sheetB_Range As String

' Turn off screen updating to speed up macro.
Application.ScreenUpdating = False

sheetA_Name = Sheets("rule").Cells(1, 1)
sheetA_Range = Sheets("rule").Cells(1, 2)
sheetB_Name = Sheets("rule").Cells(2, 1)
sheetB_Range = Sheets("rule").Cells(2, 2)

' Get count of records to search through (list that will be deleted).
iListCount = Sheets(sheetA_Name).Range(sheetA_Range).Rows.Count

' Loop through the "master" list.
For Each x In Sheets(sheetB_Name).Range(sheetB_Range)
' Loop through all records in the second list.
For iCtr = 1 To iListCount
' Do comparison of next record.
' To specify a different column, change 1 to the column number.
If x.Value = Sheets(sheetA_Name).Cells(iCtr, 1).Value Then
' If match is true then delete row.
Sheets(sheetA_Name).Cells(iCtr, 1).Delete xlShiftUp
' Increment counter to account for deleted row.
iCtr = iCtr + 1
End If
Next iCtr
Next
Application.ScreenUpdating = True
MsgBox "Done!"
End Sub
=================================================

程式其實是從M$網站上co下來的,只改了資料來源設定方式
sheetA_Name,sheetA_Range分別是母資料的sheet名稱跟資料範圍
sheetB_Name,sheetB_Range分別是子資料的sheet名稱跟資料範圍
這四個值透過rule這個sheet的A1,B1,A2,B2來設定,然後巨集執行後,就會把母資料的欄位中跟子資料重複的資料刪掉。

不過執行時間比原先預期的要久,才少少三千多筆的母資料跟八百多筆的子資料,跑這個巨集就要一分多鐘的時間,真的相當出乎意料啊!

如果資料再多個兩三倍,不知道要不要搞來一台超級電腦?

2009年6月26日 星期五

設定與mysql連線所使用的語系

其實是之前就有遇過的問題,但是因為以前有前人寫好語法就直接copy沒有記,直到昨天有需要又找不到哪裡有用過,才認真的找了一下資料。

簡單的說,會遇到這個問題是因為資料庫使用的語系與程式預設與mysql連線時要使用的語系不一樣,這會造成中文字在mysql裡是正常的,但透過php抓出來的卻是問號。解決這樣的問題依php版本不同有不同的方式。

php5:mysql_set_charset(charset,resource)
php4:mysql_query('SET NAMES charset', resource)

範例:假設連線時要設定語系為utf8


//建立與mysql db的連線
$dbConnection=mysql_connect("localhost","acc","password");
//選擇要操作哪一個資料庫
mysql_select_db("dbname",$dbConnection);

//如果是php5
mysql_set_charset('utf8',$dbConnection);
//如果是php4
mysql_query('SET NAMES utf8', $dbConnection);


這樣子把資料庫裡的中文字抓出來時,就會正常顯示了。


中文還真是麻煩的東西啊!

2009年6月22日 星期一

阿弟,坐穩了!


前陣子抱著忐忑又期待的心情去綠葉方舟,看到上面那張很多人都有拍的迷路麋鹿,發現怎麼只剩一隻(別人拍的都是一對),後來抬頭四處望,發現另一頭麋鹿才剛騎腳踏車趕來,還在停車啦!

其實也不知道對喜歡攝影的懲罰事件對綠葉方舟的影嚮有多少,不過就這次去的感覺,似乎沒有網站上講的生意那麼好,有可能是天氣不好,也有可能是早上真的人比較少。雖然這裡號稱是很多婚紗攝影的地點,但進去繞了一圈之後,覺得……還好,不知道人家在這裡拍婚紗是取哪些景?

這天天氣很剛好,沒下雨的時候就是晴天,吃飯的時候下了一場雨,涼了一點,也剛好花一次門票就看到這個地方的兩種風景(所以以後不用來了)。

2009年6月15日 星期一

高速公路車道使用規定

在台灣,用路習慣還有很大的改善空間,所以來宣導一下高速公路車道使用規定



為什麼特別貼高速公路的呢?因為常常遇到占用中間車道的慢車,會開的很不開心。
宣導重點從「快速車行駛內側車道」改為「慢速車行駛外側車道」已經有很常一段時間了,但大多數的人其實一點都不在意,也有許多人是根本沒有注意到。除了知道大客車要行駛外側車道外,小客車駕駛還有部份人是自己愛開哪一道就開哪一道,管他車速是一百還八十,其實這種隨性的開法,會造成很多人的困擾,也很危險,必竟大家車速都很快,一有狀況就會很嚴重。
馬路是大家的,應該要互相尊重才是。

2009年6月9日 星期二

野外求生



在野外其實我比較想吃素……

2009年6月5日 星期五

幾個常用的mime type

gif:image/gif
htm:text/html
jpg:image/jpeg
swf:application/x-shockwave-flash
txt:text/plain
xls:application/vnd.ms-excel
doc:application/msword
ppt:application/vnd.ms-powerpoint
wav:audio/x-wav
avi:video/x-msvideo
exe:application/octet-stream
mpg:video/mpeg
mvb:application/x-msmediaview
pdf:application/pdf
zip:application/zip

2009年6月1日 星期一

所以呢?

話說昨天去參加了一場喜宴,一群畢業生跟在哈啦,忽然間,一個畢業生家屬提到另一位大家後來跟他感情不怎麼好的畢業生,問那位怎麼沒來,只見大家內心閃過一陣尷尬,嗯嗯啊啊的帶過。不過主角的回答倒是很有趣,人家問他某a有沒有要來,他馬上回某a不會來,人家再問他某a怎麼不來,他嗯嗯啊啊後回:因為我沒發帖子給他……

這個故事告訴我們,如果已經脫離一個小圈圈太久,再回去的時候最好關心一下眼前成員狀況,而不是一直懷念過去。