Годовая проверка, обновление в текстовом файле с помощью VBS

Question

Хотите проверить, год ли в текущем году в текстовом файле и обновлен, если не актуально, 2013. Например, текстовая строка: SET YEAR = 2012 До сих пор я был в состоянии написать фактический год в файл, но теперь мне нужно обновить информацию в файле, если она существует ... Оцените любую помощь здесь.

dim filesys 
Set filesys = CreateObject("Scripting.FileSystemObject") 
path = filesys.GetAbsolutePathName("C:\Backups\Machine.bat") 
getname = filesys.GetFileName(path) 
If filesys.FileExists(path) Then 
    Set objFSO = CreateObject("Scripting.FileSystemObject") 
    Set filesys = CreateObject("Scripting.FileSystemObject") 
    Set objFolder = objFSO.GetFile("C:\Backups\Machine.bat") 
    Set objFile = objFSO.OpenTextFile("C:\Backups\Machine.bat", 8) 
    objFile.WriteLine 
    objFile.Write("SET YEAR=") 
    objFile.WriteLine(Year(Date())) 
    objFile.Close 
End if 

Answer 1

Вы можете заменить определенную строку в текстовом файле, как это:

path = "C:\Backups\Machine.bat" 

Set fso = CreateObject("Scripting.FileSystemObject") 
If fso.FileExists(path) Then 
    Set inFile = fso.OpenTextFile(path) 
    Set outFile = fso.OpenTextFile(path & ".tmp", 2, True) 
    Do Until inFile.AtEndOfStream 
    line = inFile.ReadLine 
    If UCase(Left(Trim(line), 9)) = "SET YEAR=" Then 
     outFile.WriteLine "SET YEAR=" & Year(Date) 
    Else 
     outFile.WriteLine line 
    End If 
    Loop 
    inFile.Close 
    outFile.Close 

    fso.DeleteFile path, True 
    fso.MoveFile path & ".tmp", path 
End If