vb.net储存本地数据 vbnet filestream

VB.net怎样保存文件

保存文件的步骤为：

关闭流，特别是写入流

关闭并保存文件

示例代码如下：

Imports System.Windows.Forms

Imports System.IO

Imports System.Text

Sub SaveFileDemo()

    '打开文件。如果文件不存在则创建新的文件

    Dim myFile As New IO.FileStream("d:\data.txt", _

                                      FileMode.OpenOrCreate, _

                                      FileAccess.Write)

    

    '在文件末尾添加一行 

    Dim tw As New StreamWriter(myFile)

    myFile.Seek(0, SeekOrigin.End)

    tw.WriteLine("白刃格斗英雄连英模部队方队亮相阅兵")

    

    '关闭流

    tw.Close()

    

    '关闭文件并保存文件

    myFile.Close()

End Sub

相关问答

Q1: vb.net 如何存储用户数据？

这个你可以用 api操作ini文件来实现。ini是windows系统的配置文件。

'首先声明这两个api

Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long

Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Q2: vb.net储存文本数据方法

Private Sub Command1_Click()

'写文件示例

Dim strFileName As String '文件名

Dim lngHandle As Long '句柄

Dim strWrite As String '要写入的文本内容

strFileName = App.Path "\a.txt"

''''''''App.Path "\a.txt"相对路径

''"c:\w.txt"绝对路径

lngHandle = FreeFile() '取得句柄

'准备要写入的内容

strWrite = Text1.Text '或者 strWrite = "这些文字将被写入文件。"

'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入

''''''append是每次在文件末尾写入,不删除其它已经存在的文件.如果换成output则删除其它文件后再写入

''''''print#1,text1.text ''''''如果print换成write则写进txt中后自动加双引号

Open strFileName For Output As lngHandle '打开文件

Print #lngHandle, strWrite '写入文本

Close lngHandle '关闭文件

End Sub

Private Sub Command2_Click()

'读文件示例

Dim strFileName As String '文件名

Dim lngHandle As Long '文件句柄

Dim strAll As String '所读取的文本文件的所有内容

Dim strLine As String '在循环中存放每行的内容

strFileName = App.Path "\a.txt"

'获得文件的句柄

lngHandle = FreeFile()

'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入

Open strFileName For Input As lngHandle

'循环直到文件尾

Do While Not EOF(lngHandle)

'每次读取一行存放在strLine变量中

Line Input #lngHandle, strLine

'每次读取都把所读到的内容连接到strAll变量，由于Line Input去掉了换行符，所以这里补上

strAllstrAll = strAll strLine vbCrLf

Loop

'显示得到的全部分内容

MsgBox strAll

End Sub

Private Sub Command1_Click()

Open App.Path "\a.txt" For Output As #1

Print #1, Text1.Text '这里可以是数据本身也可以是目标控件的属性

Close #1 '关闭打开的文件

End Sub

'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入

append是每次在文件末尾写入,不删除其它已经存在的文件.如果换成output则删除其它文件后再写入 print#1,text1.text 如果print换成write则写进txt中后自动加双引号，以上就是数据保存为VB.NET TXT文件的代码。

vb.net储存本地数据的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet filestream、vb.net储存本地数据的信息别忘了在本站进行查找喔。