這是備份,原文請看:[回憶].....一些感慨 #2.....什麼樣的程式?什麼樣的寫法?對初學者有幫助
http://www.dotblogs.com.tw/mis2000lab/Admin/EditPosts.aspx?pg=1
新年頭,總是感觸特別多..............
之前曾經發表過 FileUpload控制項的用法,尤其是「多個檔案、批次上傳」
- VB版:http://www.dotblogs.com.tw/mis2000lab/archive/2008/05/14/3986.aspx
- C#版:http://www.dotblogs.com.tw/mis2000lab/archive/2008/10/14/fileupload_csharp_081014.aspx
相關的範例在書上也有發表,但解釋得詳細一點。由淺入深。
上述的範例裡面,我用了 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.台灣 ........
留言列表