2014/6/15 跑步

跑完隔天感覺左邊髖關節有點酸。

2014/6/14 台北一日遊

午餐：ゆで太郎Yudetarou蕎麥麵

Windows 7 附檔名 關聯 變更

狀況：
有好幾次遇到 OrCAD .dsn 開啟的問題，安裝 OrCAD 新版本後開啟 .dsn 還是用舊版開啟。

一般解法：

進階解法：
用 regedit 刪除 [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts] 裡面的 .dsn

終於搞定的方法：
OrCAD .opj 可以正常用新版開啟。將 regedit 的 [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts] .opj 匯出成 ext.reg，修改 ext.reg 的內容把 .opj 全部換成 .dsn，再執行 ext.reg 匯入 registry。終於搞定了。

perl csv to excel saveas overwrite

Reference:
http://www.perlmonks.org/bare/?node_id=823261

use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';

# global setting
$Win32::OLE::Warn = 3; # die on errors...
# get already active Excel application or open new
my $Excel_to_write = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit');
$Excel_to_write->{SheetsInNewWorkBook} = 1;
$Excel_to_write->{Visible} = 1;
$Excel_to_write->{DisplayAlerts} = 0;

my $Book_to_write = $Excel_to_write->Workbooks->Add;
my $Sheet_to_write = $Book_to_write->Worksheets(1);
open (CSV, "C:/tmp/ASSY.CSV");
$col = $row = 1;
while (<CSV>) {
chomp;
my @line = split(",",$_);
for $cell (@line){
$Sheet_to_write->Cells($row,$col)->{'Value'} = $cell;
$col++;
}
$row++; $col = 1;
}
close(CSV);
$Book_to_write->SaveAs( {
Filename => "C:\\tmp\\Assy.xls",
FileFormat => xlWorkbookNormal}
);
$Book_to_write->Close;

颱風防災 汽車 氣墊

突然下大雨造成淹水的狀況越來越多，如果可以 "快速" 把汽車變成汽艇，那就太好了。

 大雨造成淹水的新聞
雨襲中南部　水淹嘉義宛如海水浴場

汽車變汽艇，可惜充氣太慢了。
颱風防災.泡水車.吳書契.汽車救生艇防泡水車.汽車浮墊.汽車防護套

2014 員工健康檢查結果

今年紅字變多了..... 看來我吃肉練肌的計畫沒辦法再執行了....

每天吃兩顆蛋(含蛋黃)，總膽固醇還在參考值內。

紅字：
肝內血管瘤 1.9cm (去年的輕度脂肪肝消失了)
(肝膽功能)轉氨酵素sGPT: 57 (參考值 0 ~ 40)
(肝膽功能)血清麩丙酸磚安酵素: 64 (參考值 7 ~ 55)
(腎功能)肌酸酐: 1.39 (參考值 0.7 ~ 1.3)
(腎功能)尿酸: 8.5 (參考值 3.5 ~ 7.5)

Android 照相 APP

A Better Camera 照像效果不錯。