vb6 对文件的写入、替换、删除和插入某行操作

最新推荐文章于 2024-08-06 13:07:01 发布

ajunajun

最新推荐文章于 2024-08-06 13:07:01 发布

阅读量6.9k

点赞数 2

文章标签： vb6.0 替换删除文件某行函数模块

本文链接：https://blog.csdn.net/ajunajun/article/details/66968241

版权

最近用vb在写一个软件，用到了对文件的写入、替换、删除操作，对网友的代码进行了修改，写入模块和函数，能够实现上述功能。

有5个文本框，以前四个文本框的内容为判别条件，即：如果保存的文件中某行前四项（以空格为区分）与文本框中的Text1、Text2、Text3、Text4相同，点击“替换某行”按钮可以将Text1-Text5中的内容替换到原文件中。点击“删除某行”则删除文件中与Text1-Text4相同的那一行。插入某行还没有用到，没有测试。

Dim MonitorSetFile As String  '文件名
Private Sub Command1_Click()
MonitorSetFile = App.Path + "\InstMonitorSet.dat"
 Dim ThisInst As String
               ThisInst = Text1.Text + " " + Text2.Text + " " + Text3.Text + " " + Text4.Text + Text5.Text
 Open MonitorSetFile For Append As #1   '以追加方式打开文件
  'Print #1,                 '为防止原文件末尾