' 

' Datei:  temp-hilfe.vbs 

' Autor:  dieseyer@gmx.de 

' Auf:    www.dieseyer.de 

' 

'*** v8.4 *** www.dieseyer.de ******************************* 

' 

' Datei:  temp-hilfe.vbs 

' Autor:  dieseyer@gmx.de 

' Auf:    www.dieseyer.de 

' 

' Da im Kopf eines Skripts häufig Erklärungen zur Funktion 

' des Skripts hinterlegt sind, kann mit der Sub-Prozedur 

'	TempHilfeTxt( VBSDatei ) 

' oder 

'	TempHilfeHta( VBSDatei ) 

' eine Hilfe in ein beliebiges Skript integriert werden -  

' angezeigt als TXT-Datei (in Notepad) oder als HTA-Datei 

' (mit mshta.exe). 

' 

' Die Prozedur erstellt eine temporäre Datei, in die der Kopf 

' des aufrufenden Skripts eingefügt wird. Beginnen und enden 

' muss dazu der Text mit: 

'  '***  (ein Hochkomma, gefolgt von 3 Sternchen) 

' oder 

'  ' *** (ein Hochkomma, ein Leerschritt, 3 Sterne) 

' 

' Die Tmp-Datei wird im Tmp-Ordner des angemeldeten Users 

' angelegt und nach dem Anzeigen gelöscht. 

' 

'   HilfeTxtDatei( ZielDatei ) 

' Diese Prozedur schreibt den Kopf eines Skripts in eine 

' Textdatei - z.B. LiesMich.txt: 

'   HilfeTxtDatei( "LiesMich.txt" ) 

' 

'************************************************************ 

 

Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl 

 

' Dim WSHShell		: Set WSHShell		= WScript.CreateObject("WScript.Shell") 

 

' WSHShell.Popup "= = = S T A R T = = =", 2, "031 :: " & WScript.ScriptName 

 

Call TempHilfeTxt( "trace32log.vbs" ) ' Sub-Prozedur - Aufruf 

 

Call TempHilfeHta( WScript.ScriptFullName ) ' Sub-Prozedur - Aufruf 

 

Call HilfeTxtDatei( "LiesMich.txt" ) ' Sub-Prozedur - Aufruf; erzeugt aus dem VBS-Kopf eine HilfeDatei 

 

' WSHShell.Popup "= = = E N D E = = =", 2, "039 :: " & WScript.ScriptName 

 

WScript.Quit 

 

 

 

'*** v8.3 *** www.dieseyer.de ******************************* 

Sub TempHilfeTxt( QuellDatei ) 

'************************************************************ 

  Dim WSHShell		: Set WSHShell		= WScript.CreateObject("WScript.Shell") 

  Dim fso		: Set fso		= WScript.CreateObject("Scripting.FileSystemObject") 

  Dim TmpDatei 		: TmpDatei		= fso.GetSpecialFolder( 2 ) & "\" & fso.GetTempName 

 

  Dim FileOut, FileIn, Txt, Tst, TxtBereich, ZielDatei 

 

' TmpDatei als Txt-Datei 

  ZielDatei = Mid( TmpDatei, 1, InStrRev( TmpDatei, "." ) ) & "txt" 

 

' MsgBox vbTab & "ZielDatei: " & vbCRLF & vbCRLF & ZielDatei, , "057 :: " & WScript.ScriptName 

 

  TxtBereich = "-Ja" 

  Set FileIn  = fso.OpenTextFile( QuellDatei, 1 ) 

  Do While Not ( FileIn.atEndOfStream ) 

	Tst = FileIn.Readline 

 

	If TxtBereich = "Ja" AND InStr( Tst, "'***" )	= 1 Then Txt = Txt & Tst & vbCRLF : Exit Do 

	If TxtBereich = "Ja" AND InStr( Tst, "' ***" )	= 1 Then Txt = Txt & Tst & vbCRLF : Exit Do 

 

	If TxtBereich = "-Ja" AND InStr( Tst, "'***" )	= 1 Then TxtBereich = "Ja" 

	If TxtBereich = "-Ja" AND InStr( Tst, "' ***" )	= 1 Then TxtBereich = "Ja" 

 

   If TxtBereich = "Ja" Then Txt = Txt & Tst & vbCRLF 

  Loop 

 

  Set	FileOut = fso.OpenTextFile( ZielDatei, 2, true) 

	FileOut.Write( Txt ) 

	FileOut.Close 

  Set	FileOut = Nothing 

 

