首先在代码的开头引入命名空间:
成都创新互联公司-专业网站定制、快速模板网站建设、高性价比郴州网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式郴州网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖郴州地区。费用合理售后完善,十年实体公司更值得信赖。
Imports System.IO
给出三个读文本文件的例子。
'直接读取所有文本
Dim fileString As String = File.ReadAllText("1.txt")
'把所有行弄进一个数组
Dim fileLines() As String = File.ReadAllLines("1.txt")
'以流的方式一行一行读取
Using fs As FileStream = File.OpenRead("1.txt") '初始化文件流
Using sr As New StreamReader(fs) '初始化流读取器
Dim lineString As String = ""
While Not sr.EndOfStream '循环直到流结束
lineString = sr.ReadLine() '读一行
'这里lineString就是每行的文件内容了。
'你可以在这里对它进行处理。
End While
End Using
End Using
软糖来告诉你吧。
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。
◆ 满意请采纳,谢谢 ◆
vb.net虽也有input语句,但一次只能读取到一个变量中,可以用TextFieldParser类代替,但似乎没以前的方便。不过比以前的更灵活。写入文件Write还是可以用,在Microsoft.VisualBasic.FileIO中。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim fileName As String = "E:\User Documents\Master\My Documents\电子阅读\股票\table2.csv"
Using Recrods As New Microsoft.VisualBasic.FileIO.TextFieldParser(fileName) '建立TextFieldParser对象
'MyReader.TextFieldType = FieldType.Delimited
Recrods.SetDelimiters(",") '把字段分隔符设置为","
Dim curRow() As String
Do Until Recrods.EndOfData
curRow = Recrods.ReadFields() '读取记录行,返回字符串数组,所以不同字段类型需要自己转换。
Debug.Print(Join(curRow, vbTab))
Loop
End Using
End Sub
先用StreamWriter一行行的循环读取到一个字符串中利用split(',')取得2个数字,将2个数字和文本框进行比对即可