行不通呢，你这是从文本中查找，我要的是获取datagrid里最新的内容，把他输出

我现在的程序是这样的

[IMG]C:\Documents and Settings\Jiangyw\桌面\1.bmp[/IMG]
我每在界面上增加一条记录，在datagrid里都能实时更新，在界面上都是没有问题的
主要的问题是点击界面上的apply按钮后就会把datagrid里的内容都输出到文本中
但是现在就是一个问题，当我再点击这个窗体，再添加记录或者是修改删除，datagrid里此时的信息
就会改变吧，我再点击apply按钮生成文本的时候，在文本里不能更新，他只是在文本的后面再次添加
而不是修改文本之前的记录

我是想先input这个文本查看是否有相同的记录，如果有，就把这记录之前的文本和修改的记录放在StrFileContent里面，然后关闭
在output这个文本，把StrFileContent的内容写入到文本里，然后关闭
如果没有相同的记录，那么就append这个文本，直接在后面追加

更新文本的内容如果界面不带datagrid，我都能实现了！
现在就是datagrid里的内容是动态的并且是多条的，所以要用到循环之类的语句，就实现不了了

谢谢你这么帮我，太感谢了！
你说如果我要批量生成文本，就是我那个config文件，我可以让他生成100个内容完全一样的config文件吗？这100个名字可以不同
可以以config1，config2，config3之类的命名不？

怎么获取文本里的全部内容
然后赋给一个变量
用get ＃filenum，变量
put #filenum,变量
到其他的文本里可以不？

你说复制更快些
我是想比如我开始把所有的内容先放在一个config1文件里，然后在一个界面里放一个text1，里面就可以输入你要生成多少个相同的文本
点击ok就可以了，下面的代码我是要放在ok这个事件里的，你看看
Dim txtFlname, strFileContent As String '文件名变量
Dim x As Integer
Open ".\config1.txt" For Binary As #1
get 不知道怎么获取config1的全部内容到一个变量比如说是strFileContent
Close #1
For x = 1 To Text1.Text
txtFlname = "config" & x + 1 & ".txt" '文件名
Open txtFlname For Output As #2
put ＃2，strFileContent
Close #2
Next x

不懂那个
那我在上面怎么用get去取一个文本文件里的所有内容呢

可以了，谢谢了哈