寫入:Dim sr As New IO.StreamWriter(Application.StartupPath "/寫入的文本.txt")
成都創(chuàng)新互聯(lián)公司于2013年創(chuàng)立,是專業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司,擁有項目網(wǎng)站制作、成都網(wǎng)站建設(shè)網(wǎng)站策劃,項目實施與項目整合能力。我們以讓每一個夢想脫穎而出為使命,1280元廊坊做網(wǎng)站,已為上家服務(wù),為廊坊各地企業(yè)和個人服務(wù),聯(lián)系電話:13518219792
sr.WriteLine("寫入的內(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
dim data as string
open "文件名" for Random as #1'建立或打開文件
Put #1,,"數(shù)據(jù)"'寫入數(shù)據(jù)(兩逗號間為“記錄號”,即讀或?qū)懳募械牡趲讉€數(shù)據(jù),可省略。若指定記錄號上已有數(shù)據(jù),則原數(shù)據(jù)將被替換)
close #1'關(guān)閉文件
msgbox "數(shù)據(jù)寫入成功"
open "文件名" for Random as #1'建立或打開文件
get #1,,data'讀取數(shù)據(jù)(兩逗號間為“記錄號”,即讀或?qū)懳募械牡趲讉€數(shù)據(jù),可省略)
close #1'關(guān)閉文件
msgbox "讀取數(shù)據(jù)成功:" data '"讀寫驗證"
'給你總結(jié)一下:這個隨機文件類似于表格(像excel),每個數(shù)據(jù)都是一個單元,“記錄號”就是第幾個數(shù)據(jù)單元。好了,希望你能明白
軟糖來告訴你吧。
VB.net中讀寫文件主要使用System.IO命名空間。
① 使用 File.ReadAllText 讀取
Dim s As String = System.IO.File.ReadAllText("C:\a.txt")
② 使用 StreamReader 讀取,注意編碼格式和寫入的編碼保持一致。
Dim sr As StreamReader = New StreamReader("C:\a.txt", System.Text.Encoding.UTF8)
Dim s As String = sr.ReadToEnd()
sr.Close()
③ 使用 File.WriteAllText 寫入,會覆蓋同名的文件。
Dim 要寫的內(nèi)容 As String = ""
File.WriteAllText(文件路徑, 要寫的內(nèi)容, System.Text.Encoding.UTF8)
④ 使用 StreamWriter 寫入。
Dim sw As System.IO.StreamWriter = New System.IO.StreamWriter("C:\a.txt", False, System.Text.Encoding.UTF8)
sw.WriteLine(TextTB.Text)
sw.Close()
⑤ 使用 StreamWriter 追加寫入。
將上面代碼的第二個參數(shù)False改為True。
◆ 滿意請采納,謝謝 ◆