如果檔案太大打不開？

寫在前面：
這是筆者比較早期的文章，同樣的主題，如果以程式導向設計觀念去做，不會寫成這樣。


一位學弟問了一個大家經常碰到的問題，如果檔案太大打不開，怎麼辦？
有人說用UltraEdit應該沒有打不開的檔案。

那您可能沒有碰過一個659MB的文字檔吧？有位學弟每次用UltraEdit打開這個檔案，
出去吃過午餐之後UltraEdit才打開...

這個問題和之前在FORTRAN的課程裡「 FORTRAN入門課程(1)解決最簡單的問題」，
有異曲同工之妙。

這位學弟比較擅長VB，好吧，先用VB6畫一個類似下列的畫面

然後，分別把下列兩組code打進「開啟」和「讀取」兩個按鈕中。
「開啟」按鈕程式碼

Private Sub cmdOpen_Click()  
    CommonDialog1.ShowOpen
    '如果使用者沒選檔案時CommonDialog1.FileName是空字串
    If (Len(CommonDialog1.FileName) > 0) Then
        txtInputFile.Text = CommonDialog1.FileName
    End If
End Sub

「讀取」按鈕程式碼

Private Sub cmdRead_Click()
    Dim aLine As String
    Dim i As Integer
    dim FID as Integer

    List1.Clear
    '讓系統自動抓出可用的檔案號碼
    FID=FreeFile
    Open txtInputFile.Text For Input As #FID
    
        For i = 1 To Val(txtNumLines.Text)
            Line Input #FID, aLine
            List1.AddItem aLine
        Next i
        
    Close #FID
End Sub

以下是這個程式的執行畫面


按下「開啟」按鈕會出現下列畫面
 
選完您要預覽的檔案，按下「讀取」按鈕後，就可以看到龐大檔案的前20列!
如此一來，就不必出去吃過午餐之後UltraEdit才打開...， 注意看，這個檔案有47,655KB(約60萬筆資料)!! 至於，檔案內容是什麼，應該不必秀了吧？

如果，還想多看一點內容，可以把20改成您所想要的數字即可。
千萬要注意，VB的ListBox超過一定數量之後，就很...很...很........慢 :< 
如果, 你想讓您的生活變成彩色...
捲起袖子, 現在就開始吧.

以平常心步向成功

看到有許多年輕的朋友，常覺得自己在人生的路上，如此努力的奮鬥， 得到的卻只有徬徨、無力的感覺。我愛把這篇自己年輕的時候，看到的勵志小品與他們分享...

以平常心步向成功
1.給自己足夠的時間學習技能，打好基礎--成功之路捨努力別無捷徑。
2.要實際
達到目標需要時間，人不可能一夕之間成功，不要不耐煩。
3.不要太早放棄
哀莫大於心死，一旦放棄，你就永遠無法知道你是否有能力達成目標。
4.時時往積極的一面想
不要太在意失敗。一旦你開始覺得自己沒有能力作，你就不會再嘗試。
5.要有自己的標準
不要用別人的標準來衡量自己。
6.最重要的是，不管發生什麼事，都要認為自己還不錯。
78.12.20

多讀聖經
93.3.1

最近忙一個案子，連續好幾個星期精神緊張，這個星期更是每天挑燈夜戰，拼了老命想如期完成，連教會都不去，更別提讀經禱告。昨天，在一陣忙碌卻得不到結果的時候，突然覺得人為什麼總愛和自己過不去？

原因到底出在那裡？這時候才發覺已經好幾天沒看email，好幾天沒陪家人...
看到自己寫的這篇「以平常心步向成功」，不禁莞爾，什麼是平常心？看到這篇文章雖然已經快15年了，可是卻從來不是以平常心去完成事情。

每次都是在事後才拿出來，彷彿自己是以一種平常心，一步一步完成許多事情。

回想自己總喜歡把自己逼的太緊，喜歡把時間表塞的滿滿的。人往往會高估自己的實力，也低估了完成每一件事情所需要的時間。

事到臨頭了，就會驚惶失措。

94.8.2