VB删除txt文件中的某一行

给你一个思路：
1、首先删除list1中的需要删除的内容；
2、读取list1中不需要删除的内容；
3、重新将读取的内容写入txt中。

这个不难，代码如下：
command1的代码：

Private Sub Command1_Click()
Dim s1 As String
Dim a() As String
Dim i As Integer
Open "txt地址" For Input As #1
While Not EOF(1)
Line Input #1, s
s1 = s1 & s & IIf(EOF(1), "", vbCrLf)
Wend
Close #1

a() = Split(s1, vbCrLf)
a(List1.ListIndex) = ""
Open "txt地址" For Output As #1
For i = 0 To UBound(a)
Print #1, a(i) & vbCrLf
Next i
Close #1
MsgBox "删除成功！"
End Sub

1、vb无法直接删除文本文件中的某一行。
2、要想做到删除文本文件中的某一行，必须一行行读并进制连接，读要删除的行越过连接，继续连接其它行，直到文件结束。
3、把连接的新串，重新保存为原文件名即可实现所要功能。

你要删文本里的吗？要是删列表里的那很简单，要是文本里的那就要看有没有什么规律了。有点难度！

Private Sub Command1_Click()
List1.RemoveItem List1.ListIndex
End Sub<