Remove Blank Records From Random Access File

[señorbadger]

Hi everyone

i have written a simple random access file application but was
wondering how to delete a empty record i am using a UDT like
below

Public Type record
        staff_name      As String * 20
        title                  As String * 4
        initials              As String * 4
        status              As String * 1
        room                As String * 5
        telephone        As String * 4
    End Type

any ideas how to delete a blank record

thanks for help people

[nickjc67]

Try this:-

Private Sub CleanUpFile()
Dim CleanFileNum As Integer
Dim i As Long
Dim Confirm As Integer

' removes any duplicates by copying to another file
Confirm = False
CleanFileNum = FileOpener("~~Tmp~~.Tmp", RANDOMFILE, Len(Contact), Confirm)
For i = 1 To LastRecord
Get #FileNum, i, Contact
Put #CleanFileNum, i, Contact
Next i
Close
' rename file
FileCopy "~~Tmp~~.Tmp", FileName
FileNum = FileOpener(FileName, RANDOMFILE, Len(Contact), Confirm)
Kill "~~Tmp~~.Tmp"
End Sub

I found it in the samples for VB3 called fileio\recedit.mak bt I'm not sure if it works for blanks.

Nick