VB.NET 本地保存数据VB可以用任何格式保存文件数据不仅仅是注册表\XML\INI
甚至于未知vb.net生成dat的格式 。我教vb.net生成dat你命令vb.net生成dat:
open "C:\setup.safe" for output as #1
print #1,"object"
close #1
其中setup.safe就是一个文件vb.net生成dat , 后缀为.safevb.net生成dat,当然可以改成.dat包括其他任何后缀.
object就是你要写入setup.safe的内容.
vb.net 二进制读取文件VB.NET打开二进制文件用fileopen完成vb.net生成dat , 打开二进制文件的形式为:openmode.binary
读取二进制文件用的是fileget方法vb.net生成dat,写入二进制文件用的是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)
For i = 1 To 8
x = Int(Rnd() * 100)
s = sStr(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 = sStr(x)" "
Loop
FileClose(fn)
TextBox1.Text = s
End Sub
vb.net怎么往已经建立好的dat文件里写东西 , 还不覆盖原本的数据?如果想继续编辑之前的文档,在TXT文件尾部继续添加文本,那么还需要在函数后边加个参数 。
VB 代码
方法1:
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 如何生成dat数据文件DAT就是DATA的缩写 。你说的dat数据文件应该是指XXX.dat这种吧 。这种文件都是文件的生成者自己定义的 。里面的数据和格式都是自定的 。比如你可以把一张叫ABC.JPG的图片改成ABC.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
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 createobject】关于vb.net生成dat和vbnet createobject的介绍到此就结束了 , 不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站 。
推荐阅读
- 同轴电缆怎么连接路由器,同轴电缆怎么连接路由器的
- 新媒体如何快速增长,如何提升新媒体传播效果
- c语言用递归函数算x的n 用递归语句,计算x^n
- 监控硬盘没有网怎么看,监控硬盘没有网怎么看录像
- 表格边框隐藏css,css表格不显示边框
- erp系统怎么取消限价,erp关闭
- go语言打开图 go语言写界面
- 苹果cms缓存file,苹果CMS缓存文件夹
- 问CHATGPT最有趣的问题,问我一个非常有趣的问题