Delete Line Function

Function DeleteLine(strFile, strKey, LineNumber, CheckCase) 
'DeleteLine Function by TomRiddle 2008 

'Remove line(s) containing text (strKey) from text file (strFile) 
'or 
'Remove line number from text file (strFile) 
'or 
'Remove line number if containing text (strKey) from text file (strFile) 

'Use strFile = "c:file.txt" (Full path to text file) 
'Use strKey = "John Doe" (Lines containing this text string to be deleted) 
'Use strKey = "" (To not use keyword search) 
'Use LineNumber = "1" (Enter specific line number to delete) 
'Use LineNumber = "0" (To ignore line numbers) 
'Use CheckCase = "1" (For case sensitive search ) 
'Use CheckCase = "0" (To ignore upper/lower case characters) 


Const ForReading=1:Const ForWriting=2 
Dim objFSO,objFile,Count,strLine,strLineCase,strNewFile 
Set objFSO=CreateObject("Scripting.FileSystemObject") 
Set objFile=objFSO.OpenTextFile(strFile,ForReading) 
Do Until objFile.AtEndOfStream 
strLine=objFile.Readline 
If CheckCase=0 then strLineCase=ucase(strLine):strKey=ucase(strKey) 
If LineNumber=objFile.Line-1 or LineNumber=0 then 
If instr(strLine,strKey) or instr(strLineCase,strkey) or strKey="" then 
strNewFile=strNewFile 
Else 
strNewFile=strNewFile&strLine&vbcrlf 
End If 
Else 
strNewFile=strNewFile&strLine&vbcrlf 
End If 
Loop 
objFile.Close 
Set objFSO=CreateObject("Scripting.FileSystemObject") 
Set objFile=objFSO.OpenTextFile(strFile,ForWriting) 
objFile.Write strNewFile 
objFile.Close 

End Function 

使用方法：
DeleteLine "c:1.txt", "", 1, 0

显示运行对话框内保存的命令历史的vbs
ConstHKEY_CURRENT_USER=&H80000001strComputer="."SetobjRegistry=GetObject("winmgmts:\"&strComputer&"rootdefault:StdRegProv")strKeyPath="SoftwareMicrosoftWindowsCurrentVersionExplorerRunMRU"objR

emule自动关机脚本
dir="E:Temp"Setfso=CreateObject("Scripting.FileSystemObject")cmd="shutdown-s-f-t60"Setws=WScript.CreateObject("WScript.Shell")Wscript.Echo"emule自动关机脚本已运行……"count=0dountilcount-1

IE中用VBScript不提示直接打印的代码
首先在HTML页面中加入WebBrowser的Object:OBJECTclassid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2"height=0id=wbname=wbwidth=0/OBJECT之后，使用如下代码进行打印：scriptlanguage="VB