vb.net創(chuàng)建一個txt文本，在debug文件夾里

設計一個窗口，添加一個名為textBox1的System.Windows.Forms.TextBox，

成都創(chuàng)新互聯-專業(yè)網站定制、快速模板網站建設、高性價比臨翔網站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式臨翔網站制作公司更省心,省錢,快速模板網站建設找我們，業(yè)務覆蓋臨翔地區(qū)。費用合理售后完善，十余年實體公司更值得信賴。

添加一個名為button1的System.Windows.Forms.Button。

為button1的單擊事件添加如下處理函數：

Sub Button1Click(sender As Object, e As EventArgs)

'f是你的文本文件的文件名

Const f As String="t.txt"

Dim sw As System.IO.StreamWriter=Nothing

Try

If Not System.IO.File.Exists(f) Then

sw=System.IO.File.CreateText(f)

Else

sw=New System.IO.StreamWriter(f,True)

End If

sw.WriteLine(textBox1.Text)

Finally

If sw IsNot Nothing Then

sw.close()

End If

End Try

End Sub

vb.net 中對txt文件的讀取、寫入的方法！始終保持txt里面只有一行！

Public Class Form1

Private Sub 寫入文件_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 寫入文件.Click

FileOpen(1, "D:\一行文件.txt", OpenMode.Output) ' Open file for output.

WriteLine(1, "想只保留文件為一行 那你就寫一行好了") ' Print blank line to file.

FileClose(1) ' Close file.

End Sub

Private Sub 讀取文件_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 讀取文件.Click

Dim TextLine As String

FileOpen(1, "D:\一行文件.txt", OpenMode.Input) ' Open file for output.

TextLine = LineInput(1) '讀取一行就了

MsgBox(TextLine)

FileClose(1)

End Sub

End Class

最簡單的方法 還有很多方法 自己研究吧親 希望能幫到你

請教在VB.net中如何將數據寫入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 要寫的內容 As String = ""

File.WriteAllText(文件路徑, 要寫的內容, 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 追加寫入。

將上面代碼的第二個參數False改為True。

◆ 滿意請采納，謝謝 ◆

如何用vb.net編寫讀取txt內容的代碼？

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

代碼如下：

'寫文本文件

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

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

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

'讀取一個文本文件

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

TextBox2.Text = MyReader.ReadToEnd()

MyReader.Close()

End Sub

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