重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
写入:Dim sr As New IO.StreamWriter(Application.StartupPath "/写入的文本.txt")
成都创新互联公司于2013年创立,是专业互联网技术服务公司,拥有项目网站制作、成都网站建设网站策划,项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命,1280元廊坊做网站,已为上家服务,为廊坊各地企业和个人服务,联系电话:13518219792
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
dim data as string
open "文件名" for Random as #1'建立或打开文件
Put #1,,"数据"'写入数据(两逗号间为“记录号”,即读或写文件中的第几个数据,可省略。若指定记录号上已有数据,则原数据将被替换)
close #1'关闭文件
msgbox "数据写入成功"
open "文件名" for Random as #1'建立或打开文件
get #1,,data'读取数据(两逗号间为“记录号”,即读或写文件中的第几个数据,可省略)
close #1'关闭文件
msgbox "读取数据成功:" data '"读写验证"
'给你总结一下:这个随机文件类似于表格(像excel),每个数据都是一个单元,“记录号”就是第几个数据单元。好了,希望你能明白
软糖来告诉你吧。
VB.net中读写文件主要使用System.IO命名空间。
① 使用 File.ReadAllText 读取
Dim s As String = System.IO.File.ReadAllText("C:\a.txt")
② 使用 StreamReader 读取,注意编码格式和写入的编码保持一致。
Dim sr As StreamReader = New StreamReader("C:\a.txt", System.Text.Encoding.UTF8)
Dim s As String = sr.ReadToEnd()
sr.Close()
③ 使用 File.WriteAllText 写入,会覆盖同名的文件。
Dim 要写的内容 As String = ""
File.WriteAllText(文件路径, 要写的内容, System.Text.Encoding.UTF8)
④ 使用 StreamWriter 写入。
Dim sw As System.IO.StreamWriter = New System.IO.StreamWriter("C:\a.txt", False, System.Text.Encoding.UTF8)
sw.WriteLine(TextTB.Text)
sw.Close()
⑤ 使用 StreamWriter 追加写入。
将上面代码的第二个参数False改为True。
◆ 满意请采纳,谢谢 ◆