这篇文章主要为大家展示了“如何把数据保存为VB.NET TXT文件”，内容简而易懂，条理清晰，希望能够帮助大家解决疑惑，下面让小编带领大家一起研究并学习一下“如何把数据保存为VB.NET TXT文件”这篇文章吧。
VB.NET TXT文件代码：
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 TXT文件”这篇文章的所有内容，感谢各位的阅读！相信大家都有了一定的了解，希望分享的内容对大家有所帮助，如果还想学习更多知识，欢迎关注编程网行业资讯频道！
