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

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

十多年的隴川網(wǎng)站建設(shè)經(jīng)驗(yàn)，針對(duì)設(shè)計(jì)、前端、開發(fā)、售后、文案、推廣等六對(duì)一服務(wù)，響應(yīng)快，48小時(shí)及時(shí)工作處理。全網(wǎng)整合營(yíng)銷推廣的優(yōu)勢(shì)是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同，自動(dòng)調(diào)整隴川建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調(diào)整網(wǎng)站的寬度，無論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設(shè)計(jì)，從而大程度地提升瀏覽體驗(yàn)。創(chuàng)新互聯(lián)從事“隴川網(wǎng)站設(shè)計(jì)”,“隴川網(wǎng)站推廣”以來，每個(gè)客戶項(xiàng)目都認(rèn)真落實(shí)執(zhí)行。

代碼如下：

'寫文本文件

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 如何打開txt文件？

說明：以下代碼在Microsoft Visual Basic 2005 （簡(jiǎn)體中文版）中通過。

創(chuàng)建新項(xiàng)目：

在窗體上添加文本框2個(gè)：TextBox1，TextBox2

TextBox1 -- 用來編輯要寫入的文本文件的內(nèi)容，或顯示打開的文本文件的內(nèi)容

TextBox2 -- 用來輸入要打開或要寫入的文件名（包括盤符，路徑）（例如：c:\123.txt）

在窗體上添加2個(gè)按鈕：Button1，Button2

Button1 -- 寫入文件

Button2 -- 打開文件

代碼如下：

Imports System.IO

Public Class Form1

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

Dim w As New StreamWriter(TextBox2.Text)

w.Write(TextBox1.Text)

w.Close()

End Sub

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

Dim r As New StreamReader(TextBox2.Text)

Dim s As String

TextBox1.Text = ""

Do While r.Peek -1 '是否到文件尾

s = r.ReadLine

' MessageBox.Show(r.Peek)

TextBox1.Text = TextBox1.Text s vbCrLf

Loop

r.Close()

End Sub

End Class

補(bǔ)充:你要把讀出的數(shù)據(jù)賦值給一個(gè)變量,只要:聲明一個(gè)變量為數(shù)值類型,然后只要讀取一行就可以了,把這行數(shù)據(jù)經(jīng)過轉(zhuǎn)換成數(shù)值后賦給這個(gè)變量.

vb.net圖書借閱管理系統(tǒng)

看了一圈回來,發(fā)現(xiàn)期末了都是一些不讀書的人再找槍手,

希望,別做,才200分,為什么做?害人嗎?

不過這樣也行,我給你做,給我2000元吧,放點(diǎn)血,讓你知道一下不讀書的痛,而且我還會(huì)教你好多知識(shí)

請(qǐng)教VB.NET文本框自動(dòng)滾動(dòng)的問題

你好很高興回答你的問題，但是又很遺憾，對(duì)于你的問題又無能為力。也許你自己已經(jīng)找到答案明天就是新的一年了，在這里祝你在新的一年里，心想事成。謝謝！