1、获取错误信息和显示错误信息
On Error Resume Next '遇到错误不显示,继续执行
On Error Goto 0 '可以取消上面这一句的效果,恢复平常的一有错误就报并停止脚本
在设置了On Error Resume Next后遇到错误会保存在Err中。Err本身的值为错误号,也就是相当于Err.Number。初始时,也就是没有错误时值为0。
Err.Description属性 '显示错误的简短说明
Err.Number属性 '显示错误代码
Err.Clear方法 '清空错误
Err.Raise方法 '产生一个错误
一般方法为
On Error Resume Next
a = 100/0
If Err Then Msgbox Err.Description
-------------------------------------------------------
2、随机产生一个N位的密码,密码值在str中选择
n = 20
str = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
password = ""
Randomize
Do While Len(password)<n
password = password & Mid(str,Int(Rnd*Len(str))+1,1)
Loop
-------------------------------------------------------
3、获得一个文件所在的路径
filePath = "D:\wwwroot\test.asp"
folderPath = Mid(filePath,1,InStrRev(filePath,"\")-1) 'InStrRev为返回某个字符串在另一个字符串中最后出现的位置
MsgBox folderPath
-------------------------------------------------------
4、查看str2在str1中出现了几次
方法1.
str1 = "wjfwftestwe9r234testssdf9j"
str2 = "test"
Set rex = new RegExp
rex.global = True
rex.IgnoreCase = True
rex.Pattern = str2
Set matches = rex.Execute(str1)
MsgBox matches.count
Set matches = Nothing
方法2.
str1 = "wjfwftestwe9r234testssdf9j"
str2 = "test"
len1 = Len(str1)
len2 = Len(str2)
str1 = Replace(str1,str2,"")
MsgBox (len1 - Len(str1)) / len2
方法3.
str1 = "wjfwftestwe9r234testssdf9j"
str2 = "test"
arr = Split(str1,str2)
MsgBox UBound(arr)
-------------------------------------------------------
5、去除文件中重复行
'这里使用adodb将文本文件当成数据库处理,使用select distinct来得到不重复记录.注意,Data Source这里写文件所在路径,Select From这里写文件名称
inputfileName = "test.txt"
outputfileName = "result.txt"
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adCmdText = &H0001
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
filePath = Left(WScript.ScriptFullName, InstrRev(WScript.ScriptFullName, "\"))
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath & ";Extended Properties=""Text;HDR=NO;FMT=Delimited"""
'参数见说明http://www.connectionstrings.com/textfile,其中HDR=Yes表示第一行作为列名,=NO时不作为列名
rs.Open "Select DISTINCT * FROM " & inputfileName, conn, adOpenStatic, adLockOptimistic, adCmdText
Set Fso = CreateObject("Scripting.FileSystemObject")
Set output = Fso.CreateTextFile(outputfileName)
Do While Not rs.EOF
output.writeline rs.Fields.Item(0).Value
rs.MoveNext
Loop
rs.close
conn.close
MsgBox "去重复行的结果在 " & outputfileName & " 文件中"