如何把數(shù)據(jù)保存為VB.NET TXT文件

這篇文章主要為大家展示了“如何把數(shù)據(jù)保存為VB.NET TXT文件”，內(nèi)容簡(jiǎn)而易懂，條理清晰，希望能夠幫助大家解決疑惑，下面讓小編帶領(lǐng)大家一起研究并學(xué)習(xí)一下“如何把數(shù)據(jù)保存為VB.NET TXT文件”這篇文章吧。

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文件的代碼。

以上是“如何把數(shù)據(jù)保存為VB.NET TXT文件”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對(duì)大家有所幫助，如果還想學(xué)習(xí)更多知識(shí)，歡迎關(guān)注億速云行業(yè)資訊頻道！