2014年3月30日 星期日

新竹 金山街 巨無霸牛排

今天很想吃牛排,找到這一篇 新竹‧巨無霸牛排館~平價舒適牛排館,去吃吃看。
點了巨無霸牛排,份量超大。口味是台式的,稍甜。
重點的牛肉,感覺太軟了一點....

2014年3月27日 星期四

Access 2007 VBA split string

Reference:
http://www.access-programmers.co.uk/forums/showthread.php?t=93745

Dim strText, strParts() As String
strText = "1,2,3,4,5,6"
strParts = Split(strText, ",")
MsgBox strParts(2)

Access 2007 VBA read data from CSV file

Reference:
http://stackoverflow.com/questions/11275356/vba-procedure-to-import-csv-file-into-access
http://msdn.microsoft.com/en-us/library/office/ff835958(v=office.15).aspx
http://www.access-programmers.co.uk/forums/showthread.php?t=57882
http://bytes.com/topic/access/answers/902423-how-delete-tables-using-vba-within-access-2007-database

Dim fDialog As Object
Dim rst As New ADODB.Recordset
For Each tbl In CurrentDb.TableDefs
     If InStr(tbl.Name, "tblImport") Then
         CurrentDb.TableDefs.Delete (tbl.Name)
     End If
Next tbl
myFileName = "c:\tmp\0327.csv"
DoCmd.TransferText TransferType:=acLinkDelim, TableName:="tblImport", FileName:=myFileName, HasFieldNames:=False
rst.Open "tblImport", CurrentProject.Connection, adOpenKeyset
'有 adOpenKeyset 才能正確取得 RecordCount
rst.MoveFirst
MsgBox rst.Fields(0)
MsgBox rst.RecordCount
rst.Close
Set rst = Nothing

2014年3月26日 星期三

Access 2007 VBA show “Open File” Dialog

Reference:
http://stackoverflow.com/questions/1091484/how-to-show-open-file-dialog-in-access-2007-vba
http://msdn.microsoft.com/en-us/library/office/ff196794(v=office.15).aspx
http://msdn.microsoft.com/en-us/library/office/ff865284(v=office.15).aspx

    Dim fDialog As Object
    Set fDialog = Application.FileDialog(3)     '3 = msoFileDialogFilePicker
    With fDialog
        .Show
        If (.SelectedItems.Count > 0) Then
            FileName = .SelectedItems(1)
            MsgBox (FileName)
        End If
    End With

perl hash print all values

Reference:
http://alvinalexander.com/blog/post/perl/how-print-values-items-elements-perl-hash

#!/usr/bin/perl

# create our perl hash

$prices{"pizza"} = 12.00;
$prices{"coke"} = 1.25;
$prices{"sandwich"} = 3.00;

while (($key, $value) = each (%prices))
{
  print "$key costs $prices{$key}\n";
}

2014年3月20日 星期四

AsteriskNow SIP VOIP

SIP server:
AsteriskNOW IP PBX

SIP client on Windows:
3CXPhone 6 for Windows

SIP client on Android:
Zoiper SIP VOIP Softphone

遠端桌面 全螢幕 連線列

有人不小心把紅框的打勾拿掉的話,把滑鼠移到螢幕最上面連線列也不會出現。

解法:
可以用CTRL + ALT + BREAK 叫回。(http://support.microsoft.com/kb/308653/zh-tw)


2014年3月18日 星期二

2014年3月17日 星期一

Wireless roaming WDS 無線網路漫遊

設備:
Tenda W3002R, Tenda W309R

設定步驟:
http://www.tenda.com.cn/tendacn/support/show.aspx?articleid=2057

WDS設置特點:兩台路由器的SSID無線信號名稱、信道和無線密碼必須是一樣的!

剛設定完成,在 W309R 附近測試正常,但是在 W3002R 附近就常常會停在 "驗證密碼" 或 "取得 IP 中"。

最後更新了兩台的韌體,才穩定了一些。
W309R 韌體
W3002R 韌體

但是如果 W309R 重開機似乎會造成 W3002R 驗證密碼問題,把 W3002R 重開機一次狀況可以解除。

看來 wireless WDS 似乎還不穩啊。

2014年3月13日 星期四

perl pos function to parse directory path

目地:從 file full path 取出 directory

$backup_file = "D:/Auto/aaa/bbbb/20121121.xls";
while ($backup_file =~ /\//g) {
$dir_end = pos($backup_file);
}

$bakdir = substr($backup_file, 0, $dir_end);
print $bakdir;

Reference:
http://blog.xuite.net/abliou/perl/23232393

2014年3月12日 星期三

台灣光罩 TMC e-Jobview in Windows 7

TMC e-Jobview 網頁只提供 32bit OS (Windows XP) 的連線方式,但是 Windows XP 2014/04 就不再提供更新服務,公司電腦已經都升級到 Windows 7 (64bit),用 TMC 提供的方法無法連線。

解法:
使用 Sun Secure Global Desktop Native Client for Windows 7
Location 欄位:http://202.39.250.24/tarantella/


2014年3月10日 星期一

Excel 2007 合併儲存格 + 自動換列

Reference:
Automatic Row Height For Merged Cells with Text Wrap

狀況:
Excel 的 合併儲存格 + 自動換列 會只顯示一行,必須自己把列高拉開。

解法:
如果合併儲存格是 A1,另外找一個儲存格 G1 內容設定為 =A1,並把 G1 設定為 自動換列。
這樣就可以把 A1 的列高自動 "撐開"。