Const SkipLines As Integer = 171

Private Sub Form_Load()

    Dim sCmd As String
    sCmd = Command()
    
    If Trim(sCmd) = "" Then
        MsgBox "Usage: ReformatFtb.exe FILENAME"
        End
    End If
    
    ReformatFtb sCmd
End Sub


Sub ReformatFtb(sFilename As String)
Dim lCounter As Long

Dim f, f2, fs, l

Set fs = CreateObject("Scripting.FileSystemObject")                     '# create fso

fs.CreateTextFile (sFilename & ".done")                                 '# create new dest file

Set f = fs.OpenTextFile(sFilename, ForReading, TristateFalse)           '# open the source
Set f2 = fs.OpenTextFile(sFilename & ".done", ForWriting, TristateFalse)    '# open the dest

Do While f.AtEndOfStream = False
    lCounter = lCounter + 1
    l = f.ReadLine()
    
    If lCounter > SkipLines Then
        f2.WriteLine (l)                       '# write new line
    End If
Loop

f.Close                                 '# CLOSE FILES
f2.Close

End

End Sub

Dim strTemp As String
Dim blnNSC As Boolean
    
Open "C:\Old.txt" For Input As #1
    Open "C:\New.txt" For Output As #2
        
        Do Until EOF(1)
            
            Line Input #1, strTemp
                
            If blnNSC = False Then
                If strTemp = "NSC : 238482" Then
                    blnNSC = True
                    Print #2, strTemp
                End If
            Else
                Print #2, strTemp
            End If
                    
        Loop
        
    Close #2
Close #1