http://dieseyer.de • all rights reserved • © 2011 v11.4 


'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 "<body onLoad=""window.moveTo(screen.width-750),window.resizeTo(750,screen.height-50)"" >" 

      FileOut.WriteLine "<style type=""text/css""> <!-- body { background-color:#FFFFCC; line-height:45%; margin-left:20px; } --> </style> "  

      FileOut.WriteLine "<b><a href=""http://dieseyer.de"">http://dieseyer.de • all rights reserved • © " & VerNeuPunkt() & "</a></b>" 

      FileOut.WriteLine "<pre><br>"  

 

    Do While Not (FileIn.atEndOfStream)                             ' wenn Datei nicht zu ende ist, weiter machen 

      Txt = FileIn.Readline  

      FileOut.WriteLine( Txt & " <br>" ) 

      Txt = Replace( Txt, ">", "&62" ) 

      Txt = Replace( Txt, "<", "&60" ) 

      FileOut.WriteLine( Txt & " <br>" ) 

    Loop 

 

    ' Fußzeile Skript in .html 

      FileOut.WriteLine "</pre>"  

      FileOut.WriteLine "<b><a href=""http://dieseyer.de"" target= ""_blank"">http://dieseyer.de • all rights reserved • © " & VerNeuPunkt() & "</a></b>" 

      FileOut.WriteLine "</body>"  

 

      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 ()

http://dieseyer.de • all rights reserved • © 2011 v11.4