vb.net数据保存

VB.NET编程中用户的数据应该怎么保存?

在游戏退出时将得分、粉丝名、关数、级别这些数值保存到一个

数据文件

,下次运行时再读取这些数据就可以恢复上次游戏的状态.

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

'读文件示例

Dim lngHandle As Long '文件句柄

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

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

'获得文件的句柄

lngHandle = FreeFile()

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

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

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

Close #1 '关闭打开的文件

append是每次在文件末尾写入,不删除其它已经存在的文件.如果换成output则删除其它文件后再写入 print#1,text1.text 如果print换成write则写进txt中后自动加双引号,

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