這是備份,原文請看:[回憶].....一些感慨 #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專題實務ASP.NET專題實務(文魁出版 / P8187)

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

創作者介紹

MIS2000 Lab -- ASP.NET專題實務 / 線上教學文件

MIS2000 Lab 發表在 痞客邦 PIXNET 留言(0) 人氣()