JCEW

今天起，只要在Blogger簡單的加上一呼叫表情圖的Javascript，往後在Blog貼文或回應時，都能支援顯示可愛的小臉表情圖像囉～ 這支語法完全不須在發文時另外加註啥命令列，只要依平常習慣輸入如:) :) 或:-) :-) 等文字表情符號，並記得在符號前面空一格即可！程式語法就會自動將表情符號轉換成表情圖像，就是這麼簡單～ 11種表情輸入對照碼： • 微笑:) :) or:-) :-) • 大笑:D :D or:-D :-D • 害羞:$ :$ or:-$ :-$ • 難過:( :( or:-( :-( • 吐舌:p :p or:-p :-p • 眨眼;) ;) or;-) ;-) • 親親:k :k or:-k :-k • 火大:@ :@ or:-@ :-@ • 閉嘴:# :# or:-# :-# • 囧臉:x :x or:-x :-x • 驚訝:o :o or:-o :-o

這個函數可以被用來確認使用者是否在 Rich Text 欄位加入了什麼。 在一個套表中，若是含有必須填入值的 Rich Text 欄位，這是非常有用的函數。 從你確認生效的例行程式中去呼叫這個函數，來檢驗你的 RTF 是不是空的。 Function IsRTFNull(rtfield As String) As Integer 'This function tests a Rich Text field to see whether or not it is null. It returns TRUE if 'the field is null, and returns FALSE if the field is not null. It works even if the rich 'text field contains a file attachment, doclink, or OLE object but does not contain any 'text. On Error Goto Errhandle Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc = workspace.CurrentDocument Call uidoc.ExpandAllSections 'This is only needed if your field is in a section that may be closed when this executes Call uidoc.GotoField(rtfield) Call uidoc.SelectAll 'The next line will generate a 4407 error message if the Rich Text Field is null Call uidoc.DeselectAll IsRTFNull = False Exit Function Errhandle: Select Case Err Case 4407 'the DeselectAll line ...

最近很流行騎單車 來學學一些單車維修技能吧

參考了Chagg的閱讀功能改良 主要是因為一直是不出來無腦安裝的功能 參考看看囉 輸入文章時只要在要隱藏部分用 隱藏部份文章 包起來即可囉 參考文件： Chagg's 嘴砲日記

功能：client端抓取文件中之附加檔 介面：UI Doc Set uidoc=ws.CurrentDocument Set doc =uidoc.Document Set item =doc.GetFirstItem("Attach") // 附件RTF欄位 If ( item.Type = RICHTEXT ) Then Forall o In item.EmbeddedObjects Msgbox o.name End Forall End if 抓取不到可以假儲存一次 saveoptions=0