VB读取文本，并删除其中的某行

来源：百度知道 编辑：UC知道 时间：2024/06/25 04:36:58
app。path 123.txt
把他读取到list1中
list1.style =1 （每条项目都是复选框）

然后我选中某些以后按command1 就把选中项目对应在123.txt中的那行删除
不能有空行

比如
1
2
3
删除2以后就是
1
3
不能是
1

3
还是不行 如果内容是
1
2
3
4
5
6
删除12356 留下4 删除以后留下的只有6

算了-.- 现在list1.style =0 不是付款项 只能单选 选择一个删除对应行

不好意思啊，总是丢三落四的，刚修改了下，应该可以了
Option Base 1
Dim Num As Integer
Dim Rec() As Variant
Private Sub Command1_Click()
Dim I As Integer
Dim J As Integer
Kill "D:\123.txt"
Open "D:\123.txt" For Output As #1
For I = 0 To List1.ListCount - 1
For J = 1 To Num
If I = Rec(J) Then GoTo Begin
Next J
Print #1, List1.List(I)
Begin: Next I
Close #1
End Sub

Private Sub Form_Load()
Dim Temp As String
Open "D:\123.txt" For Input As #1
Do While Not EOF(1)
Input #1, Temp
List1.AddItem Temp
Loop
Close #1
End Sub

Private Sub List1_Click()
Num = Num + 1
ReDim Preserve Rec(Num)
Rec(Num) = List1.ListIndex
End Sub