在ASP.NET中進行檔案處理(3)

asp.net  三.ASP.NET頁面進行檔案寫操作：
  
  本程式的運行介面如下圖所示：
  
  
  　　　　　　　　　　　　　　圖3:程式運行介面
  
  
  　　1).程式設計中的主要思路及步驟：
  
  　　本ASP.NET頁面中採用的程式語言是VB.NET。程式主要功能是建立一個文本形式的檔案，這個檔案名稱是可以讓使用者自行定義的，然後把使用者填入的內容儲存在此檔案中。下面是程式設計的主要步驟：
  
  　　i＞.讀取檔案中用到的對象--StreamWriter
  
  　　StreamWriter也是由名稱空間--System.IO中定義的，主要用來寫入檔案內容。本程式中也通過他來完成檔案寫操作的。對檔案的寫操作相比較檔案的讀操作來說較簡單。具體的步驟如下：
  
  Dim strwriterobj As StreamWriter
  Dim contxt as String
  file_name = filename.text
  contxt = body.text
  ' 其中body.text是要寫入檔案的內容
  strwriterobj = File.CreateText ( file_name )
  ' 建立一個檔案，並把此文字檔作為對象指派給 streamwriter對象
  strwriterobj.WriteLine( contxt )
  ' 把常值內容寫入檔案中
  strwriterobj.Close
  '關閉對象
  
  　　ii＞.上面主要完成的是對建立一個新檔案，並寫入內容。此時要寫入的檔案如果已經存在，程式就會清空原檔案，然後再寫入新內容。如果你所要完成的工作是對於已經存在的檔案只是在檔案尾部新增內容，對於不存在的檔案才建立和追加內容。用以下語句替換，就可以了。
  
  　　被替換語句：
  
  strwriterobj = File.CreateText ( file_name )
  
  　　替換成語句：
  
  strwriterobj = File.AppendText ( file_name )
  
  　　2).程式原始碼
  
  ＜% @ Import Namespace = "System.IO" %＞
  ＜script language = "vb" runat = "server" ＞
  Sub SendButton_Click ( sender as Object, e as EventArgs )
  ' 定義一個 streamwriter 對象
  Dim strwriterobj As StreamWriter
  Dim file_name as String
  Dim contxt as String
  ' 建立一個檔案，並把此文字檔作為對象指派給 streamwriter對象
  file_name = filename.text
  contxt = body.text
  strwriterobj = File.CreateText ( file_name )
  ' 把常值內容寫入檔案中
  strwriterobj.WriteLine( contxt )
  '關閉對象
  strwriterobj.Close
  Response.write ( "成功的進行了檔案寫操作！" )
  panel1.visible = false
  End Sub
  ＜/script＞
  ＜asp:panel id="panel1" runat="server" ＞
  ＜form id="form1" runat="server" ＞
  ＜p＞歡迎在ASP.NET頁面對檔案進行寫操作＜/p ＞
  請填入檔案名稱：＜asp:textbox id = "filename" size = "40" runat = "server" /＞＜br ＞
  請填入寫入內容：＜asp:textbox id = "Body" TextMode = "MultiLine" Columns = "40" Rows = "10" runat = "server" /＞＜br ＞
  ＜asp:button runat = "server" id = "Write" Text = "寫入檔案" OnClick = "SendButton_Click" /＞
  ＜/form ＞
  ＜/asp:panel ＞