怎样利用vb删除txt文档中某一行内容 20
那怎么删除特定内容呢 我按行读取文档中内容在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,首先把那文本文件的所有内容读取到内存;
2,再从读进来的内容里调用函数查找你要删除的内容段;
3,再定义两个变量,从要删除的内容之前的内容放在一个变量,还用从删除内容最后开始到结束为止 的内容放在一个变量里;
4,最后把两个变量的字符内容链接一起后覆盖打开原来文本文件;再把链接好的内容输出到那个文本文件就行啦;
5,要是直接把代码写给你了的话,你读懂也得需要些时间,最重要的是;你自己写的代码多了,你的思维才会丰富的。好运!