' WSHShell.Run ZielDatei, , True ' wartet nicht auf das Schließen der Anzeige 

  WSHShell.Run "notepad " & ZielDatei, , True 

 

  fso.DeleteFile ZielDatei, True 

 

End Sub ' TempHilfeTxt( QuellDatei ) 

 

 

 

'*** v8.3 *** www.dieseyer.de ******************************* 

Sub TempHilfeHta( Datei ) 

'************************************************************ 

  Dim WSHShell		: Set WSHShell		= WScript.CreateObject("WScript.Shell") 

  Dim fso		: Set fso		= WScript.CreateObject("Scripting.FileSystemObject") 

  Dim TmpDatei 		: TmpDatei		= fso.GetSpecialFolder( 2 ) & "\" & fso.GetTempName 

 

  Dim FileOut, FileIn, Txt, Tst, TxtBereich 

 

' TmpDatei als htm-Datei 

  TmpDatei = Mid( TmpDatei, 1, InStrRev( TmpDatei, "." ) ) & "htm" 

' TmpDatei als hta-Datei 

  TmpDatei = Mid( TmpDatei, 1, InStrRev( TmpDatei, "." ) ) & "hta" 

 

' MsgBox vbTab & "TmpDatei: " & vbCRLF & vbCRLF & TmpDatei, , "096 :: " & WScript.ScriptName 

 

	Txt = "" 

	Txt = Txt & vbTab & "099 :: """ & Datei & """, letzte " & vbCRLF 

	Txt = Txt & vbTab & "100 :: " & "Änderung vom " & fso.GetFile( Datei ).DateLastModified & ", enthält" & vbCRLF 

	Txt = Txt & vbTab & "101 :: " & "folgende Infos:" & vbCRLF & vbCRLF 

 

  TxtBereich = "-Ja" 

  Set FileIn  = fso.OpenTextFile( Datei, 1 ) 

  Do While Not ( FileIn.atEndOfStream ) 

	Tst = FileIn.Readline 

 

	If TxtBereich = "Ja" AND InStr( Tst, "'***" )	= 1 Then Txt = Txt & Mid( Tst, 2 ) & vbCRLF : Exit Do 

	If TxtBereich = "Ja" AND InStr( Tst, "' ***" )	= 1 Then Txt = Txt & Mid( Tst, 2 ) & vbCRLF : Exit Do 

 

	If TxtBereich = "-Ja" AND InStr( Tst, "'***" )	= 1 Then TxtBereich = "Ja" 

	If TxtBereich = "-Ja" AND InStr( Tst, "' ***" )	= 1 Then TxtBereich = "Ja" 

 

   If TxtBereich = "Ja" Then Txt = Txt & Mid( Tst, 2 ) & vbCRLF ' entfernt das führende ' (Hochkomma) 

 

  Loop 

 

  Tst = "<head>" 

  Tst = Tst & vbCRLF & "<title>Info zu   """ & WScript.Scriptname & """</title>" 

  Tst = Tst & vbCRLF & "< HTA:APPLICATION ID=""" & WScript.Scriptname & """ " 

' Mein Virenscanner meckert, wenn sich im VBS in "< HT" kein Leerzeichen befindet 

  Tst = Replace( Tst, "< HT", "<HT" ) 

  Tst = Tst & vbCRLF & "SCROLL=""yes"" " 

  Tst = Tst & vbCRLF & "SHOWINTASKBAR=""yes"" " 

  Tst = Tst & vbCRLF & "NAVIGABLE=""yes"" " 

  Tst = Tst & vbCRLF & "APPLICATIONNAME=""" & WScript.Scriptname & """ >" 

  Tst = Tst & vbCRLF & "</head><body>" 

  Tst = Tst & vbCRLF & "</head><body><pre>" ' <pre> sorgt dafür, dass KEINE Proportionalschrift verwendet wird 

 

  Txt = Tst & vbCRLF & Txt & vbCRLF & "</pre></head><body>" 

 

  Set	FileOut = fso.OpenTextFile( TmpDatei, 2, true) 

	FileOut.Write( Txt ) 

	FileOut.Close 

  Set	FileOut = Nothing 

 

' WSHShell.Run "mshta.exe " & TmpDatei 

' WSHShell.Run """" & TmpDatei & """" 

 

WSHShell.Run TmpDatei, , True 

 

' Bei der Anzeige einer HTM(L)-Datei im Browser kann nicht auf  

' das Ende der Anwendung / Anzeige gewartet werden - also darf 

' auch die Datei, die gerade angezeigt wird, nicht gelöscht 

' werden. 

' Bei einer HTA-Datei ist das anders . . . 

 

fso.DeleteFile TmpDatei, True 

 

End Sub ' TempHilfeHta( Datei ) 

 

 

'*** v8.4 *** www.dieseyer.de ******************************* 

Sub HilfeTxtDatei( ZielDatei ) 

'************************************************************ 

  Dim WSHShell		: Set WSHShell		= WScript.CreateObject("WScript.Shell") 

  Dim fso		: Set fso		= WScript.CreateObject("Scripting.FileSystemObject") 

  Dim TmpDatei 		: TmpDatei		= fso.GetSpecialFolder( 2 ) & "\" & fso.GetTempName 

 

  Dim FileOut, FileIn, Txt, Tst, TxtBereich 

 

' Temporäre Datei als Ziel-Txt-Datei 

' ZielDatei = Mid( TmpDatei, 1, InStrRev( TmpDatei, "." ) ) & "txt" 

 

' MsgBox vbTab & "ZielDatei: " & vbCRLF & vbCRLF & ZielDatei, , "820 :: " & WScript.ScriptName 

 

	Txt = "" 

'	Txt = Txt & vbTab & "823 :: """ & WScript.ScriptFullName & """, letzte " & vbCRLF 

'	Txt = Txt & vbTab & "824 :: " & "Änderung vom " & fso.GetFile( WScript.ScriptFullName ).DateLastModified & ", enthält" & vbCRLF 

'	Txt = Txt & vbTab & "825 :: " & "folgende Infos:" & vbCRLF & vbCRLF 

 

  TxtBereich = "-Ja" 

  Set FileIn  = fso.OpenTextFile( WScript.ScriptFullName, 1 ) 

  Do While Not ( FileIn.atEndOfStream ) 

	Tst = FileIn.Readline 

	If TxtBereich = "Ja" AND InStr( Tst, "'***" )	= 1 Then Txt = Txt & Mid( Tst, 2 ) & vbCRLF : Exit Do 

	If TxtBereich = "Ja" AND InStr( Tst, "' ***" )	= 1 Then Txt = Txt & Mid( Tst, 2 ) & vbCRLF : Exit Do 

 

	If TxtBereich = "-Ja" AND InStr( Tst, "'***" )	= 1 Then TxtBereich = "Ja" 

	If TxtBereich = "-Ja" AND InStr( Tst, "' ***" )	= 1 Then TxtBereich = "Ja" 

 

   If TxtBereich = "Ja" Then	Txt = Txt & Mid( Tst, 2 ) & vbCRLF  ' entfernt das führende ' (Hochkomma) 

  Loop 

 

  Set	FileOut = fso.OpenTextFile( ZielDatei, 2, True) 

	FileOut.Write( Txt ) 

	FileOut.Close 

  Set	FileOut = Nothing 

 

  WSHShell.Run ZielDatei, , True 

' fso.DeleteFile ZielDatei, True 

 

End Sub ' HilfeTxtDatei( ZielDatei )