在vb.net中，要如何使textbox读取TXT文档，求代码和栗子。

代码如下，自己修改即可：

Textbox1.Text = ""

Dim str As IO.StreamReader = New IO.StreamReader("C:\要读取的TXT.txt", System.Text.Encoding.Default)

do until str.endofstrema

Textbox1.Text =Textbox1.Text & str.ReadLine())

loop

str.Close()

你提取的数据可以用一个二维数组保存，str[2,10]。另外通过循环 i 来获取和设置文本框中的内容，具体代码如下：

首先你要读写文件，就要引用：

using System.IO

你上文说的i，我写成全局变量，你可以在需要的代码中修改：

int count = 3

按钮一，即从文本框中获取值并写入到文件的代码：

private void button1_Click(object sender, EventArgs e)

{

    string[,] str = new string[2, count]

    StreamWriter sw = File.CreateText("D:\\123.txt")

    for (int i = 0 i < count i++)

    {

        string controlName1 = string.Format("textBox{0}",i+1)

        string controlName2 = string.Format("textBox1{0}", i+1)

        str[0,i] = (Controls.Find(controlName1, false)[0]).Text

        str[1,i] = (Controls.Find(controlName2, false)[0]).Text

        sw.WriteLine(str[0,i])

        sw.WriteLine(str[1,i])

    }

    sw.Close()

}

按钮二，从文件中读取数据然后赋值到文本框中的代码：

private void button2_Click(object sender, EventArgs e)

{

    string[,] str = new string[2, count]

    StreamReader sr = File.OpenText("D:\\123.txt")

    int k = 0//当前读取的是第几行

    while (sr.Peek() != -1)

    {

        str[k % 2, k / 2] = sr.ReadLine()

        k++

    }

    for (int i = 1 i <= count i++)

    {

        string controlName1 = string.Format("textBox{0}", i )

        string controlName2 = string.Format("textBox1{0}", i )

        (Controls.Find(controlName1, false)[0]).Text = str[0, i-1]

        (Controls.Find(controlName2, false)[0]).Text = str[1, i-1]

    }

    sr.Close()

}

你按上面代码写试试，应该可以实现，我自己试验过的。

另外Controls.Find()函数可以获取指定ID名称的控件，这样通过与循环组合就可以实现你功能。

意思信息希望对你有帮助^^

1//

实例化

一个打开

对话框控件

对象

OpenFileDialog

ofd

=

new

OpenFileDialog()

ofd.Filename=string.Emty

//初始化文件名为

空字符串

if(ofd.Filename!=string.Emty)

//如果选择的文件名不为空则d出窗口

ofd.Show()

2//实例化

文件流

对象

FileStream

fs

=

new

FileStream("你存放txt文件的路径或文件名",FileMode.Open)

3//实例化读取器对象

StreamReader

sr

=new

StreamReader(fs)

4//将目标文件读取到

富文本

中

RichTextBox1.Text

=

sr.ReadToEnd()

//.ReadToEnd()是读取全部文本方法

5//关闭读取器和文件流(勿忘!)

sr.Close()

fs.Close()

注意点:

第一步可以省略，主要是出现一个框让你选择一个文件而已，你可以再文件流里制定

绝对路径

或相对路径或文件名，指定成文件名是注意，系统将默认文件在你项目的Debug文件夹下，所以要注意。

---