捐血一袋救人一命

http://www.nationalgallery.org.uk/

英國國家美術館

英國倫敦市中心特拉法加廣場北側的美術館

千燈 十眼橋

水鄉千燈

千燈 夕照

水鄉千燈

千燈 河道

水鄉千燈

和歌山 紅葉溪庭園

日本和歌山城

2016年12月2日 星期五

Wordpress prettyPhoto PlugIn

Pretty Photo PlugIn

這個 Plug In 是一個簡單的秀圖擴充功能,使用也很簡單

只要在超連結標籤 a 的屬性裡加上 rel="prettyPhoto" 即可

例如:

<a href="大圖路徑" rel="prettyPhoto" title="圖片描述"><img src="縮圖路徑" width="60" height="60" alt="縮圖替代文字" /></a>

或是在 Shortcode 前後加上超連結標籤也可以。

<a href="大圖路徑" rel="prettyPhoto" title="圖片描述">[caption id="attachment_165" align="alignnone" width="200"]</a>

Pretty Photo PlugIn 應該是在頁頭插入 Javascript 程式,一載入網頁就會檢查所有超連結是否有 rel="prettyPhoto";如果有就綁定Show 圖程式在該元素上。

2016年11月24日 星期四

針對特定 Post/Page/Porfolio 定義 CSS 樣式

每一篇 post 或是 page 或是其他頁面型態,都會有一個獨一無二的 ID代碼。

如果要想針對特定頁面定義 CSS,不想影響全部的頁面的話,可以利用 Google Chrome Browser,利用它先找到你要定義 CSS 的目標,然後在該 element 上按下滑鼠右鍵,選擇 Copy → Copy Selector,然後去 wordpress 的 佈景主題樣式表 style.css 中,去新增你的定義!

例如:

#post-721 > div > div > div > a.title{
        display:block;
        width:150;
}

#post-721 > div > div > div{
        display:block;
        float:left;
        width:33%;
}

#post-721 > div > div > div:hover{
border: 1px solid #021a40;
padding: 1px;
}
#post-721 > div > div > div{
border: 0px;
padding: 0px;
}

如何修改 Continue reading 文字

首先要去查一下佈景主題裡 哪裡呼叫執行,通常是在 functions.php

