扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
写入:Dim sr As New IO.StreamWriter(Application.StartupPath "/写入的文本.txt")
为滨海等地区用户提供了全套网页设计制作服务,及滨海网站建设行业解决方案。主营业务为网站设计制作、成都网站建设、滨海网站设计,以传统方式定制建设网站,并提供域名空间备案等一条龙服务,秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求,就会得到认可,从而选择与我们长期合作。这样,我们也可以走得更远!
sr.WriteLine("写入的内容") sr.Close()读取:If (File.Exists(Application.StartupPath "/msg.txt")) Then
Dim fm As New IO.FileStream(Application.StartupPath "/读取的文本.txt", FileMode.Open)
Dim sr As IO.StreamReader = New IO.StreamReader(fm)
Do While sr.Peek() = 0
TextBox1.Text = sr.ReadLine() (读取文本到文本框)
Loop end if
一、二进制文件读写
1、写二进制数据到指定目录
==将barray字节数组中的数据创建在strFilename目录文件下,存储格式为二进制,False表示不添加,直接覆盖创建。
2、从指定路径下读取二进制数据到数组
==将目录中的文件读取到barry字节数组中,即读取二进制文件。
二、字符文件的读写
1、 将txtFile控件中的字符写到srtFileName指定目录,以创建方式。
2、从srtFileName目录中的文件读取到txtFile控件
楼上的继续忽悠人吧。2,3句搞定的东西弄这么复杂。。。
就是读取服务器文件呀。
微软论坛就有例子。
Imports System
Imports System.IO
Class Test
Public Shared Sub Main()
Try
' 创建一个实例的StreamReader阅读从一个文件。
Dim sr As StreamReader = New StreamReader("TestFile.txt")
Dim line As String
' 阅读并显示线路从文件,直到最后
' 该文件被达成。
Do
line = sr.ReadLine()
Console.WriteLine(Line)
Loop Until line Is Nothing
sr.Close()
Catch E As Exception
' 让用户知道有什么地方出了差错。
Console.WriteLine("The file could not be read:")
Console.WriteLine(E.Message)
End Try
End Sub
End Class
//上面是微软的例子,你可以参考自己改,下面是我改的。
Imports System.IO
Partial Class test
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Using sr As StreamReader = New StreamReader("E:\新建文本文档.txt", Encoding.GetEncoding("gb2312"))
Response.Write(sr.ReadLine())
End Using
End Sub
End Class
已经测试过了,文件路径自己改,支持TXT格式,其他格式自己修改编码
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流