--
不招人忌是庸才、明槍暗箭滿天飛
--
看到、想到、說到、做到
能夠填平大海的誓言，也比不上邁出一步的價值
是以吾輩此生，再無任何誓言
2009年12月31日 星期四
2009年12月29日 星期二
2009年12月25日 星期五
2009年12月23日 星期三
2009年12月2日 星期三
2009年11月27日 星期五
2009年11月21日 星期六
2009年11月17日 星期二
懷舊：關於「赤兔馬之死」
每個老闆看到這篇文章時、心有慼慼焉！覺得自己是關雲長再世
∼忙不迭的要總機小姐轉寄給全公司的員工看∼還不給我做牛做馬去！
每個員工看完這篇文章的時候、心有慼慼焉！都覺得我的Boss是呂奉先
∼真想趕快換主人！
--
忠君孝親 嚴以律己 寬以待下 憐以對敵
禁私慾 秉公正 恥富貴而崇名譽
∼忙不迭的要總機小姐轉寄給全公司的員工看∼還不給我做牛做馬去！
每個員工看完這篇文章的時候、心有慼慼焉！都覺得我的Boss是呂奉先
∼真想趕快換主人！
赤兔馬之死
中國高等學校統一考試的作文題，出得很有意思：
一個年輕人，在漫漫人生路上經過長途跋涉，到達一個渡口的時候，他身上已經有了七個背囊：美貌、金錢、榮譽、誠信、機敏、健康、才學。
渡船開出的時候風平浪靜，過了不知多久，風起浪湧，上下顛簸，險象環生。老艄公對年輕人說：『船小負擔太重，客官你必須丟掉一個背囊，
才可安全到達。』
看年輕人不肯丟掉任何一個，老艄公又說；『有棄有取，有失有得。』年輕人想了想，把『 誠信』丟掉了水裡。── 誠信被丟掉了，
引發你想起了什麼？請以『誠信』為題，寫一篇作文。」
高考作文是根據提供的一段故事，讓考生以"誠信"為話題寫一篇文章，對"誠信"作出評價，文體不限。
南京13 中理科生 蔣昕捷 的作文題目是《赤兔之死》，以三國故事為基礎，編撰了赤兔馬為誠信而殞身的感人故事，讓閱卷老師拍案叫絕，
給出了滿分； 南京大學表示，願意破格錄取這名學生。
《赤 兔 之 死》 原 文
建安二十六年，西元 221年，關羽走麥城，兵敗遭擒，拒降，為孫權所害。其坐騎赤兔馬為孫權賜予馬忠。
一日，馬忠上表：赤兔馬絕食數日，不久將亡。孫權大驚，急訪江東名士伯喜。此人乃伯樂之後，人言其精通馬語。
馬忠引伯喜回府，至槽間，但見赤兔馬伏於地，哀嘶不止。眾人不解，惟伯喜知之。伯喜遣散諸人，撫其背嘆道："昔日曹操做《龜雖壽》:
'老驥伏櫪，志在千里。烈士暮年，壯心不已'，吾深知君念關將軍之恩，欲從之於地下。然當日呂奉先白門樓殞命，亦未見君如此相依，
為何今日這等輕生，豈不負君千里之志哉？"
赤兔馬哀嘶一聲，嘆道："予嘗聞:鳥之將死，其鳴也哀；人之將死，其言也善。'今幸遇先生，吾可將肺腑之言相告~~吾生於西涼，後為董卓所獲，
此人飛揚跋扈，殺少帝，臥龍床，實為漢賊，吾深恨之。"
伯喜點頭，曰："後聞李儒獻計，將君贈予呂布，呂布乃天下第一勇將，眾皆言，'人中呂布，馬中赤兔'想來當不負君之志也。"
赤兔馬嘆曰："公言差矣。呂布此人最是 無信，為榮華而殺丁原，為美色而刺董卓，投劉備而奪其徐州，結袁術而斬其婚使。'人無信不立'，
與此等無誠信之人齊名，實為吾平生之大恥！
後吾歸於曹操，其手下雖猛將如雲，卻無人可稱 英雄。吾恐今生只辱於奴隸人之手，駢死於槽櫪之間。
後曹操將吾贈予關將軍；吾曾於虎牢關前見其武勇，白門樓上見其恩義 ，仰慕已久。關將軍見吾亦大喜，拜謝曹操。操問何故如此，關將軍答曰：
'吾知此馬日行千里，今幸得之，他日若知兄長下落，可一日而得見矣。'其人誠信如此。'
常言道：'鳥隨鸞鳳飛騰遠，人伴賢良品質高'吾敢不以死相報乎？"伯喜聞之，嘆曰："人皆言將軍乃誠信之士，今日所聞，果真如此。"
赤兔馬泣曰："吾嘗慕不食周粟之伯夷、叔齊之高義: 玉可碎而不可損其白，竹可破而不可毀其節。士為知己而死，人因誠信而存，
吾安肯食吳粟而苟活於世間？"言罷，伏地而亡。
伯喜放聲痛哭，曰："物猶如此，人何以堪？"後奏於孫權。權聞之亦泣："吾不知雲長誠信如此，今此忠義之士為吾所害，吾有何面目見天下蒼生？"
後孫權傳旨，將關羽父子並赤兔馬厚葬。
............................................................................................
簡評：讀罷此篇臨場作文，令人拍案稱奇!
一是 故事新奇。作者以熟諳三國故事為基礎，編撰了赤兔馬為誠信而殞身的感人故事，其想像力實在豐富。
二是 立意高遠。文章將赤兔馬擬人化，讓它在同伯喜的對話中，顯示對關羽與董卓、呂布兩類人物的褒貶，實現了"真英雄必講誠信"的主題；
且以"鳥隨鸞鳳飛騰遠，人伴賢良品質高"一聯，"物猶如此，人何以堪"一句，抒寫了人生當擇善而從、唯誠信是瞻的志向，使文章的立意更上層樓。
三是 語言老到。通篇遣用純熟的古白話，散整錯綜，明白暢曉，文采飛揚，這種老到的語言功夫，是眾多考生無法望其項背的。
文章轉載網路
--
忠君孝親 嚴以律己 寬以待下 憐以對敵
禁私慾 秉公正 恥富貴而崇名譽
2009年11月12日 星期四
2009年11月8日 星期日
2009年10月31日 星期六
大坪頂∼熱帶植物園…
大坪頂∼熱帶植物園～降臨Ⅱ
不知道時隔多久沒有「踩」上鳳山水庫這條路線了，感覺腳力好虛。
跟以前的自己相比心肺真的改善不少，但肌力卻變差了Q_Q～
從前爬到陡坡的時候是腳還有力，但心臟卻快跳出來了。現在卻是
還沒有很喘，但腳卻使不出力來、而且是用意志力也搾不出力來的
那種無力感～唉…年紀阿！
檢視較大的地圖
--
忠君孝親 嚴以律己 寬以待下 憐以對敵
禁私慾 秉公正 恥富貴而崇名譽
不知道時隔多久沒有「踩」上鳳山水庫這條路線了，感覺腳力好虛。
跟以前的自己相比心肺真的改善不少，但肌力卻變差了Q_Q～
從前爬到陡坡的時候是腳還有力，但心臟卻快跳出來了。現在卻是
還沒有很喘，但腳卻使不出力來、而且是用意志力也搾不出力來的
那種無力感～唉…年紀阿！
檢視較大的地圖
--
忠君孝親 嚴以律己 寬以待下 憐以對敵
禁私慾 秉公正 恥富貴而崇名譽
2009年10月29日 星期四
2009年10月9日 星期五
2009年10月2日 星期五
五十代
人生五十載 綜觀眾生諸相 一切恍如夢幻 享生於世之人 豈有不滅者！
所謂年過半百，指的是一些超過五十歲的人。兒女獨立、即將步入退休生涯。
在當今這年代，這些人走過了半個世紀，經歷了人類歷史上大幅度的科技飛躍。
今天在噗浪河上看到一個噗友抱怨：早上六點就被老爸炒醒，原因是今天是週五、是每個禮拜布袋戲新片發行的日子。結果老爸滿心期待、兒子可憐兮兮∼
此一案讓我也想到我家中那兩尊。年過五十的這幾年，兒女獨立、房貸車貸也解決了大半，不再承擔巨大壓力，人卻開始越活越回去～ 當Wii出來時就吵著要找管道弄一台，當腳踏車風氣盛極一時也湊樂鬧的買小折來騎，上半年夜鷹再晚上吵鬧不休，又要我去買BB槍來打鳥！感覺天地真是顛倒過來了，這些東西不是我童年的玩意嗎！任天堂紅白機、國小玩的BB槍、國、高中的腳踏車！私心理想當初小子被你養的時候，這些東西你買過給我沒有，天阿！現在卻變成我要買這些「玩具」給兩老！？
不過這也引發我另一方面聯想，這個休閒育樂豐富多元的年代，縱使經濟衰退，這一代的人手頭上還是有點積蓄，不再背負巨大家庭經濟下，也願意追求新鮮有趣的事物，滿足自己的人生。這會不會是一個機會呢？五十代的商機？
--
---- 書本上查的到的東西 ---- 不用去背他 ----
2009年10月1日 星期四
2009年9月30日 星期三
2009年9月11日 星期五
2009年9月2日 星期三
2009@Taipai
十七歲那年 記得台北捷運淡水線通車不久 一群毛頭小子乘著野雞車上北上嘗鮮！
時光荏冉 再次踏上台北國 竟已十個年頭過去了 ～
--
---- 書本上查的到的東西 ---- 不用去背他 ----
2009年8月23日 星期日
2009年7月17日 星期五
2009年7月9日 星期四
[Lotus Script]-Fwd: Notes、Richtext欄位中- 附件檔案位置控制
End Function將文件中的附件檔案抓到硬碟裡，經過壓縮後要再放回去。
嵌入檔案的位置都會跑掉。
為此花了兩天的時間再尋求解決之道∼終於找到搭配NotesRichTextNavigator來定位附件檔案的位置了！
--
---- 書本上查的到的東西 ---- 不用去背他 ----
嵌入檔案的位置都會跑掉。
為此花了兩天的時間再尋求解決之道∼終於找到搭配NotesRichTextNavigator來定位附件檔案的位置了！
附加檔放回原位：使用 NotesRichTextNavigator
Set rtnav = item.CreateNavigator
If Not rtnav.FindLastElement(RTELEM_TYPE_FILEATTACHMENT) Then
Msgbox "此份文件中沒有附件"
Exit Sub
Else
Call rtnav.FindFirstElement(RTELEM_TYPE_FILEATTACHMENT)
Do
'CtrNav = CtrNav +1
Loop While rtnav.FindnextElement(RTELEM_TYPE_FILEATTACHMENT)
'Msgbox CtrNav
End If
略…
Call rtnav.FindNthElement(RTELEM_TYPE_FILEATTACHMENT,"計數器")
Call item.BeginInsert(rtnav,False)
進行附加檔嵌入作業…
Call item.EndInsert
Call doc.Save(True,False)
略…
…萬事OK！
--
---- 書本上查的到的東西 ---- 不用去背他 ----
[Lotus Script]-在Notes裡面抓取「Windows系統路徑」
<<宣告WinAPI>>
<<使用： >>
∼得到值：d:\tmp\ ←我自己設到D去的
參數對照：
--
---- 書本上查的到的東西 ---- 不用去背他 ----
Declare Function GetSystemDirectory Lib "kernel32" Alias _
"GetSystemDirectoryA" (Byval lpBuffer As String, _
Byval nSize As Long) As Long
<<使用： >>
DirTmp =Environ$("temp") & "\"
∼得到值：d:\tmp\ ←我自己設到D去的
參數對照：
number envstring 1 ALLUSERSPROFILE 2 APPDATA 3 CLIENTNAME 4 CommonProgramFiles 5 COMPUTERNAME 6 ComSpec 7 FP_NO_HOST_CHECK 8 HOMEDRIVE 9 HOMEPATH 10 LOGONSERVER 11 NUMBER_OF_PROCESSORS 12 OS 13 Path 14 PATHEXT 15 PROCESSOR_ARCHITECTURE 16 PROCESSOR_IDENTIFIER 17 PROCESSOR_LEVEL 18 PROCESSOR_REVISION 19 ProgramFiles 20 SESSIONNAME 21 SystemDrive 22 SystemRoot 23 TEMP 24 TMP 25 USERDOMAIN 26 USERNAME 27 USERPROFILE 28 windir
---- 書本上查的到的東西 ---- 不用去背他 ----
2009年7月7日 星期二
[Lotus Script]-附件、壓縮
找到了一個可以壓ZIP的DLL檔，可以不用看WinRAR跟7zip的臉色了。
說明：
1.附檔解壓縮後，將該DLL檔放到C:\Windows\ 目錄底下。
2.代理程式使用方式：
※在「Delarations」裡輸入下列程式碼來引用VCZIPSUP.DLL：
Declare Function Zip Lib "VCZIPSUP.DLL" (_
Byval pstrInputDirectory As String, _
Byval pstrFileWildCardSpec As String, _
Byval pstrOutputZipFilename As String, _
Byval iIncludeSubDirs As Integer, _
Byval iKeepFolderStructure As Integer, _
Byval pstrOptions As String) As Long
※在代理程式程式裡呼叫：
Sub Initialize
Dim lRc As Long
lRc = Zip("D:\Temp\Files","*.*", "D:\Temp\MyFirstZipFile.zip",1, 0,"")
End Sub
一、來源路徑
二、來源檔名 (輸入 *.* 可以將該目錄下所有檔案打包壓縮)
三、輸出路徑及檔名
四、未知
五、未知
六、未知
壓縮完成、lRc會返回"0"
==================================================================
另附上修改後的程式。
說明：
1.附檔解壓縮後，將該DLL檔放到C:\Windows\ 目錄底下。
2.代理程式使用方式：
※在「Delarations」裡輸入下列程式碼來引用VCZIPSUP.DLL：
Declare Function Zip Lib "VCZIPSUP.DLL" (_
Byval pstrInputDirectory As String, _
Byval pstrFileWildCardSpec As String, _
Byval pstrOutputZipFilename As String, _
Byval iIncludeSubDirs As Integer, _
Byval iKeepFolderStructure As Integer, _
Byval pstrOptions As String) As Long
※在代理程式程式裡呼叫：
Sub Initialize
Dim lRc As Long
lRc = Zip("D:\Temp\Files","*.*", "D:\Temp\MyFirstZipFile.zip",1, 0,"")
End Sub
一、來源路徑
二、來源檔名 (輸入 *.* 可以將該目錄下所有檔案打包壓縮)
三、輸出路徑及檔名
四、未知
五、未知
六、未知
壓縮完成、lRc會返回"0"
==================================================================
另附上修改後的程式。
Sub Initialize
Dim ss As New notessession
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim Arcobj As NotesEmbeddedObject
Dim doc As NotesDocument
Dim Newitem As Variant, item As Variant
Dim RarPath As String, RarDirName As String, RarFileName As String
Dim result As Integer, RarFinal As String,oName As String,lRc As Long
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
RarPath = "D:\Tmp\ZIP\"
If doc.HasEmbedded Then
RarDirName = Format$(Now(), "hhnnss")
Mkdir RarPath & RarDirName
RarFinal = RarPath & RarDirName
If Not uidoc.EditMode Then uidoc.EditMode = True
Call uidoc.Save
Set item = doc.GetFirstItem("Body")
Forall embobj In item.EmbeddedObjects
oName= embobj.name
Call embobj.ExtractFile( RarFinal & "\\" & oName)
Call embobj.remove
End Forall
Call doc.save(True, False)
%REM
result = Shell("C:\Program Files\7-Zip\7z.exe a " & RarFinal & ".zip" & " " & RarFinal , 1)
Dim ii As Long
For ii = 1 To 10000000
Next
%END REM
lRc = Zip(RarFinal,oName,RarFinal & ".zip",1, 0,"")
Set Newitem = doc.GetFirstItem("Body")
Set Arcobj = Newitem.EmbedObject(EMBED_ATTACHMENT, "", RarFinal & ".zip")
'Set Arcobj = Newitem.EmbedObject(EMBED_ATTACHMENT, "", "D:\Tmp\ZIP\À£.zip")
Call doc.Save( True, True )
Call uidoc.Save
Dim newdoc As New notesdocument( ss.CurrentDatabase )
Set newdoc = doc
Call uidoc.Close
Call workspace.EditDocument(True, newdoc)
Kill RarFinal & ".zip"
'Rmdir RarFinal
Else
Print Now()+" No Embedded Object"
End If
End Sub
--
---- 書本上查的到的東西 ---- 不用去背他 ----
2009年7月2日 星期四
[Lotus Script]_Word轉轉轉！
開啟Word檔、並插入自訂浮水印。
--
Sub Initialize
'(WORD開開開)|agWordOpen
Dim session As New NotesSession
Dim db As NotesDatabase
Dim wdoc As NotesDocument
Dim pdoc As NotesDocument
Dim PrintHeadFlag As Integer
Dim DefWMStr As String,DefDocPath As String
Set db=session.CurrentDatabase
Set wdoc=session.DocumentContext
DefWMStr = "日期：" & Cstr(Today) & " // 作者：Signally" '設定水印文字
DefDocPath="D:\t1.dot" '設定路徑
Set oWord = CreateObject("Word.Application")
oWord.Application.Visible = True
oWord.documents.Add DefDocPath, False
'=======Insert Watermark======
oWord.ActiveDocument.Sections(1).Range.Select
oWord.ActiveWindow.ActivePane.View.SeekView = 9 'wdSeekCurrentPageHeader
oWord.Selection.HeaderFooter.Shapes.AddTextEffect(PowerPlusWaterMarkObject1,DefWMStr, "標楷體", 1, False, False, 0, 0).select
oWord.Selection.ShapeRange.Name = "PowerPlusWaterMarkObject1"
oWord.Selection.ShapeRange.TextEffect.NormalizedHeight = False
oWord.Selection.ShapeRange.Line.Visible = False
oWord.Selection.ShapeRange.Fill.Visible = True
oWord.Selection.ShapeRange.Fill.Solid
oWord.Selection.ShapeRange.Fill.ForeColor.RGB = 30 '色彩？
oWord.Selection.ShapeRange.Fill.Transparency = 0.6 '透明度
oWord.Selection.ShapeRange.Rotation = 315 '角度(依照頂端指向)
oWord.Selection.ShapeRange.LockAspectRatio = True
oWord.Selection.ShapeRange.Height =240 'CentimetersToPoints(4.13) '高
oWord.Selection.ShapeRange.Width = 270 'CentimetersToPoints(16.52) '寬
oWord.Selection.ShapeRange.WrapFormat.AllowOverlap = True
oWord.Selection.ShapeRange.WrapFormat.Side = wdWrapNone
oWord.Selection.ShapeRange.WrapFormat.Type = 3
oWord.Selection.ShapeRange.RelativeHorizontalPosition = 0 'wdRelativeVerticalPositionMargin '基準點
oWord.Selection.ShapeRange.RelativeVerticalPosition = 0 'wdRelativeVerticalPositionMargin '基準點
oWord.Selection.ShapeRange.Left = wdShapeCenter
oWord.Selection.ShapeRange.Top = wdShapeCenter
oWord.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
'==========================
oWord.documents(1).SaveAs "d:\TryWM20090702.doc"
End Sub
---- 書本上查的到的東西 ---- 不用去背他 ----
2009年6月27日 星期六
2009年6月20日 星期六
QVGA_Wallpaper_2 枚入
對S2U2這套軟體聞名已久，不過一直沒有用過。
最近它出了新版，索性抓來玩看看。
試了一下畫面很順暢、功能又多。☆☆☆☆☆
因為他有一個鎖定螢幕的畫面可以換桌布
所以就DIY了一下！
--
---- 書本上查的到的東西 ---- 不用去背他 ----
2009年5月27日 星期三
2009年5月17日 星期日
2009年5月6日 星期三
訂閱：
文章 (Atom)