十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
软糖来告诉你吧。
成都创新互联公司,为您提供重庆网站建设公司、成都网站制作公司、网站营销推广、网站开发设计,对服务成都葡萄架等多个行业拥有丰富的网站建设及推广经验。成都创新互联公司网站建设公司成立于2013年,提供专业网站制作报价服务,我们深知市场的竞争激烈,认真对待每位客户,为客户提供赏心悦目的作品。 与客户共同发展进步,是我们永远的责任!
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。
◆ 满意请采纳,谢谢 ◆
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim r As New StreamReader("C:\jq.TXT") '打开文件
Dim Mytxt As String = ""
Dim s As String
Do While r.Peek -1 '是否到文件尾
s = r.ReadLine '从打开的文件中读取一行内容
Mytxt = Mytxt s vbCrLf '逐行读取文本,并连接到变量Mytxt中
Loop
r.Close() '关闭对象
'判断是否与变量相等etjq,略了吧???
End Sub
End Class
这估计是不行的,很多软件在打开一个被占用的文件时会提示你文件已被占用,需要你自己关闭占用程序后才能打开。
反过来想如果你打开一个文件并禁止其它程序打开或修改它,其它软件可不受限止的打开和修改,那这种安全机制不就没意义了吗。
所以只能有两种处理方法,一种只禁止修改文件,可以以只读方式打开,如果不行那只能提示用户关掉占用程序后再启动本程序了。
你都用.net了,这是vb的旧语法,不推荐使用。vb.net是面向对象的,推荐您使用
dim OpF as new io.filestream(OpenFileDialog1.FileName, IO.FileMode.Open)
...
OpF.close
或是
Using OpF as new io.filestream(OpenFileDialog1.FileName, IO.FileMode.Open)
...
End Using
但是你如果执意要用的话,也可以:
FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
...
FileClose(1) '这里可以同时关闭多个文件号,文件号之间用,隔开
你的编程思维不太清晰。首先你可以定义一个全局逻辑,b线程里,对txt操作,就等于真,结束代码后就让它等于假。然后a就可以判断逻辑变量来确定b的流程