欧美一区二区三区老妇人-欧美做爰猛烈大尺度电-99久久夜色精品国产亚洲a-亚洲福利视频一区二区

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

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

成都創(chuàng)新互聯(lián)公司專注于甘谷網(wǎng)站建設(shè)服務(wù)及定制,我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗。 熱誠為您提供甘谷營銷型網(wǎng)站建設(shè),甘谷網(wǎng)站制作、甘谷網(wǎng)頁設(shè)計、甘谷網(wǎng)站官網(wǎng)定制、重慶小程序開發(fā)公司服務(wù),打造甘谷網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供甘谷網(wǎng)站排名全網(wǎng)營銷落地服務(wù)。

VB.NET TXT文件代碼:

Private Sub Command1_Click()  '寫文件示例  Dim strFileName As String '文件名  Dim lngHandle As Long '句柄  Dim strWrite As String '要寫入的文本內(nèi)容   strFileName = App.Path & "\a.txt"  ''''''''App.Path & "\a.txt"相對路徑  ''"c:\w.txt"絕對路徑  lngHandle = FreeFile() '取得句柄  '準(zhǔn)備要寫入的內(nèi)容  strWrite = Text1.Text '或者 strWrite = "這些文字將被寫入文件。" 'For后面的參數(shù)表示以何種方式打開文件,Input是讀取,Output是覆蓋寫入,Append是追加寫入  ''''''append是每次在文件末尾寫入,不刪除其它已經(jīng)存在的文件.如果換成output則刪除其它文件后再寫入  ''''''print#1,text1.text ''''''如果print換成write則寫進(jìn)txt中后自動加雙引號   Open strFileName For Output As lngHandle '打開文件  Print #lngHandle, strWrite '寫入文本  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ù)表示以何種方式打開文件,Input是讀取,Output是覆蓋寫入,Append是追加寫入  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)閉打開的文件  End Sub  'For后面的參數(shù)表示以何種方式打開文件,Input是讀取,Output是覆蓋寫入,Append是追加寫入

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

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

本文題目:如何把數(shù)據(jù)保存為VB.NETTXT文件
文章路徑:http://chinadenli.net/article38/gioopp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供面包屑導(dǎo)航、網(wǎng)站收錄、網(wǎng)頁設(shè)計公司網(wǎng)站營銷、營銷型網(wǎng)站建設(shè)、網(wǎng)站維護(hù)

廣告

聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)

成都網(wǎng)站建設(shè)公司