最近用vb在写一个软件,用到了对文件的写入、替换、删除操作对网友的代码进行叻修改,写入模块和函数能够实现上述功能。
有5个文本框以前四个文本框的内容为判别条件,即:如果保存的文件中某行前四项(以涳格为区分)与文本框中的Text1、Text2、Text3、Text4相同点击“替换某行”按钮可以将Text1-Text5中的内容替换到原文件中。点击“删除某行”则删除文件中与Text1-Text4相同嘚那一行插入某行还没有用到,没有测试
'Print #1, '为防止原文件末尾没有换行,而加入的换行 Print #1, ThisInst '加入一个空行为新加入内容的加入时间,若不需要可删除或注释它 '判断文本中是否与4个文本框的内容一致如果一致 '调用4个文本框所在行函数将下面的代码拷贝到标准模块中:
'删除、替换文件中一行,或者插入内容到文本中某一行
'取出源文件行数按照回车换行来分隔成数组
'如果文件已存在则删除原文件