Visual Basic删除算法不起作用

Question

This is a rehash of a previous question that went unanswered.

I have a Record and a file with a collection of records in. I want to delete a record from that file. This algorithm should take the record to be deleted from the file, mark the record for deletion, resave the record to the file and then copy all of the records APART from the record marked for deletion into a new temp file that becomes the main file.

What goes wrong: for some reason the algorithm still copies the record marked for deletion except without the correct fields. It turns the fields blank but still sticks it in the new file for some reason.

I will single-step through the code and watch the code only run the FilePut method three times when there are four records (showing that only three of four records are copied to the new file and one is left to be deleted as expected) but when the file is loaded into a report it still contains a blank record. This makes no sense and nobody has been able to solve my problem!

Dim n As Integer = 1
Dim TempDir As String = CurDir() & "\Temp.dat"
RecordNumber = Trim(Val(Mid(lstResultReport.Text, 1, 3)))
FileGet(4, ResultRecord, RecordNumber)

ResultRecord.TournamentName = "DELETE"
FilePut(4, ResultRecord, RecordNumber)
FileClose(4)
FileOpen(4, ResultsFilePath, OpenMode.Random, , , Len(ResultRecord))
FileOpen(5, TempDir, OpenMode.Random, , , Len(ResultRecord))

For n = 1 To LOF(4) / Len(ResultRecord)
    FileGet(4, ResultRecord, n)
    If Trim(ResultRecord.TournamentName) <> "DELETE" Then
        FilePut(5, ResultRecord, n)
    End If
Next
FileClose(4) 
FileClose(5)


Kill(ResultsFilePath)
FileCopy(TempDir, ResultsFilePath)
Kill(TempDir)
FileOpen(4, ResultsFilePath, OpenMode.Random, , , Len(ResultRecord))

UPDATE Interestingly, the algorithm works when I go to delete the last record in the file.

Answer 1

What I mean:

dim newPosition as integer ' !!!
newPosition = 1            ' !!!
For n = 1 To LOF(4) / Len(ResultRecord)
    FileGet(4, ResultRecord, n)
    If Trim(ResultRecord.TournamentName) <> "DELETE" Then
        FilePut(5, ResultRecord, newPostion)
        newPostion = newPosition + 1 ' !!!
    End If
Next