Shell Programming and Scripting

Sub Macro3()
    sFile = Application.GetOpenFilename("All files (*.*), *.*", 1,  "Select Input File", "Open", False)         'asks for file location
    If TypeName(sFile) = "Boolean" Then             ' if input file "Kget_utran cell" is not provided, exit.
        Exit Sub
    End If
    f = FreeFile
    Open sFile For Input As f
    strfile = Input(LOF(f), #f)     ' read whole file into variable
    Close f    ' no need to keep file open
    Do
      strt = Strings.InStr(strfile, "Bye...")       'Gives start value of this string in the input file.
      If strt = 0 Then Exit Do    ' not found finish
      nd = InStr(strt, strfile, ".log") + 5
      pp = Mid(strfile, (strt - 16), (nd - strt + 16))
      strfile = Replace(strfile, pp, "")
    Loop
    Length = Len(sFile)
    j = 1
    rr = 1
    Do Until rr = 0
        rr = InStr(j, sFile, "\")
        If rr = 0 Then
            GoTo here
        End If
        j = rr + 1
    Loop
here:    y = Left(sFile, j - 2)
    Open y & "\output.txt" For Output As f      'saves at this location
    Print #f, strfile
    Close f
    MsgBox "DONE"
End Sub

sed '/^Total/d;/^Bye/d;/^Output has been logged/d' input.txt > output.txt

 
inputfile="$1"
ouputfile="$2"
sed '/^Total/d;/^Bye/d;/^Output has been logged/d' $1 > $2

 
./script.sh inputfile.txt ouptut.txt