vb.net读取dat

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

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文件里写东西,还不覆盖原本的数据?

VB 代码

方法1：

? ? Dim?sw?As?StreamWriter =?New?StreamWriter("C:\temp\test.txt")

? ? sw.Write("abc"? vbCrLf)

sw.Close()

? ? My.Computer.FileSystem.WriteAllText("test.txt",?"This is test Text",?True)

? ? System.IO.File.AppendAllText("c:\temp\test.txt",?"this is extra test file")

详见："网页链接"?

请问.dat的记录文件怎么用VB语句读取?

Private Sub Cmddel_Click()

dim i as integer,FN as string,Fns() as string

for i=0 to ubound(fns)

fn=syspath "\" fns(i)

if dir(fn)"" then kill fn

next

End Sub

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

Dim x, i, fn As Integer

Dim s As String = ""

fn = FreeFile()

FileOpen(fn, "d:\data.dat", OpenMode.Binary)

x = Int(Rnd() * 100)

s = s ◆ Str(x)

FilePut(fn, x)

Next

FileClose(fn)

TextBox1.Text = s

Dim x, fn As Integer

Do While Not EOF(fn)

FileGet(fn, x)

s = s ◆ Str(x) ◆ " "

以上就是土嘎嘎小编为大家整理的vb.net读取dat相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！