Code: Select all

Option Explicit

'ue_kill_open_files_from_prj.vbs
'deletes all entries with "open file" lines, so that when opening prj, no files are shown
    Dim fso
    Dim objFile
    'Dim objTextStream
    Dim fileName
    Dim args
    dim newLines()
    dim i
    dim j
    dim strLine
    set args = WScript.Arguments
    if (args.Count <> 1) Then
        MeldungRaus "Wrong arguments"
    End If
    fileName = args(0)

    Set fso     = CreateObject("Scripting.FileSystemObject")
    Set objFile = fso.OpenTextFile(fileName)
    i = 0
    Do while not objFile.AtEndOfStream
    strLine = objFile.ReadLine()
    'collect olny lines without "open file" inside
    if (InStr(1,strLine, "open file", 1) = 0 and InStr(1,strLine, "Active File", 1) = 0 ) then
        i = i + 1
        redim preserve newLines(i)
        newLines(i) = strLine
    end if
    Loop
    objFile.Close

    'now write back the stuff without filtered lines
    Set objFile = fso.OpenTextFile(fileName,2, true)
    for j = 1 to i
        objFile.write newLines(j) & vbcrlf
        'msgbox (newLines(j))
    next
    objFile.Close

    wscript.quit

Sub MeldungRaus (strMeld)

    wscript.echo strMeld
    wscript.quit 1

End Sub