[回憶].....一些感慨 #2.....什麼樣的程式？什麼樣的寫法？對初學者有幫助 @ MIS2000 Lab -- ASP.NET專題實務 / WebForm + MVC線上教學影片

這是備份，原文請看：[回憶].....一些感慨 #2.....什麼樣的程式？什麼樣的寫法？對初學者有幫助

http://www.dotblogs.com.tw/mis2000lab/Admin/EditPosts.aspx?pg=1

新年頭，總是感觸特別多..............

之前曾經發表過 FileUpload控制項的用法，尤其是「多個檔案、批次上傳」

相關的範例在書上也有發表，但解釋得詳細一點。由淺入深。

上述的範例裡面，我用了 For迴圈去抓取多個 FileUpload控制項.....（如下面的黃色底色）

這種作法，我相信稍微有點經驗的人，都曾經用過。

在ASP、ASP.NET裡面，這種技法其實不難.....

        For i = 1 To (Request.Files.Count)
            Dim myFL As New FileUpload
            myFL = CType(Page.FindControl("FileUpload" & i), FileUpload)

            If (myFL.HasFile) Then
                Dim fileName As String = myFL.FileName
                Dim pathToCheck As String = appPath & saveDir & fileName

                '========================================(Start)
                If (System.IO.File.Exists(pathToCheck)) Then
                    Dim my_counter As Integer = 2
                    Dim error_msg As String = Nothing

                    While (System.IO.File.Exists(pathToCheck))
                        ' --檔名相同的話，目前上傳的檔名（改成 tempfileName），前面會用數字來代替。
                        tempfileName = my_counter.ToString & "_" & fileName
                        pathToCheck = appPath & saveDir & tempfileName
                        my_counter = my_counter + 1
                    End While

                    fileName = tempfileName
                    error_msg = error_msg & "<br>抱歉，您上傳的檔名發生衝突，檔名修改--- " & fileName
                    Label1.Text = error_msg

                End If

                ' –完成檔案上傳的動作。
                Dim savePath As String = appPath & saveDir & fileName
                myFL.SaveAs(savePath)
                '========================================(End)
                myLabel.Append("<hr>檔名---- " & fileName)
            End If
        Next

後來，我看到其他作者的書，寫到相同的範例，他們的作法是：

假設畫面上有五個 FileUpload控制項，他們就乖乖地寫五個 If判別式（上面程式，粉紅底色的部份）

用最原始的方法來作。

IF FileUpload1.HasFile Then

......

End If

IF FileUpload2.HasFile Then

......

End If

===========================================================

類似的範例，還有 Session / Application來作「聊天室」，範例在此 http://www.dotblogs.com.tw/mis2000lab/archive/2008/04/25/3492.aspx

每次有人發言，舊發言就會被 "向上" 挪一個位置。

我用 For迴圈來寫，

   Application.Lock()
   '--註解：如果要更動Application裡面的資料，務必事先進行鎖定！

   Dim my_Label As New StringBuilder
   For i = 15 To 2 Step -1
      Application("A" & i) = Application("A" & (i - 1))
      my_Label.Append(Application("A" & i).ToString)
   Next

'==== 上面這段FOR迴圈，是聊天室程式裡面的重點！ ====
' 每當有人發表一則留言，原本畫面上的留言，就會向上推擠。
' 最新的留言，總會出現在畫面下方的最後一筆。
' 為了良好的效率，這裡我們改用 StringBuilder來處理字串。

但很多作者卻還是乖乖地用

Application("K10") = Application("K9")

Application("K9") = Application("K8")

Application("K8") = Application("K7")

........以此類推。

看到別人寫這樣的程式，我站在書店看書，都會有種志得意滿的錯覺！覺得我比人家強！

但後來經過思考後，我認為：

「他們那種 "笨" 寫法，對初學者來說，或許...... 才是好的！」

怎麼說呢？

===========================================================

一個初學者剛剛學ASP.NET，光是新的都應付不完。哪有時間耍花槍？

我直接給他們「漂亮的範例」、「進階的寫法」，說不定他們看不懂.......就放棄了。

或許，我也該給他們一個「笨範例」、「笨寫法」

以上面的例子（聊天室）來說，笨笨地交換變數裡面的值。

寫法雖然不高明，但初學者或許一看就懂。

不斷Copy程式碼來改，反倒有機會練習

我應該先提供這種寫法，

然後再來提供進階版的 For迴圈........

跟得上進度的讀者，可以學到 For迴圈的方法。
而跟不上進度的人，至少還有一種方法是他們能接受的。

我在書本裡面的「聊天室、FileUpload」，網站上的「自動化投票」這三個範例裡面

有時出手太快，耍了花槍（寫的時候，"可能" 有點炫耀的意思）

卻也可能違反了我要「無痛帶領初學者入門」的初衷.............

現在回想起來，也真的覺得不好意思。

但......如果一個範例，同時寫出兩種方法，

那麼出版社的成本就提高了（目前的紙價偏高。書本越厚，書價越高，就不好賣）

如果放在光碟裡面，沒有紙本印刷，實際上（至少有八成的讀者，只看書籍紙本內容），

很多讀者是不會打開光碟，一個一個範例來看的。（相信我，真的是如此～）

總之，這又是兩難了........

To be or Not to be, It's a question....

大方向或許對了，但細節該怎麼調整，我也還在思考中.........

...... 寄信給我 mis2000lab (at) 雅虎.com.台灣 ................................................................................................................
ASP.NET專題實務（文魁出版 / P8187）

.............................................................................................................. 寄信給我 mis2000lab (at) 雅虎.com.台灣 ........