对与文本文件这个咱们都知道的，在VB.NET编程中，怎么样把数据保存为VB.NET TXT文件，现在咱们就看下面的代码解析。
VB.NET TXT文件代码：

PrivateSubCommand1_Click() 
'写文件示例 
DimstrFileNameAsString'文件名 
DimlngHandleAsLong'句柄 
DimstrWriteAsString'要写入的文本内容 
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中后主动加双引号 
OpenstrFileNameForOutputAslngHandle'翻开文件 
Print#lngHandle,strWrite'写入文本 
CloselngHandle'封闭文件 
EndSub 
PrivateSubCommand2_Click() 
'读文件示例 
DimstrFileNameAsString'文件名 
DimlngHandleAsLong'文件句柄 
DimstrAllAsString'所读取的文本文件的一切内容 
DimstrLineAsString'在循环中寄存每行的内容 
strFileName=App.Path&"\a.txt" 
'取得文件的句柄 
lngHandle=FreeFile() 
'For后边的参数表明以何种方法翻开文件，Input是读取，Output是掩盖写入，Append是追加写入 
OpenstrFileNameForInputAslngHandle 
'循环直到文件尾 
DoWhileNotEOF(lngHandle) 
'每次读取一行寄存在strLine变量中 
LineInput#lngHandle,strLine 
'每次读取都把所读到的内容连接到strAll变量，因为LineInput去掉了换行符，所以这儿补上 
strAllstrAll=strAll&strLine&vbCrLf 
Loop 
'显现得到的全部分内容 
MsgBoxstrAll 
EndSub 
PrivateSubCommand1_Click() 
OpenApp.Path&"\a.txt"ForOutputAs#1 
Print#1,Text1.Text'这儿可所以数据自身也可所以方针控件的特点 
Close#1'封闭翻开的文件 
EndSub 
'For后边的参数表明以何种方法翻开文件，Input是读取，Output是掩盖写入，Append是追加写入 

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

【修改引荐】

1. 深入分析VB.NET条件语句中的两类
2. 五大类VB.NET运算符全面介绍
3. 全面评论VB.NET声明Windows API函数
4. 分析VB.NET渠道调用是怎么履行操作
5. 共享个人总结VB.NET多线程