如何用vb.net編寫讀取txt內(nèi)容的代碼？

窗體上添加2個(gè)文本框，設(shè)置成多行，2個(gè)按鈕，在文本框1里隨便輸入若干文字，可以多行，單擊按鈕1，保存到文件。然后單擊按鈕2，把剛才寫入的文件讀到文本框2里。

創(chuàng)新互聯(lián)主營玉泉網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營網(wǎng)站建設(shè)方案,app軟件開發(fā),玉泉h5微信小程序搭建,玉泉網(wǎng)站營銷推廣歡迎玉泉等地區(qū)企業(yè)咨詢

代碼如下：

'寫文本文件

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'創(chuàng)建(寫入)一個(gè)文本文件

Dim MyStream As New System.IO.FileStream(Application.StartupPath "\Ssk.txt", System.IO.FileMode.Create)

Dim MyWriter As New System.IO.StreamWriter(MyStream, System.Text.Encoding.Default)

MyWriter.WriteLine(TextBox1.Text)

MyWriter.Flush()

MyWriter.Close()

MyStream.Close()

End Sub

'讀文本文件

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

'讀取一個(gè)文本文件

Dim MyReader As New System.IO.StreamReader(Application.StartupPath "\Ssk.txt", System.Text.Encoding.UTF8)

TextBox2.Text = MyReader.ReadToEnd()

MyReader.Close()

End Sub

氣斜射入水或其他介質(zhì)，折射光線與入射光線法線在

VB.NET中，現(xiàn)有一多行TXT文件，想按行讀取全部內(nèi)容，然后顯示在一文體框中，代碼如下

a?=?""

TextBox1.Text?=""

FileOpen(1,?Application.StartupPath()??"\file\t1.txt",?OpenMode.Input)??????

Do?While?Not?EOF(1)

Input(1,?a)

TextBox1.Text?=TextBox1.Text???a??vbcrlf

Loop??????

一次性讀取

a=File.ReadAllText(Application.StartupPath()??"\file\t1.txt")

vb.net 按行讀取字符串

給你一個(gè)VB2010讀寫文件的例子吧

Dim?name?As?String?=?""

Dim?age?As?Integer

name?=?InputBox("請(qǐng)輸入姓名")

age?=?InputBox("請(qǐng)輸入年齡")

FileOpen(1,?"d:\信息.txt",?OpenMode.Append)

WriteLine(1,?name,?age)

FileClose(1)

FileOpen(1,?"d:\信息.txt",?OpenMode.Input)

Dim?h?As?String

Dim?j?As?String

Dim?f?As?String

f?=?""

h?=?""

j?=?""

While?EOF(1)?=?False

f?=?LineInput(1)??vbCrLf??f

End?While

FileClose(1)

MsgBox("姓名"??"??"??"年齡"??vbCrLf??f)

網(wǎng)頁題目：vb.net按行讀文本 vbnet readline 語句
網(wǎng)頁URL：http://chinadenli.net/article12/ddodegc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供做網(wǎng)站、虛擬主機(jī)、網(wǎng)站建設(shè)、服務(wù)器托管、ChatGPT、網(wǎng)頁設(shè)計(jì)公司

廣告

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