Cleans all of the Blank Records from a Random File

Category:

Files and Directories

Type:

Modules

Difficulty:

Beginning

Author:

Anonymous

Version Compatibility: Visual Basic 6, Visual Basic.NET

More information:

I was always anoyed with the size of random files after months of use.. so i made this to delete all the empty records... It's crued, but it works... if u can improve on it email me.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Option Explicit ' '** Usage RandomCleaner( Filepath, Recordlength) '

Code:

Public Function RandomCleaner(sFilePath As String, sRecordLength_ As Integer)
Dim Formula, Chunk, Tempvar, Leftside, Rightside, StupidErrors_ As String
Dim x, lol, uber As Variant
    
    Let Leftside = " "
    Let Rightside = " "
    For x = 1 To sRecordLength
    Chunk = Chunk & " "
    Next x
    
    Open sFilePath For Input As #2
     On Error GoTo ErrorHandler1010221
     Line Input #2, Tempvar
        For x = 0 To (LOF(2) / sRecordLength)
             Formula = Mid(Tempvar, (x * sRecordLength + 1), sRecordLength)
                If Formula = Chunk Then
                    Let Leftside = Left(Tempvar, (x * sRecordLength))
                    Let Rightside = Right(Tempvar, (Len(Tempvar) - ((x + 1) * sRecordLength)))
                    If (Leftside & Rightside) <> " " Then
                        Close #2
                        On Error GoTo ErrorHandler1010220
                        Open sFilePath For Output As #3
                            Print #3, Leftside & Rightside
                        Close #3
                    End If
                End If
        Next x
    Select Case uber
    Case 1
ErrorHandler1010220:             lol = MsgBox("Fatal Error While Writing To File!" & vbCrLf & "*File Already Open*" & vbCrLf & "Clean Up Not Done", vbCritical)
    Case 2
ErrorHandler1010221:             lol = MsgBox("Fatal Error While Writing To File!" & vbCrLf & "*File Is Empty*" & vbCrLf & "Clean Up Not Done", vbCritical)
    End Select
    Close #2, #3
End Function