VB删除txt文件中的某一行
把txt文件中的每行内容读取到list1中然后我选中list1中的项目按command1就把我选中这行内容对应文本文件中的内容删去...
把txt文件中的每行内容读取到list1中
然后我选中list1中的项目 按command1 就把我选中这行内容对应文本文件中的内容删去 展开
然后我选中list1中的项目 按command1 就把我选中这行内容对应文本文件中的内容删去 展开
5个回答
TableDI
2024-07-18 广告
2024-07-18 广告
作为上海悉息信息科技有限公司的一员,我们专注于提供高效的数据处理解决方案。对于多个文件表格的合并需求,我们通常采用专业的数据整合技术,确保数据的准确性和一致性。通过精确匹配表格字段和格式,我们能够快速、准确地将多个表格合并成一个,为用户提供...
点击进入详情页
本回答由TableDI提供
展开全部
这个不难,代码如下:
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
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、首先删除list1中的需要删除的内容;
2、读取list1中不需要删除的内容;
3、重新将读取的内容写入txt中。
1、首先删除list1中的需要删除的内容;
2、读取list1中不需要删除的内容;
3、重新将读取的内容写入txt中。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Private Sub Command1_Click()
List1.RemoveItem List1.ListIndex
End Sub
List1.RemoveItem List1.ListIndex
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你要删文本里的吗?要是删列表里的那很简单,要是文本里的那就要看有没有什么规律了。有点难度!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询