|
在ASP.NET中进行文件处理(2) |
作者：马金虎 发布时间：2005-03-12 来源：ASPCOOL
|
1).程序设计中的主要思路及步骤：
本ASP.NET页面中采用的程序语言是VB.NET。程序主要功能是打开指定文件并把文件以ASCII码的形式显示出来。下面是程序设计中的一些主要步骤：
i＞.读取文件中用到的对象--StreamReader
在System.IO中定义了一个读取文件的对象--StreamReader，本程序就是通过这个对象完成对文件的读取。然后以文本形式显示出来。具体如下：
Dim streamreaderobj As StreamReader
file_name = filename.PostedFile.FileName
' 读出一个指定文件，并把他指派给streamreader对象
Do
filecont = streamreaderobj.ReadLine ()
Response.Write( filecont & " ＜br＞ " )
Loop Until filecont = ""
' 一行一行读出文件内容，知道读到一行内容为空字符串的时候，才停止
streamreaderobj.Close
' 在读操作完成以后，关闭StreamReader对象
ii＞在程序中所用到的Form的编码应该是"Multipart/Form-Data"，不用他的缺省编码。具体如下：
＜form Method = "Post" EncType = "Multipart/Form-Data" runat = "server" ＞
＜/form ＞
2).程序的源代码：
＜% @ Import Namespace = "System.IO" %＞
＜script language = "vb" runat = "server" ＞
Sub SendButton_Click ( sender as Object , e as EventArgs )
' 创建一个StreamReader对象
Dim streamreaderobj As StreamReader
Dim file_name as String
' 定义一个变量来保存从文件中读出的内容
Dim filecont As String
streamreaderobj = File.OpenText ( file_name )
panel1.visible = false
' 一行一行读出文件内容，知道读到一行内容为空字符串的时候，才停止
Do
filecont = streamreaderobj.ReadLine ()
' 利用StreamReader对象读取文件
Response.Write( filecont & " ＜br＞ " )
' 显示文件内容
Loop Until filecont = ""
' 在读操作完成以后，关闭StreamReader对象
streamreaderobj.Close
Response.write ( " ＜br＞ 以上就是" & file_name & "文件的全部内容！ " )
End Sub
＜/script＞
＜asp:panel id = "panel1" runat = "server" ＞
＜form Method = "Post" EncType = "Multipart/Form-Data" runat = "server" ＞
＜p＞欢迎在ASP.NET页面对文件进行读操作＜/p ＞
请选择文件名称：＜input type = "file" id = "filename" runat = "server" /＞ ＜br ＞
＜asp:button id = "Write" Text = "读文件" OnClick = "SendButton_Click" runat = "server" /＞
＜/form ＞
＜/asp:panel ＞
|
| |
|
|
|
