July 2008 Archives

文章來自馬來西亞星洲日報的網站， 原文網址忘了.... 為表尊重， 還是注明一下原文出處。

這對我來說還真的挺糟糕的， 因為我的工作性質以及習慣， 我幾乎整天就坐在電腦面前， 從早上8點開始上班一直到下班回家， 還對著電腦繼續工作一直到臨晨.... 因此還是把這篇文章轉過來這裏， 隨時警惕自己。
======================

原文標題: 「中國：久坐用電腦‧男性易不育‧常穿牛仔褲或患"死精症"」

（中國‧廣州）醫生指出，桑拿、久坐使用電腦、打麻雀、開車、常穿牛仔褲等，都會導致不育。

據報道，廣州一名在銀行任職的35歲男子，每天14小時承受電腦的輻射，結果患上了"死精症"。

數個月前安裝Vista 來玩之後， 發現每次登入視窗， 硬碟就一直在跑個不停， 明明所有東西都已經載入完成了， 可是硬碟就是一直跑， 我就這樣放著什麼都不作(什麼軟體也沒開)數分鐘之後才停止下來．  我還以為是我的記憶體不足呢， 可是查詢看看， 才用了最多不到60%... 還有安內多記憶體可以用， 不可能會這樣龜速...

我的電腦配備:
Intel C2D 1650
ASUS P5K
2GB DDR2 667
320GB SATA II 7200 轉

我安裝Vista Ultimate 而且將所有特效開啟 (相信其他的也是一樣的問題)

後來真的受不了硬碟一直在跑， 所以就上網救命了.  哈， 還真的給我找到原因以及解決方法

因為負責的項目的某項需求， 因此寫了一個陽春的WordWrap函式.

這函式依照使用者的需求 (一行多少個字) 然後自動將文字裁減， 可說是Mid() 的進階函式.

比如， 我有一組文字， "This is testing only"， 我想要一行顯示17個字元， 然而17個字 = This is
testing o， 這很難看， 因此使用這函式將自動拿掉不合理的組合， 變成 "This is testing" -- line 1.

這函式是return Array 的方式， 因此如此使用的話...

Dim a as integer, i as integer
Dim b as Variant

b = WordWrap("This is testing only",17)
a = ubound(b)

For i=0 to a
    Msgbox b(i)
Next i

顯示結果:
This is testing
only

這函式還不夠完善， 因為return 出來的Array數是所要顯示的一行的字數.  懶得修改， 因此只把雛型放出來.