如何在VB6中从文本文件中删除一行文本？

可能重复：

我有一个搜索工具，项目显示在列表视图中。这些项是从文件中读入的。当我在ListView中选择一个项目时，我希望能够将其从文本文件中删除。 目前，它仅从ListView中删除，但当我再次搜索时，它仍会显示，因此它不会从文本文件中删除

基本上，我的程序是一个产品列表，上面有条形码和数量。用户可以搜索列表视图中显示的项目，然后对其进行编辑以增加或减少数量。当他们单击“保存”时，它将写入文件。这一切都很好，但它现在显示的项目两次，相同的条形码和产品名称和不同的数量

我尝试使用replace函数，但这只是在文件中添加空行文本。 我还得到了复制文件和删除所选项目的建议。我不知道怎么做。有没有人有其他方法可以做到这一点？ 这是我的密码：

Private Sub cmdEdit_Click()
Dim barcode As String
Dim prodNum As String
Dim unknown As String
Dim desc As String
Dim size As String
Dim costPrice As String
Dim retailPrice As String
Dim deptCode As String
Dim dept As String
Dim subDeptCode As String
Dim subDept As String
Dim quantity As String
Dim barcodeYes As String
Dim Number As String
Dim i As Single

ListView1.ListItems.Remove ListView1.SelectedItem.Index

Open "D:\VB\EXPORT PRODUCT FILE.CSV" For Input As #3
Input #3, barcode, prodNum, unknown, desc, size, costPrice, retailPrice, deptCode, dept,      subDeptCode, subDept, quantity, barcodeYes, Number
AddQuantity.Show
AddQuantity.txtName.Text = ListView1.SelectedItem
AddQuantity.txtBarcode.Text = ListView1.SelectedItem.SubItems(1)
AddQuantity.txtQuantity.Text = ListView1.SelectedItem.SubItems(2)
Close #3
End Sub

---

谢谢

从文件中间删除内容的唯一方法是从该点开始重写所有内容

您尚未显示要写入文件的代码，但我假定您正在追加。
您需要更改此项以加载所有数据，更改所需的条目，然后再次保存所有数据

---

或者，使用专门为这种用途设计的数据库。

谢谢Deanna。是的，我正在追加。这将进入下一个表单，但在listView中突出显示的内容是我希望从文本文件中删除的内容。那么，我该如何更改条目并再次保存整个文件呢？请参见问题LittleByTables。