怎样利用vb删除txt文档中某一行内容

单击一个command 删除txt文档中某一行内容,着重于任意一行
那怎么删除特定内容呢 我按行读取文档中内容在text中 然后利用command删除显示的哪一行怎么做

1.在D盘下建111.txt(也可以在其他盘下建,自己定)

2.form下有Listbox,Command,text三个控件

复制以下代码

Private Sub Command1_Click()

Open "d:\111.txt" For Input As #1

Do While Not EOF(1)

   Line Input #1, dat

   s1 = s1 & dat & ","

   Loop

   Close #1

   s2 = Split(s1, ",")

For i = 0 To UBound(s2)

  List1.AddItem s2(i)

  Next i

  List1.ListIndex = Val(Text1.Text) - 1

  List1.RemoveItem List1.ListIndex

  Open "d:\111.txt" For Output As #1

    For n = 0 To List1.ListCount

     Print #1, List1.List(n)

     Next n

     Close #1

End Sub

Private Sub Form_Load()

List1.Visible = False

End Sub 

不明白你的意思,这是VB爱好者QQ群16565019,你加进去这样咱们说起来还比较方便

温馨提示:答案为网友推荐,仅供参考
第1个回答  2010-07-10
先读取这行上面的,存到另一个文件,
然后读取这一行下面的,追加到另一个文件,
然后删除本文件,将另一个文件改名为这个文件。
第2个回答  2010-07-11
先把每行都读取出来,然后重新把每行写回去(要删除的行除外)
第3个回答  2010-07-22
大概思路可以这样:
1,首先把那文本文件的所有内容读取到内存;
2,再从读进来的内容里调用函数查找你要删除的内容段;
3,再定义两个变量,从要删除的内容之前的内容放在一个变量,还用从删除内容最后开始到结束为止 的内容放在一个变量里;
4,最后把两个变量的字符内容链接一起后覆盖打开原来文本文件;再把链接好的内容输出到那个文本文件就行啦;
5,要是直接把代码写给你了的话,你读懂也得需要些时间,最重要的是;你自己写的代码多了,你的思维才会丰富的。好运!
相似回答