vb.net保存兩個文本框

1、首先，點擊保存按鈕后應檢查文本框內(nèi)容。

創(chuàng)新互聯(lián)公司是一家專業(yè)提供簡陽企業(yè)網(wǎng)站建設,專注與成都做網(wǎng)站、成都網(wǎng)站建設、html5、小程序制作等業(yè)務。10年已為簡陽眾多企業(yè)、政府機構等服務。創(chuàng)新互聯(lián)專業(yè)網(wǎng)絡公司優(yōu)惠進行中。

2其次，如果在文本框4中輸入的值以400開頭則保存反之更改為400。

3、最后，再次檢查文本框5如果文本框5中的值為29或31則保存反之則更改即可。

50分 vb.net 如何保存文本框內(nèi)容到txt文件

窗體上建立BUTTON1和TEXTBOX1

代碼如下

100%正確，剛剛寫的，調(diào)試好了

Imports System.io

Public Class form1

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

Dim fs As New FileStream("d:\文本.txt", FileMode.Create, FileAccess.Write)

Dim r As New StreamWriter(fs)

Dim I As Integer

r.Write(TextBox1.Lines(I))

r.Flush()

r.Close()

End Sub

End Class

路徑自己修改

（你的給分是我回答的動力）

vb.net儲存文本數(shù)據(jù)方法

Private Sub Command1_Click()

'寫文件示例

Dim strFileName As String '文件名

Dim lngHandle As Long '句柄

Dim strWrite As String '要寫入的文本內(nèi)容

strFileName = App.Path "\a.txt"

''''''''App.Path "\a.txt"相對路徑

''"c:\w.txt"絕對路徑

lngHandle = FreeFile() '取得句柄

'準備要寫入的內(nèi)容

strWrite = Text1.Text '或者 strWrite = "這些文字將被寫入文件。"

'For后面的參數(shù)表示以何種方式打開文件，Input是讀取，Output是覆蓋寫入，Append是追加寫入

''''''append是每次在文件末尾寫入,不刪除其它已經(jīng)存在的文件.如果換成output則刪除其它文件后再寫入

''''''print#1,text1.text ''''''如果print換成write則寫進txt中后自動加雙引號

Open strFileName For Output As lngHandle '打開文件

Print #lngHandle, strWrite '寫入文本

Close lngHandle '關閉文件

End Sub

Private Sub Command2_Click()

'讀文件示例

Dim strFileName As String '文件名

Dim lngHandle As Long '文件句柄

Dim strAll As String '所讀取的文本文件的所有內(nèi)容

Dim strLine As String '在循環(huán)中存放每行的內(nèi)容

strFileName = App.Path "\a.txt"

'獲得文件的句柄

lngHandle = FreeFile()

'For后面的參數(shù)表示以何種方式打開文件，Input是讀取，Output是覆蓋寫入，Append是追加寫入

Open strFileName For Input As lngHandle

'循環(huán)直到文件尾

Do While Not EOF(lngHandle)

'每次讀取一行存放在strLine變量中

Line Input #lngHandle, strLine

'每次讀取都把所讀到的內(nèi)容連接到strAll變量，由于Line Input去掉了換行符，所以這里補上

strAllstrAll = strAll strLine vbCrLf

Loop

'顯示得到的全部分內(nèi)容

MsgBox strAll

End Sub

Private Sub Command1_Click()

Open App.Path "\a.txt" For Output As #1

Print #1, Text1.Text '這里可以是數(shù)據(jù)本身也可以是目標控件的屬性

Close #1 '關閉打開的文件

End Sub

'For后面的參數(shù)表示以何種方式打開文件，Input是讀取，Output是覆蓋寫入，Append是追加寫入

append是每次在文件末尾寫入,不刪除其它已經(jīng)存在的文件.如果換成output則刪除其它文件后再寫入 print#1,text1.text 如果print換成write則寫進txt中后自動加雙引號，以上就是數(shù)據(jù)保存為VB.NET TXT文件的代碼。

VB如何將程序的數(shù)據(jù)保存？

VB6.0

寫入：

Open "D:\123.txt" For Output As #1 '打開XXX路徑的XXX文件（雙引號里表示文件位置和文件名）

Print #1, Text1.Text '寫入Text1的Text內(nèi)容

Close #1 '關閉

讀?。?/p>

Open "D:\123.txt" For Input As #1 '打開打開XXX路徑的XXX文件（雙引號里表示文件位置和文件名）

Do While Not EOF(1)

Line Input #1, s

Text1.Text = s

Loop 'Do...Loop表示循環(huán)讀取文件的內(nèi)容，并讓Text1.Text=內(nèi)容

Close #1 '關閉

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()