在教中文的時候，覺得SV很難解釋；學英文時，也才發現中文慣用的SV，很多在英文表示裡要換種方式。
舉例來說，中文說一個人很沒有邏輯，可是英文就不能說he is not logical. 得說他想法沒有邏輯he fails to think logically.
今天在練寫英文時，也遇到同樣的問題，我想說團體學習可以互相幫助，這會避免挫折感 studying together prevents me from frustrating. 想想不對，到底是frustrating還是frustrated呢？嗯，仔細想想之後，應該是prevents me from being frustrated，是我覺得挫折，這常用的SV要加上Be動詞才會對。
果然是複雜的SV @@
星期日, 4月 29, 2007
星期六, 4月 28, 2007
Flash圖表
Flash改變了網路媒體，當然，這股火也燒到了powerpoint來了。如果能把圖表動態呈現，是不是更人性化、更具說服力呢？
蟲蟲尋找了一下產生Flash圖表的相關程式，扣除掉是動態製作網路圖表的工具(就是結合程式如ASP、PHP之類的)，只有三個比較合適：Rich Chart Builder、Swiff Chart與Crystal Xcelsius。
至於三種哪一個好，蟲蟲也還沒完全實驗完。等有心得再補上吧！
這裡有教學：http://oa.digitimes.com.tw/ShowNews.aspx?zCatId=A13&zNotesDocId=0000032193_B4Y12I2FYS8HCYX4ZLE7H
蟲蟲尋找了一下產生Flash圖表的相關程式，扣除掉是動態製作網路圖表的工具(就是結合程式如ASP、PHP之類的)，只有三個比較合適：Rich Chart Builder、Swiff Chart與Crystal Xcelsius。
至於三種哪一個好，蟲蟲也還沒完全實驗完。等有心得再補上吧！
這裡有教學：http://oa.digitimes.com.tw/ShowNews.aspx?zCatId=A13&zNotesDocId=0000032193_B4Y12I2FYS8HCYX4ZLE7H
星期五, 4月 20, 2007
找出Word裡使用的字型
蟲蟲當客串小編輯已經有段時間，多人編寫教材時，常遇到的問題是「字型不統一」或是給出版社前，「不知道用了多少字型」。
這問題很複雜，有可能真的是每個人使用的字型不一樣，也有可能是電腦幫你預設了字型。當然也有可能是選錯或剪貼時沒注意到。不管這一切，重要的是如何找出有哪些字型。
在《Word排版藝術》一書中，侯大師提供了一段程式碼，原貼如下：
Sub findfonts()
Dim efonts As New Collection
Dim cfonts As New Collection
Dim stl As Style
Dim useCount As Integer
Dim i As Integer
useCount = 0
For i = 1 To ActiveDocument.Styles.Count
Set stl = ActiveDocument.Styles.Item(i)
If stl.InUse Then
useCount = useCount + 1
If notinit(stl.Font.Name, efonts) Then
efonts.Add stl.Font.Name
End If
If notinit(stl.Font.NameFarEast, cfonts) Then
cfonts.Add stl.Font.NameFarEast
End If
End If
Next i
Dim msg As String
Dim obj As Variant
msg = "目前:" + CStr(ActiveDocument.Styles.Count) + Chr(10)
msg = msg + "目前style:" + CStr(useCount) + Chr(10) + Chr(10)
msg = msg + "內建字型:" + CStr(efonts.Count) + Chr(10)
For Each obj In efonts
msg = msg + obj + Chr(10)
Next
msg = msg + Chr(10) + "遠東:" + CStr(cfonts.Count) + Chr(10)
For Each obj In cfonts
msg = msg + obj + Chr(10)
Next
MsgBox msg
'''''
'Dim fonts As New Collection
'Dim i As Integer
'For i = 1 To 10
' fonts.Add ActiveDocument.Styles.Item(i).Font.Name
' fonts.Add ActiveDocument.Styles.Item(i).Font.NameFarEast
'Next i
'Dim msg As String
'Dim obj As Variant
'For Each obj In fonts
' msg = msg + obj + Chr(10)
'Next
'MsgBox msg
End Sub
Function notinit(str As String, ByRef coll As Collection) As Boolean
Dim notin As Boolean
notin = True
Dim obj As Variant
For Each obj In coll
If obj = str Then
notin = False
Exit For
End If
Next
If notin Then
notinit = True
Else
notinit = False
End If
End Function
Public Sub findcha()
Dim fonts As New Collection
Dim rgn As Range
For Each rgn In ActiveDocument.Characters
If notinit(rgn.Font.Name, fonts) Then
fonts.Add rgn.Font.Name
End If
If notinit(rgn.Font.NameFarEast, fonts) Then
fonts.Add rgn.Font.NameFarEast
End If
Next
Dim msg As String
Dim obj As Variant
msg = "all" + CStr(ActiveDocument.Characters.Count) + Chr(10)
msg = msg + "all used fonts:" + CStr(fonts.Count) + Chr(10) + Chr(10)
For Each obj In fonts
msg = msg + obj + Chr(10)
Next
MsgBox msg
End Sub
這問題很複雜，有可能真的是每個人使用的字型不一樣，也有可能是電腦幫你預設了字型。當然也有可能是選錯或剪貼時沒注意到。不管這一切，重要的是如何找出有哪些字型。
在《Word排版藝術》一書中，侯大師提供了一段程式碼，原貼如下：
Sub findfonts()
Dim efonts As New Collection
Dim cfonts As New Collection
Dim stl As Style
Dim useCount As Integer
Dim i As Integer
useCount = 0
For i = 1 To ActiveDocument.Styles.Count
Set stl = ActiveDocument.Styles.Item(i)
If stl.InUse Then
useCount = useCount + 1
If notinit(stl.Font.Name, efonts) Then
efonts.Add stl.Font.Name
End If
If notinit(stl.Font.NameFarEast, cfonts) Then
cfonts.Add stl.Font.NameFarEast
End If
End If
Next i
Dim msg As String
Dim obj As Variant
msg = "目前:" + CStr(ActiveDocument.Styles.Count) + Chr(10)
msg = msg + "目前style:" + CStr(useCount) + Chr(10) + Chr(10)
msg = msg + "內建字型:" + CStr(efonts.Count) + Chr(10)
For Each obj In efonts
msg = msg + obj + Chr(10)
Next
msg = msg + Chr(10) + "遠東:" + CStr(cfonts.Count) + Chr(10)
For Each obj In cfonts
msg = msg + obj + Chr(10)
Next
MsgBox msg
'''''
'Dim fonts As New Collection
'Dim i As Integer
'For i = 1 To 10
' fonts.Add ActiveDocument.Styles.Item(i).Font.Name
' fonts.Add ActiveDocument.Styles.Item(i).Font.NameFarEast
'Next i
'Dim msg As String
'Dim obj As Variant
'For Each obj In fonts
' msg = msg + obj + Chr(10)
'Next
'MsgBox msg
End Sub
Function notinit(str As String, ByRef coll As Collection) As Boolean
Dim notin As Boolean
notin = True
Dim obj As Variant
For Each obj In coll
If obj = str Then
notin = False
Exit For
End If
Next
If notin Then
notinit = True
Else
notinit = False
End If
End Function
Public Sub findcha()
Dim fonts As New Collection
Dim rgn As Range
For Each rgn In ActiveDocument.Characters
If notinit(rgn.Font.Name, fonts) Then
fonts.Add rgn.Font.Name
End If
If notinit(rgn.Font.NameFarEast, fonts) Then
fonts.Add rgn.Font.NameFarEast
End If
Next
Dim msg As String
Dim obj As Variant
msg = "all" + CStr(ActiveDocument.Characters.Count) + Chr(10)
msg = msg + "all used fonts:" + CStr(fonts.Count) + Chr(10) + Chr(10)
For Each obj In fonts
msg = msg + obj + Chr(10)
Next
MsgBox msg
End Sub
星期三, 4月 18, 2007
Delphi連結SQL2005
MSSqlServer出了2005後，為資料庫市場帶來不少衝擊。原本只有MySQL、P-SQL以及一些蟲蟲記不得的免費資料庫軟體，SQL2005也出了express版，給程式設計師帶來不少便利。
Delphi用得這麼順手，可是以前不知怎的，怎麼連就是連不到SQLServer 2005。後來看了一篇文章，原來連接沒有那麼困難。
Provider選Microsoft OLE DB Provider for SQL Server，連線ip要打對，而且要加上伺服器的名稱，比如說140.140.140.140\我是主機。記得那個奇怪的斜線。
密碼設定完之後，就可以連到資料表了。不過擔心unicode的感覺真好！
Delphi用得這麼順手，可是以前不知怎的，怎麼連就是連不到SQLServer 2005。後來看了一篇文章，原來連接沒有那麼困難。
Provider選Microsoft OLE DB Provider for SQL Server，連線ip要打對，而且要加上伺服器的名稱，比如說140.140.140.140\我是主機。記得那個奇怪的斜線。
密碼設定完之後，就可以連到資料表了。不過擔心unicode的感覺真好！
星期日, 4月 15, 2007
Fast Report簡易使用筆記
畫報表幾乎是寫資料庫者必備的功課。在Delphi裡，蟲蟲個人是偏愛Fast Report，原因無他，因為其它報表軟體都學不會 @@
每次玩Fast Report，總是會犯錯，想想還是把使用筆記寫下來好了。
每次玩Fast Report，總是會犯錯，想想還是把使用筆記寫下來好了。
- 拉個fastreport
- 拉個frxDBDataset，不是userdataset
- 畫報表
- 設個啟動點，載入報表loadfromfile
- showreport
report的dataset不能跟報表裡的欄一樣。如果要用rechedit，要記得在程式加上richobject，不然會報錯。
星期六, 4月 14, 2007
心得：千萬別學英語
千萬別學英語(Don't ever study English)書名聽起來聳動，其實正直指一般人學習英語使用錯誤的方法。在博客來的網站可以找到此書的簡介，確實滿吸引人的。現在蟲蟲初級的正在練習第二階段，中級的還在磨第一階段，有些詞還是不大清楚。確實，聽寫對英文滿有用的，而且聽清楚每個音真的很重要，大聲朗讀時就會發現其益處了。
通過聲像學習英語的反傳統模式 英語學習方式大轉變的絕佳指南一場英語學習的革命開始了……
你甘願自己遇見外國人時就變成張不開嘴的啞巴嗎？
你甘願自己被形式的枷鎖禁錮而陷入教條主義的泥潭嗎？
你甘願自己10年苦讀一無所成最終前功盡棄嗎？
你甘願自己因英語水平不過關而無法在外國學習嗎？
你甘願自己被充斥著問題的輔導班和書籍埋沒嗎？
你甘願自己對TOEIC成績止步不前的狀況麻木不仁嗎？
你甘願自己的美好前程毀於英語之手嗎？——那麼，向以往所有傳統的英語學習方法說BYE-BYE吧！
通過聲像學習英語的反傳統模式 英語學習方式大轉變的絕佳指南一場英語學習的革命開始了……你甘願自己遇見外國人時就變成張不開嘴的啞巴嗎？
你甘願自己被形式的枷鎖禁錮而陷入教條主義的泥潭嗎？
你甘願自己10年苦讀一無所成最終前功盡棄嗎？
你甘願自己因英語水平不過關而無法在外國學習嗎？
你甘願自己被充斥著問題的輔導班和書籍埋沒嗎？
你甘願自己對TOEIC成績止步不前的狀況麻木不仁嗎？
你甘願自己的美好前程毀於英語之手嗎？——那麼，向以往所有傳統的英語學習方法說BYE-BYE吧！
簡單地說，全書分為五個階段的練習。
第一階段是打開耳朵，透過不斷地聽，只聽一卷，聽到能聽清楚每個聲音為止。每天至少聽一個小時，但六天之後要有一天與英語隔絕。反覆聽，記得不要立刻聽不懂就倒回去。
第二階段就是聽讀併舉，掌握語法。先將已聽楚的聲音檔拿出來，練習聽寫。聽寫完不確定的以英英字典確認。聽寫完之後，大聲朗讀，覺得不滿意的，再聽一次。
第三階段是躍躍欲試，出口成章。將以前不懂的詞再查清楚。如果不懂的繼續查。查一個小時之後，停止查詢，大聲朗讀一小時結束。同樣也是六天休息一天。
第四階段是自我領悟，無典自通。即使再準備一卷錄音帶，重複一至三的步驟。
第五階段是文化融通，漸入佳境。準備英文原版報紙，挑一篇一、二分鐘即能讀完的短文章。大聲朗讀，直到懂了為止。到了不看文章也能記清楚內容時，把它像一個故事一樣說下來。完成之後選下一篇。完成一個報紙的版面後，開始查找生詞。
大家一起來學英文吧！
第一階段是打開耳朵，透過不斷地聽，只聽一卷，聽到能聽清楚每個聲音為止。每天至少聽一個小時，但六天之後要有一天與英語隔絕。反覆聽，記得不要立刻聽不懂就倒回去。
第二階段就是聽讀併舉，掌握語法。先將已聽楚的聲音檔拿出來，練習聽寫。聽寫完不確定的以英英字典確認。聽寫完之後，大聲朗讀，覺得不滿意的，再聽一次。
第三階段是躍躍欲試，出口成章。將以前不懂的詞再查清楚。如果不懂的繼續查。查一個小時之後，停止查詢，大聲朗讀一小時結束。同樣也是六天休息一天。
第四階段是自我領悟，無典自通。即使再準備一卷錄音帶，重複一至三的步驟。
第五階段是文化融通，漸入佳境。準備英文原版報紙，挑一篇一、二分鐘即能讀完的短文章。大聲朗讀，直到懂了為止。到了不看文章也能記清楚內容時，把它像一個故事一樣說下來。完成之後選下一篇。完成一個報紙的版面後，開始查找生詞。
大家一起來學英文吧！
訂閱：
文章 (Atom)