add_filter( 'get_the_excerpt', 佈景主題自定的 Reading More函式名稱' );
add_filter('excerpt_more', 佈景主題自定的 Reading More函式名稱');
add_filter('the_content_more_link', 佈景主題自定的 Reading More 函式名稱');

以上三個是佈景主題呼叫 add_filter 去修改 wordpres 內定 Read more 文字。
如果有發現的話,記下佈景主題的函式名稱,
然後在 functions.php 程式碼最後呼叫執行對應的

remove_filter( 'get_the_excerpt', 佈景主題自定的 Reading More函式名稱' );
remove_filter('excerpt_more', 佈景主題自定的 Reading More函式名稱');
remove_filter('the_content_more_link', 佈景主題自定的 Reading More 函式名稱');


接下來寫好自定 Read More 函式,再去呼叫 add_filter,讓你自定的函式與 wordpress 掛勾(hook)

例如:在 Twenty Eleven 佈景主題

remove_filter( 'excerpt_more', 'twentyeleven_auto_excerpt_more' );

function my_excerpt_more($more) {
    global $post;
    return '<a class="moretag" href="'. get_permalink($post->ID) . '">繼續閱讀</a>';
}
add_filter('excerpt_more', 'my_excerpt_more');

remove_filter( 'get_the_excerpt', 'twentyeleven_custom_excerpt_more' );

function my_continue_reading_link() {
    return ' <a class="moretag" href="'. esc_url( get_permalink() ) . '">' . __( '繼續閱讀 <span class="meta-nav">&rarr;</span>', 'twentyeleven' ) . '</a>';
}

function my_custom_excerpt_more( $output ) {
    if ( has_excerpt() && ! is_attachment() && ! is_admin() ) {
        $output .= my_continue_reading_link();
    }
    return $output;
}
add_filter( 'get_the_excerpt', 'my_custom_excerpt_more' );

PS.如果佈景主題本身有定義 Read More 文字,你卻沒呼叫 remove_filter ,會造成新舊 Read More 文字都同時出現。

2016年9月26日 星期一

勇者鬥惡龍5攻略簡述

遊戲攻略概述

整個遊戲分成三階段

  1. 幼兒期5歲~跟著父親帕帕斯王到處冒險
    • 收刮船上物資
    • 聖玫瑰村中山洞救道具店老闆,獲得聖玫瑰石及聖原石(等壯年期可在艾爾赫文找到工匠打磨成聖寶石,名產品之一,可鑲在亨利王子送的音樂盒上)
        小技巧:
      • 練到 Level 5 以上,學會荷依米治療,且生命至少有 20 點以上(怪物大木鎚會經常出大招),再繼續往下層探險
    • 從阿爾卡帕村與碧安卡一起到XXX城解放鬼魂,取得金色寶珠,殺人豹加入同伴
        小技巧:
      • 多買些氣味袋,縮短練功時間
      • 大約練到 Level 10 ,就可以很輕鬆打敗鬼魂老大
    • 到妖精之村協助取回春風長笛,獲得櫻花樹枝(名產品之一,沒其他用途)
        小技巧:
      • 大約練到 Level 15 就可以輕鬆打敗怪物變成的雪之女王
      • 雪之國的城堡外面左邊有寶箱
    • Level 20~到古代遺蹟拯救亨利王子~父親帕帕斯被蓋瑪殺死,主角及亨利被蓋瑪擄去當奴隸
        小技巧:
      • 多準備一些氣味袋,在古代遺跡中盡快找到帕帕斯,陪同一起練功,帕帕斯生命、醫療法術用不完,而且會幫忙打怪
  2. 青年期15歲~
    • 從大神殿逃出~到修道院,取得木雕女神像(裝備後幸運值上升)
    • 告別瑪麗亞,與亨利一起踏上返鄉歸途
    • 在聖果鎮跟怪物爺爺談話,去神諭之屋買馬車
        小技巧:
      • 雙六遊戲券別急著去玩,你可以存檔後去玩玩看,瞭解一下這是什麼樣的遊戲,然後直接跳出遊戲,再重新載入
      • 所有遊戲券累積到最後,去暗黑雙六台玩,終點是名人卡,有名人卡以後玩雙六都不用券
      • 最後只要留一張雙六券,用來完成回憶項鏈(名產品之一,沒其他用途)
    • 到聖玫瑰村中山洞取回父親遺物,帕帕斯之劍、帕帕斯的信
        小技巧:有幾隻怪物必須要抓,後面遊戲會比較輕鬆
      • 史萊姆
      • 史萊姆騎士:對冰系及火系法術有基本抗性,此外能使用多數裝備,例如:斬龍劍(對龍系怪物傷害加倍)、淺眠之劍(對隱藏魔王艾斯塔克很有效)、風雪之劍(對大魔王米爾德拉斯很有效)
      • 雪人:冰系怪物,升級有點慢,等到學會冰雨特技,就可以不花MP打怪,尤其是取得火之戒指時就很好用。
      • 迷你龍:火系怪物,升級有點慢,等到學會火燄氣息,就可以不花MP打怪
      • 邪惡蘋果/青果怪:風系怪物,升等快,可以馬上協助練功,但只能升到20級,所以要搭配其他怪物
    • 到萊茵海特城認親~
    • 到神之塔→修道院→取得太陽神鏡
    • 到萊茵海特城殺掉假太后
    • 搭船到波特卡密爾
    • 在波特卡密爾酒店救人
    • 到卡波奇村西邊洞窟領回殺人豹,記得要把碧安卡的緞帶放在主角身上! 對戰時使用緞帶即可
    • 到卡波奇村長家領賞
    • 到魯拉菲爾學習法術
    • 取得魯拉月草
    • 取得魯拉菲爾的地方酒(名產品之一,沒其他用途)
    • 到薩拉波納鎮求親
    • 取得火之戒指
        小技巧:
      • 多準備些氣味袋,洞窟中有全體復原的神壇,很適合練功
      • 洞中怪物怕冰系法術,記得在萊茵海特城要先抓隻雪人
    • 到深山之村找回碧安卡(在阿爾卡帕2樓露台,老人會透露碧安卡搬到哪去)
    • 帶碧安卡一起去取得水之戒指,如果碧安卡太弱,進山洞前調整隊伍,不要讓碧安卡在隊伍即可
    • 新娘三選一(碧安卡、狄波拉、芙蘿拉)
      • 碧安卡對話態度感覺像是姊弟
      • 狄波拉對話態度感覺像是主僕
      • 芙蘿拉對話態度感覺像是夫妻
      • 這三個人物的素質影響不大,因為剛結婚加入隊伍時,人物太弱,只能放在馬車中升等,不能放出來戰鬥。
      • 等練的差不多了,又會被魔物擄去、石化
      • 等到主角壯年期後期救回時,人物強度跟不上隊伍,也只能放在馬車中升等。
      • 三位新娘必要的法術都會有
      • 選狄波拉或是芙蘿拉當妻子,魯德曼會在遊戲過程中送些武器、裝甲、錢
        • 特魯帕多爾
        • 前往齊索特村的山道
        • 壯年期夜間在卡波奇村
        • 壯年期跟魯德曼的老婆對話,會給 5000元零用錢…
    • 獲得紅白包子(名產品之一,沒其他用途)
    • 獲得天空之盾
    • 收集名產~成為博物館長
    • 前往格蘭巴尼亞國
    • 在二樓左下角酒吧裡的空位,找到一顆怪物象棋,交給最左邊的士兵,就可以獲得怪物象棋(名產品之一,沒其他用途)
    • 取得王家之證~成為國王
    • 老婆被魔物擄走
    • 在大臣房中取得飛天鞋
    • 在城堡左上角房間取得怪物象棋(這是取得怪物象棋的最後機會,如果被石化後再被兒子女兒救回就沒辦法取得了)
    • 救老婆不成~被石化
  3. 壯年期3X歲~
    • 被兒子、女兒救回
    • 臨行前佣人交給主角帕帕斯的遺物-回憶項鏈(名產品之一,沒其他用途,目前是空的,沒畫像)
    • 回母親故鄉艾爾赫文,取得魔毯及魔法鑰匙;把聖原石加工琢磨成聖寶石
    • 前往天空之塔塔頂,取得岩漿法杖
    • 從地下遺跡洞窟前往天空城
    • 前往妖精之村,取得妖精號角
    • 前往妖精之城,回到過去的聖玫瑰村,以發光寶珠換走金色寶珠
    • 返回天空城
    • 前往波布爾塔~救龍王
    • 前往大神殿救老婆,取得生命戒指
    • 前往海中神殿,進入魔界,取得賢者之石
    • 前往賈漢納,練功
    • 前往暗黑雙六~取得名人卡
    • 前往各地雙六
    • 前往邪惡山脈,打敗蓋瑪及大魔王米爾德拉斯
    • 前往妖精之城,從二樓右翼畫中,進入過去的艾爾赫文,先去長老樓上閣樓,跟士兵對話,再去旅店跟老闆對話,再去找閣樓士兵,使用雙六遊戲券,士兵就會離開;接著去工匠室,跟帕帕斯及畫師對話,離開艾爾赫文回到現實;跟妖精之城一樓右後方歷史學者對話,再去妖精之村一樓圖書館裡的妖精對話,取得妖精的羽毛筆;連同象牙墨水一起帶在身上,再回到妖精之城二樓右翼畫中,進入過去的艾爾赫文,跟帕帕斯對話,把妖精的羽毛筆以及象牙墨水一起借給帕帕斯。再去瑪薩的房間跟所有人對話,離開過去的艾爾赫文,再從畫中進入過去的艾爾赫文,然後去工匠房找到畫師,取回妖精的羽毛筆及象牙墨水(此時回憶項鏈已自動完成畫像)
    • 前往邪惡山脈南面的沼澤迷宮
    • 前往迷之雙六
    • 取得暗黑獎盃(名產品之一,沒其他用途)

貼心提醒:

  1. 青年期之後,古代遺跡就完全沒怪物了,所以建議在幼童期,多多打怪,這樣怪物圖鑒才會有記錄。
  2. 青年期在打敗萊茵海特的假太后之後,神之塔就無法再進入(因為瑪麗亞會跟亨利一起脫隊結婚),所以寶物一定要拿完,怪物也要多打。
  3. 到壯年期之後,萊茵海特的地下通道也會無法進入(木筏會消失,皇宮中庭樓梯會消失),記得寶物要拿完
  4. 在青年期要救老婆之前,一定要記得先取得怪物象棋,壯年期就無法取得了。
  5. 玩雙六最好是等拿到暗黑獎盃之後,因為某些格子會永久降主角的基本屬性。
  6. 玩雙六最好身上多帶些錢,因為某些格子是道具店,可以買到特別的裝備!例如:星降手環。

2016年4月8日 星期五

Excel 連接 MS SQL 資料庫VBA巨集程式

Sub connectSQL()
    Dim Conn As ADODB.Connection
    Dim sConnect As String
    Dim strSqlInstance As String
    Dim strSqlDB As String
    Dim strSqlUser As String
    Dim strSqlPWD As String
    ' strSqlInstance = "SERVER_NAME\INSTANCE"
    ' 如果伺服器只有裝一次 SQL,就只要輸入伺服器名稱
    strSqlInstance = "Your SQL Server Name or IP Address"
    strSqlDB = "Your Database Name"
    strSqlUser = "sa"
    strSqlPWD = "password"
    sConnect = "Provider=SQLOLEDB"
    sConnect = sConnect & ";DATA SOURCE=" & strSqlInstance & ";Initial Catalog=" & strSqlDB
   ' 如果把 User ID=...;Password=... 改成 "Integrated Security=sspi;",認證方式就變成 AD 登入帳號
    sConnect = sConnect & ";User ID=" & strSqlUser & ";Password=" & strSqlPWD & ";"
    Set Conn = New ADODB.Connection
    Conn.ConnectionString = sConnect
    Conn.Open
   ' 這裡輸入你處理 SQL 的命令
    Conn.Close
End Sub


實際範例:

Sub GetTableValues()
    Dim Conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim intColCounter As Integer
    Dim sConnect As String
    Dim strSqlInstance As String
    Dim strSqlDB As String
    Dim strSql As String
    Dim strWorkSheet As String
   
    strWorkSheet = "工作表1"
    strSqlInstance = "Your SQL Server Name or IP Address"
    strSqlDB = "Your Database Name"
    strSqlUser = "sa"
    strSqlPWD = "password"

 
    sConnect = "Provider=SQLOLEDB"
    sConnect = sConnect & ";Data Source=" & strSqlInstance & ";Initial Catalog=" & strSqlDB
    sConnect = sConnect & ";User ID=" & strSqlUser & ";Password=" & strSqlPWD & ";"

    Set Conn = New ADODB.Connection
  
' strSql 設定為查詢資料表的 SQL 命令字串 
    strSql = "SELECT * FROM dbo.Asset"

    ' 把資料都放進 rs 資料集合(Recoredset)
    With Conn
        .ConnectionString = sConnect
        .CursorLocation = adUseClient
        .Open
        .CommandTimeout = 0
        Set rs = .Execute(strSql) 
    End With

   
' 清除 Excel 工作表內容
    Worksheets(strWorkSheet).Cells.Clear
    ' 如果 rs 資料集的資料筆數屬性大於 0
    If rs.RecordCount > 0 Then
        ' 從 A1 格,開始輸出欄位名稱(橫向 Row)
        For intColCounter = 0 To rs.Fields.Count - 1
           Worksheets(strWorkSheet).Range("A1").Offset(0, intColCounter) = rs.Fields(intColCounter).Name
        Next
        ' 在 A2 格,一次輸出所有資料內容
       Worksheets(strWorkSheet).Range("A2").CopyFromRecordset rs
    Else
        MsgBox ("找不到數據")
    End If
    rs.Close
    Conn.Close
    Set rs = Nothing
    Set Conn = Nothing
End Sub

2016年3月25日 星期五

SharePoint Online 人員及群組欄位設定說明

這裡指的群組,是指網站的權限群組!不是指Office 365管理員裡的外部使用者、群組、連絡人,也不是SharePoint系統管理員中的「對象」

為了這個說明不清的問題,害我的Workflow 卡關兩天!

SharePoint Online 常用的函數

IF()

MID(字串)

DATEVALUE(日期形式的字串)

TODAY()

REPLACE()

SUM()

AND()

OR()

LEN()

YEAR()

MONTH()

DAY()

HOUR()

MINUTE()

SECOND()

DAYS360(迄止日期,起始日期,TRUE/FALSE)

NOW()

TRIM()

ROUONDUP()

MOD()