vb.net儲(chǔ)存文本數(shù)據(jù)方法

Private Sub Command1_Click()

為北票等地區(qū)用戶(hù)提供了全套網(wǎng)頁(yè)設(shè)計(jì)制作服務(wù)，及北票網(wǎng)站建設(shè)行業(yè)解決方案。主營(yíng)業(yè)務(wù)為成都網(wǎng)站設(shè)計(jì)、網(wǎng)站制作、外貿(mào)營(yíng)銷(xiāo)網(wǎng)站建設(shè)、北票網(wǎng)站設(shè)計(jì)，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專(zhuān)業(yè)、用心的態(tài)度為用戶(hù)提供真誠(chéng)的服務(wù)。我們深信只要達(dá)到每一位用戶(hù)的要求，就會(huì)得到認(rèn)可，從而選擇與我們長(zhǎng)期合作。這樣，我們也可以走得更遠(yuǎn)！

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

vb.net如何以u(píng)nicode編碼將文本寫(xiě)入到文件里

只要指定寫(xiě)入文件的編碼就行了，很簡(jiǎn)單的。

Dim vSW As New IO.StreamWriter("C:\Test.txt", False, System.Text.Encoding.Unicode)

vSW.Write("這是unicode編碼的文本")

vSW.Close()

vb.net中，讀取和寫(xiě)入文件

寫(xiě)入：Dim sr As New IO.StreamWriter(Application.StartupPath "/寫(xiě)入的文本.txt")

sr.WriteLine("寫(xiě)入的內(nèi)容") sr.Close()讀?。篒f (File.Exists(Application.StartupPath "/msg.txt")) Then

Dim fm As New IO.FileStream(Application.StartupPath "/讀取的文本.txt", FileMode.Open)

Dim sr As IO.StreamReader = New IO.StreamReader(fm)

Do While sr.Peek() = 0

TextBox1.Text = sr.ReadLine() （讀取文本到文本框）

Loop end if

VB.NET 如何把參數(shù)設(shè)置寫(xiě)入文本？

寫(xiě)入讀出文本的操作會(huì)嗎？

刪除文件的操作會(huì)不?

如果以上2個(gè)會(huì)的話(huà)，直接有個(gè)文件list顯示對(duì)應(yīng)文件，然后獲取對(duì)應(yīng)文件路徑再刪除就好了。若還不知道，我再給你具體程序。