TEXT1.TEXT上写的什么就删除TXT里对应的内容!
代码请写下!
TEXT1.TEXT上写的什么就删除TXT里对应的内容!
代码请写下!
text1.text = ""
'(两个双引号相连,中间没有内容)
第一个人回答的思路可行
先假设要操作文件是test.txt,我给的代码如下:
dim textcontent as string
Open test.txt for input as #1 '先读文件
input #1,textcontent
close
textcontent=replace(textcontent,text1.text) ‘替换文本
Open test.txt for output as #1 ’保存文件
print #1,textcontent
close
写一次不容易,希望采纳!
有个比较笨的办法:
首先读取指定的TXT文件,写入某个Text控件中
然后将TEXT控件中将你所要指定的(也就是你说的TEXT1.TEXT)内容替换成空,也就是删除掉。
最后再将替换完成的TEXT控件写入刚刚指定的TXT文件中...
代码没时间写....方法给你...代码搜一下就好,也就几行。。。