'v3.7******************************************************** ' File: DateiAlsHtml.vbs ' Autor: dieseyer@gmx.de ' dieseyer.de ' '************************************************************ Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl Dim WSHShell, fso, FileIn, FileOut, FileOutAll, oFolders, oFiles, oSubFolder Dim Datei(), DateiX, VerzX, i, oArgs Dim Txt, Text Dim Quelle, Ziel, LaufW, Schreiben Set WSHShell = WScript.CreateObject("WScript.Shell") Set fso = WScript.CreateObject("Scripting.FileSystemObject") set oArgs = Wscript.Arguments For i = 0 to oArgs.Count - 1 ' hole alle Argumente Quelle = oArgs.item(i) Exit For ' ein Argument reicht Next if Quelle = "" then Quelle = WScript.ScriptName ' MsgBox Quelle, , WScript.ScriptName & " Anfang" Quelle = fso.GetFile( Quelle ).Path VBS1zuHTML (Quelle) WSHShell.Popup Quelle & vbCRLF & vbCRLF & ". . . wurde in eine .HTML-Datei kopiert." , 10, WScript.ScriptName , 64 WScript.Quit '************************************************************ Sub VBS1zuHTML (DateiX) ' Aufruf '************************************************************ ' .vbs-Datei bearbeiten und als .html speichern ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Set FileIn = FSO.OpenTextFile( DateiX , 1 ) ' Datei zum Lesen öffnen DateiX = fso.GetParentFolderName( DateiX ) & "\" & fso.GetBaseName( DateiX ) & ".html" Set FileOut = FSO.OpenTextFile( DateiX, 2, true) ' Datei zum Schreiben öffnen; 2: immer neu anlegen ' Titelzeile für Skript in .html FileOut.WriteLine "" FileOut.WriteLine " " FileOut.WriteLine "http://dieseyer.de • all rights reserved • © " & VerNeuPunkt() & "" FileOut.WriteLine "

" Do While Not (FileIn.atEndOfStream) ' wenn Datei nicht zu ende ist, weiter machen Txt = FileIn.Readline if InStr( Txt, "&62") then Txt = "Xx_xX" if InStr( Txt, "&60") then Txt = "Xx_xX" if InStr( Txt, """Xx_xX""" ) then Txt = " FileOut.WriteLine( Txt & ""
"" )" Txt = Replace( Txt, "<", "&60" ) Txt = Replace( Txt, ">", "&62" ) Txt = Replace( Txt, ">", ">" ) Txt = Replace( Txt, "<", "<" ) if not Txt = "Xx_xX" then FileOut.WriteLine( Txt & "
" ) Loop ' Fußzeile Skript in .html FileOut.WriteLine "
" FileOut.WriteLine "http://dieseyer.de • all rights reserved • © " & VerNeuPunkt() & "" FileOut.WriteLine "" FileIn.Close FileOut.Close Set FileIn = nothing Set FileOut = nothing WSHShell.run """C:\Programme\Internet Explorer\IEXPLORE.EXE"" " & DateiX End Sub ' VBS1zuHTML (DateiX) '************************************************************ Function VerNeuPunkt() ' Aufruf '************************************************************ ' dreistellige Jahreszahl & einstellige Jahreszahl + einstellige Monatszeichen Dim Diff Diff = 5 Diff = now() - Diff VerNeuPunkt = Year( Diff ) & " v" If Month( Diff ) < 10 then VerNeuPunkt = VerNeuPunkt & Right(Year( Diff ),1) & "." & Month( Diff ) ' MsgBox Month( Diff ) If Month( Diff ) = 10 then VerNeuPunkt = VerNeuPunkt & Right(Year( Diff ),1) & ".A" If Month( Diff ) = 11 then VerNeuPunkt = VerNeuPunkt & Right(Year( Diff ),1) & ".B" If Month( Diff ) = 12 then VerNeuPunkt = VerNeuPunkt & Right(Year( Diff ),1) & ".C" End Function ' VerNeuPunkt ()