真实的国产乱ⅩXXX66竹夫人,五月香六月婷婷激情综合,亚洲日本VA一区二区三区,亚洲精品一区二区三区麻豆

成都創(chuàng)新互聯(lián)網(wǎng)站制作重慶分公司

vb.net隨機寫入文件 vb隨機文件的操作

vb.net中,讀取和寫入文件

寫入: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

vb隨機文件寫和讀通過什么語句

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中如何將數(shù)據(jù)寫入txt文件、再從txt文件讀出?

軟糖來告訴你吧。

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。

◆ 滿意請采納,謝謝 ◆


文章名稱:vb.net隨機寫入文件 vb隨機文件的操作
轉(zhuǎn)載源于:http://weahome.cn/article/dooijsh.html

其他資訊

在線咨詢

微信咨詢

電話咨詢

028-86922220(工作日)

18980820575(7×24)

提交需求

返回頂部