對(duì)與文本文件這個(gè)大家都知道的，在VB.NET編程中，怎么樣把數(shù)據(jù)保存為VB.NET TXT文件，現(xiàn)在我們就看下面的代碼解析。
VB.NET TXT文件代碼：

        
            
Private Sub Command1_Click()              
'寫(xiě)文件示例              
Dim strFileName As String '文件名              
Dim lngHandle As Long '句柄              
Dim strWrite As String '要寫(xiě)入的文本內(nèi)容              
             
strFileName = App.Path & "\a.txt"              
''''''''App.Path & "\a.txt"相對(duì)路徑              
''"c:\w.txt"絕對(duì)路徑              
lngHandle = FreeFile() '取得句柄              
'準(zhǔn)備要寫(xiě)入的內(nèi)容              
strWrite = Text1.Text '或者 strWrite = "這些文字將被寫(xiě)入文件。"             
'For后面的參數(shù)表示以何種方式打開(kāi)文件，Input是讀取，Output是覆蓋寫(xiě)入，Append是追加寫(xiě)入              
''''''append是每次在文件末尾寫(xiě)入,不刪除其它已經(jīng)存在的文件.如果換成output則刪除其它文件后再寫(xiě)入              
''''''print#1,text1.text ''''''如果print換成write則寫(xiě)進(jìn)txt中后自動(dòng)加雙引號(hào)              
             
Open strFileName For Output As lngHandle '打開(kāi)文件              
Print #lngHandle, strWrite '寫(xiě)入文本              
Close lngHandle '關(guān)閉文件              
End Sub              
Private Sub Command2_Click()              
'讀文件示例              
Dim strFileName As String '文件名              
Dim lngHandle As Long '文件句柄              
Dim strAll As String '所讀取的文本文件的所有內(nèi)容              
Dim strLine As String '在循環(huán)中存放每行的內(nèi)容              
strFileName = App.Path & "\a.txt"              
'獲得文件的句柄              
lngHandle = FreeFile()              
'For后面的參數(shù)表示以何種方式打開(kāi)文件，Input是讀取，Output是覆蓋寫(xiě)入，Append是追加寫(xiě)入              
Open strFileName For Input As lngHandle              
'循環(huán)直到文件尾              
Do While Not EOF(lngHandle)              
'每次讀取一行存放在strLine變量中              
Line Input #lngHandle, strLine              
'每次讀取都把所讀到的內(nèi)容連接到strAll變量，由于Line Input去掉了換行符，所以這里補(bǔ)上              
strAllstrAll = strAll & strLine & vbCrLf              
Loop              
'顯示得到的全部分內(nèi)容              
MsgBox strAll              
End Sub              
             
Private Sub Command1_Click()              
Open App.Path & "\a.txt" For Output As #1              
Print #1, Text1.Text '這里可以是數(shù)據(jù)本身也可以是目標(biāo)控件的屬性              
Close #1 '關(guān)閉打開(kāi)的文件              
End Sub              
'For后面的參數(shù)表示以何種方式打開(kāi)文件，Input是讀取，Output是覆蓋寫(xiě)入，Append是追加寫(xiě)入  
        
        

append是每次在文件末尾寫(xiě)入,不刪除其它已經(jīng)存在的文件.如果換成output則刪除其它文件后再寫(xiě)入 print#1,text1.text 如果print換成write則寫(xiě)進(jìn)txt中后自動(dòng)加雙引號(hào)，以上就是數(shù)據(jù)保存為VB.NET TXT文件的代碼。