對與文本文件這個大家都知道的，在VB.NET編程中，怎么樣把數據保存為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文件的代碼。

【編輯推薦】

1. 深入分析VB.NET條件語句中的兩類
2. 五大類VB.NET運算符全面介紹
3. 全面討論VB.NET申明Windows API函數
4. 剖析VB.NET平臺調用是如何執行操作
5. 分享個人總結VB.NET多線程