Goedemorgen,
Ik heb een backup script gemaakt en na het backuppen van de bestanden wordt automatisch een logfile gemaakt met het onderstaande script.
Hij maakt een .htm pagina en bij OutStream.WriteLine( mytext ) komen de locaties van de bestanden die gebackupped zijn te staan.
Maar nu wil ik graag bij het moment dat de .htm file gemaakt wordt dat hij automatisch de
<html><title>bla title</title></head> er 1 malig inzet en dan daarna elke keer de
OutStream.WriteLine( mytext ) opsomt.
Want als ik dit doe:
OutStream.WriteLine("<html><title>test titel</title><body>")
OutStream.WriteLine( mytext )
OutStream.WriteLine("</body></html>
Dan zet hij elke keer na het draaien van het script de html tags erbij. En ik wil gewoon eenmalig de html tags boven en onder. En in het midden dat mytext variabele opsommen.
Is zoiets mogelijk in vbscript? Of zal zoiets nooit gaan werken??
Sub LogResults( myText )
myfile = (LogfilePath & "\Backuplog.htm")
Set fso = CreateObject("Scripting.FileSystemObject")
OutFile = "C:\#temp#.htm"
set textstream = fso.OpenTextFile(myfile,1,true)
Set OutStream=fso.CreateTextFile(OutFile,True)
OutStream.WriteLine( mytext )
Do until textstream.AtEndOfStream 'writes existing text to temp file
OneLine = textstream.ReadLine
OutStream.WriteLine(oneline)
if instr(Oneline, "----") then 'finds start of each backup log
logcount = logcount + 1
if logcount >= 5 then
exit do
end if
end if
Loop
textstream.close
OutStream.Close
fso.CopyFile OutFile, myfile, true
fso.DeleteFile OutFile
End Sub
Ik heb een backup script gemaakt en na het backuppen van de bestanden wordt automatisch een logfile gemaakt met het onderstaande script.
Hij maakt een .htm pagina en bij OutStream.WriteLine( mytext ) komen de locaties van de bestanden die gebackupped zijn te staan.
Maar nu wil ik graag bij het moment dat de .htm file gemaakt wordt dat hij automatisch de
<html><title>bla title</title></head> er 1 malig inzet en dan daarna elke keer de
OutStream.WriteLine( mytext ) opsomt.
Want als ik dit doe:
OutStream.WriteLine("<html><title>test titel</title><body>")
OutStream.WriteLine( mytext )
OutStream.WriteLine("</body></html>
Dan zet hij elke keer na het draaien van het script de html tags erbij. En ik wil gewoon eenmalig de html tags boven en onder. En in het midden dat mytext variabele opsommen.
Is zoiets mogelijk in vbscript? Of zal zoiets nooit gaan werken??
Sub LogResults( myText )
myfile = (LogfilePath & "\Backuplog.htm")
Set fso = CreateObject("Scripting.FileSystemObject")
OutFile = "C:\#temp#.htm"
set textstream = fso.OpenTextFile(myfile,1,true)
Set OutStream=fso.CreateTextFile(OutFile,True)
OutStream.WriteLine( mytext )
Do until textstream.AtEndOfStream 'writes existing text to temp file
OneLine = textstream.ReadLine
OutStream.WriteLine(oneline)
if instr(Oneline, "----") then 'finds start of each backup log
logcount = logcount + 1
if logcount >= 5 then
exit do
end if
end if
Loop
textstream.close
OutStream.Close
fso.CopyFile OutFile, myfile, true
fso.DeleteFile OutFile
End Sub
/u/107051/jeroenmadtrix60.png?f=community)
