vb.net保存两个文本框

1、首先，点击保存按钮后应检查文本框内容。

创新互联公司是一家专业提供简阳企业网站建设,专注与成都做网站、成都网站建设、html5、小程序制作等业务。10年已为简阳众多企业、政府机构等服务。创新互联专业网络公司优惠进行中。

2其次，如果在文本框4中输入的值以400开头则保存反之更改为400。

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

50分 vb.net 如何保存文本框内容到txt文件

窗体上建立BUTTON1和TEXTBOX1

代码如下

100%正确，刚刚写的，调试好了

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储存文本数据方法

Private Sub Command1_Click()

'写文件示例

Dim strFileName As String '文件名

Dim lngHandle As Long '句柄

Dim strWrite As String '要写入的文本内容

strFileName = App.Path "\a.txt"

''''''''App.Path "\a.txt"相对路径

''"c:\w.txt"绝对路径

lngHandle = FreeFile() '取得句柄

'准备要写入的内容

strWrite = Text1.Text '或者 strWrite = "这些文字将被写入文件。"

'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入

''''''append是每次在文件末尾写入,不删除其它已经存在的文件.如果换成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 '所读取的文本文件的所有内容

Dim strLine As String '在循环中存放每行的内容

strFileName = App.Path "\a.txt"

'获得文件的句柄

lngHandle = FreeFile()

'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入

Open strFileName For Input As lngHandle

'循环直到文件尾

Do While Not EOF(lngHandle)

'每次读取一行存放在strLine变量中

Line Input #lngHandle, strLine

'每次读取都把所读到的内容连接到strAll变量，由于Line Input去掉了换行符，所以这里补上

strAllstrAll = strAll strLine vbCrLf

Loop

'显示得到的全部分内容

MsgBox strAll

End Sub

Private Sub Command1_Click()

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

Print #1, Text1.Text '这里可以是数据本身也可以是目标控件的属性

Close #1 '关闭打开的文件

End Sub

'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入

append是每次在文件末尾写入,不删除其它已经存在的文件.如果换成output则删除其它文件后再写入 print#1,text1.text 如果print换成write则写进txt中后自动加双引号，以上就是数据保存为VB.NET TXT文件的代码。

VB如何将程序的数据保存？

VB6.0

写入：

Open "D:\123.txt" For Output As #1 '打开XXX路径的XXX文件（双引号里表示文件位置和文件名）

Print #1, Text1.Text '写入Text1的Text内容

Close #1 '关闭

读取：

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表示循环读取文件的内容，并让Text1.Text=内容

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

名称栏目：vb.net保存文本 vb保存文本框内容
文章URL：http://myzitong.com/article/doeoogs.html