-1

重複の可能性:
ファイルを読み込んでテキスト ファイルに書き込む方法は?

アイテムが ListView に表示される検索機能があります。これらの項目はファイルから読み込まれます。ListView で項目を選択すると、テキスト ファイルからも削除できるようにしたいと考えています。現時点では、ListView からのみ削除されていますが、もう一度検索しても表示されるため、テキスト ファイルからは削除されません。

基本的に私のプログラムは、バーコードと数量を含む製品のリストです。ユーザーは、リストビューに表示されているアイテムを検索し、編集して数量を増減できます。保存をクリックすると、ファイルに書き込まれます。それはすべて正常に機能していますが、現在、同じバーコードと製品名で、数量が異なるアイテムが 2 回表示されています。

置換機能を使用しようとしましたが、それは空のテキスト行をファイルに追加するだけです。また、ファイルをコピーして選択したアイテムを削除するようアドバイスを受けました。これを行う方法がわかりません。これを行う別の方法はありますか？これが私のコードです：

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

ありがとう

4

1 に答える 1

2

ファイルの途中から何かを削除する唯一の方法は、その時点からすべてを書き直すことです。

ファイルに書き込むコードを表示していませんが、追加していると思います。
これを変更してすべてのデータをロードし、必要なエントリを変更してから、すべてを再度保存する必要があります。

または、この種の用途向けに設計されたデータベースを使用してください。

于 2012-07-24T15:37:17.737 に答える