锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net读取dat vbnet读写文件

IT技术文件

vb.net怎么往已经建立好的dat文件里写东西 ， 还不覆盖原本的数据？如果想继续编辑之前vb.net读取dat的文档vb.net读取dat，在TXT文件尾部继续添加文本vb.net读取dat，那么还需要在函数后边加个参数 。
VB 代码
方法1vb.net读取dat：
Dim sw As StreamWriter = New StreamWriter("C:\temp\test.txt")
sw.Write("abc"vbCrLf)
sw.Close()
Dim sw2 As StreamWriter = New StreamWriter("C:\temp\test.txt", True)
sw2.Write("456"vbCrLf)
sw2.Close()
方法2：
My.Computer.FileSystem.WriteAllText("test.txt", "This is test Text", True)
方法3：
System.IO.File.AppendAllText("c:\temp\test.txt", "this is extra test file")
详见：“网页链接”
vb.net 二进制读取文件VB.NET打开二进制文件用fileopen完成，打开二进制文件的形式为：openmode.binary
读取二进制文件用的是fileget方法 ， 写入二进制文件用的是fileput方法 。
应用示例：将一批随机数保存在一个dat文件中，然后再将其提取到文本框中 。
二进制文件的读写一批随机数的存?。绦蛭?
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
【vb.net读取dat vbnet读写文件】Dim x, i, fn As Integer
Dim s As String = ""
fn = FreeFile()
FileOpen(fn, "d:\data.dat", OpenMode.Binary)
For i = 1 To 8
x = Int(Rnd() * 100)
s = s + Str(x)
FilePut(fn, x)
Next
FileClose(fn)
TextBox1.Text = s
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim x, fn As Integer
Dim s As String = ""
fn = FreeFile()
FileOpen(fn, "d:\data.dat", OpenMode.Binary)
Do While Not EOF(fn)
FileGet(fn, x)
s = s + Str(x) + " "
Loop
FileClose(fn)
TextBox1.Text = s
End Sub
VB.net 如果读取txt数据(或十进制dat数据)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
关于vb.net读取dat和vbnet读写文件的介绍到此就结束了 ， 不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息 ， 记得收藏关注本站 。

    推荐阅读


    上一篇：网络黑彩的服务器在国外，黑入国外服务器犯法吗

    下一篇：电脑怎么连蓝牙音响，电脑怎么连蓝牙音响视频