VBS函数的简单库

合集下载

VBS函数

VBS函数

返回时间格式年月日相减后的指定日期 ("时参")
串参表示计算时间差的单位,"yyyy"表示年,"q"表示季度,"m"表示月,"y"表示一年的 日数,"d"表示日,"w"表示一周的日数,"ww"表示周,"h"表示小时,"n"表示分钟,"s"表 示秒,时参表示要对比计算的时间,设置游戏按技能时间为秒 串参表示制定返回的时间单位,"yyyy"表示年,"q"表示季度,"m"表示月,"y"表示一年 的日数,"d"表示日,"w"表示一周的日数,"ww"表示周,"h"表示小时,"n"表示分钟,"s" 表示秒,数参表示要添加的数目,时参代表任何日期,用#号把时间前后括起来 年参例如2013-10表示减10年,月参表示1到12月减去任意指定月数,日参表示0到31天 减去任意指定天数 时参表示字符串格式的年月日时间
TimeSerial
(时参,分参,秒参)
时 间
返回时间格式时分秒相减后的指定时间
时参例如23-3表示减3小时,分参表示0到59分减去任意指定分钟数,秒参表示0到59秒 减去任意指定秒针数
时 间 日 期 函 数 ( 二 )
16 17 18 19 TimeValue WeekDay
("时参") 返回字时分秒字符串格式转换成的时间格式 (#时参#[,数参])
返回(整数)一年中的每月整数(1-12) (数参[,布尔值]) 数参表示1到12月,布尔值

VBS的函数集-读写二进制文件,UTF8文件,HTTP GET和POST

VBS的函数集-读写二进制文件,UTF8文件,HTTP GET和POST

url1 = "http://xxx.xxx.xxx:8081/ws1 "url2 = "http://xxx.xxx.xxx:8081/ws2 "Call MainSub Main()'Call GetHttp(url2)Call WriteFileUTF8("c:\utf8.txt", "UTF8字符串") 'Call PostHttp(url1)End Sub''''''''''''''''''''''''以下是函数定义''''''''''''''''''''''''''''''''''''''' Valid Charset values for ADODB.StreamConst CdoBIG5 = "big5"Const CdoEUC_JP = "euc-jp"Const CdoEUC_KR = "euc-kr"Const CdoGB2312 = "gb2312"Const CdoISO_2022_JP = "iso-2022-jp"Const CdoISO_2022_KR = "iso-2022-kr"Const CdoISO_8859_1 = "iso-8859-1"Const CdoISO_8859_2 = "iso-8859-2"Const CdoISO_8859_3 = "iso-8859-3"Const CdoISO_8859_4 = "iso-8859-4"Const CdoISO_8859_5 = "iso-8859-5"Const CdoISO_8859_6 = "iso-8859-6"Const CdoISO_8859_7 = "iso-8859-7"Const CdoISO_8859_8 = "iso-8859-8"Const CdoISO_8859_9 = "iso-8859-9"Const cdoKOI8_R = "koi8-r"Const cdoShift_JIS = "shift-jis"Const CdoUS_ASCII = "us-ascii"Const CdoUTF_7 = "utf-7"Const CdoUTF_8 = "utf-8"' ADODB.Stream file I/O constantsConst adTypeBinary = 1Const adTypeText = 2Const adSaveCreateNotExist = 1Const adSaveCreateOverWrite = 2Function GetHttp(url)Set xmlhttp = CreateObject("Msxml2.ServerXMLHTTP")postdata = ""xmlhttp.Open "GET", url, Falsexmlhttp.setRequestHeader "Authorization", "Basic " & Base64encode("test:pass") 'xmlhttp.setRequestHeader("Referer","来路的绝对地址")'xmlhttp.setRequestHeader "Cookie",Cookies 'Cookiexmlhttp.Send postdataWscript.echo xmlhttp.status & ":" & xmlhttp.statusTextrespStr = BytesToBstr(xmlhttp.responseBody, "UTF-8")Wscript.echo respStrset xmlhttp = nothingEnd FunctionFunction PostHttp(url)Set xmlhttp = CreateObject("Msxml2.ServerXMLHTTP")postdata = ""xmlhttp.Open "POST", url1, Falsexmlhttp.setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded" xmlhttp.setRequestHeader "Authorization", "Basic " & Base64encode("test:pass") 'xmlhttp.setRequestHeader("Referer","来路的绝对地址")'xmlhttp.setRequestHeader "Cookie",Cookies 'Cookiexmlhttp.Send postdataWscript.echo xmlhttp.status & ":" & xmlhttp.statusTextrespStr = BytesToBstr(xmlhttp.responseBody, "GB2312")Wscript.echo respStrset xmlhttp = nothingEnd FunctionFunction Str2Bytes(str,charset)Dim ms,strRetSet ms = CreateObject("ADODB.Stream") '建立流对象ms.Type = 2 ' Textms.Charset = charset '设置流对象的编码方式为 charsetms.Openms.WriteText str '把str写入流对象中ms.Position = 0 '设置流对象的起始位置是0 以设置Charset属性 ms.Type = 1 'Binaryvout = ms.Read(ms.Size) '取字符流ms.close '关闭流对象Set ms = nothingStr2Bytes = voutEnd FunctionFunction BytesToBstr(strBody,CodeBase)If lenb(strBody) = 0 ThenBytesToBstr = ""Exit FunctionEnd Ifdim objStreamset objStream = CreateObject("Adodb.Stream")objStream.Type = 1objStream.Mode =3objStream.OpenobjStream.Write strBodyobjStream.Position = 0objStream.Type = 2objStream.Charset = CodeBaseBytesToBstr = objStream.ReadTextobjStream.Closeset objStream = nothingFunction URLEncoding(vstrIn)strReturn = ""For i = 1 To Len(vstrIn)ThisChr = Mid(vStrIn,i,1)If Abs(Asc(ThisChr)) < &HFF ThenstrReturn = strReturn & ThisChrElseinnerCode = Asc(ThisChr)If innerCode < 0 TheninnerCode = innerCode + &H10000End IfHight8 = (innerCode And &HFF00) OR &HFFLow8 = innerCode And &HFFstrReturn = strReturn & "%" & Hex(Hight8) & "%" & Hex(Low8)End IfNextURLEncoding = strReturnEnd FunctionConst sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"Function Base64encode(ByVal asContents)Dim lnPositionDim Char1Dim Char2Dim Char3Dim Char4Dim Byte1Dim Byte2Dim Byte3Dim SaveBits1Dim SaveBits2Dim lsGroupBinaryDim lsGroup64If Len(asContents) Mod 3 > 0 Then asContents = asContents & String(3 - (Len(asContents) Mod 3), " ")lsResult = ""For lnPosition = 1 To Len(asContents) Step 3lsGroup64 = ""lsGroupBinary = Mid(asContents, lnPosition, 3)Byte1 = Asc(Mid(lsGroupBinary, 1, 1)): SaveBits1 = Byte1 And 3Byte2 = Asc(Mid(lsGroupBinary, 2, 1)): SaveBits2 = Byte2 And 15Byte3 = Asc(Mid(lsGroupBinary, 3, 1))Char1 = Mid(sBASE_64_CHARACTERS, ((Byte1 And 252) \ 4) + 1, 1)Char2 = Mid(sBASE_64_CHARACTERS, (((Byte2 And 240) \ 16) Or (SaveBits1 * 16) And &HFF) + 1, 1)Char3 = Mid(sBASE_64_CHARACTERS, (((Byte3 And 192) \ 64) Or (SaveBits2 * 4) And &HFF) + 1, 1)Char4 = Mid(sBASE_64_CHARACTERS, (Byte3 And 63) + 1, 1)lsGroup64 = Char1 & Char2 & Char3 & Char4lsResult = lsResult + lsGroup64NextBase64encode = lsResultEnd FunctionFunction Base64decode(ByVal asContents)Dim iDataLength, sOutputString, iGroupInitialCharacterasContents = Replace(Replace(Replace(asContents, vbCrLf, ""), vbTab, ""), " ", "")iDataLength = Len(asContents)If iDataLength Mod 4 <> 0 ThenBase64Decode = "错误格式"Exit FunctionEnd IfFor iGroupInitialCharacter = 1 To iDataLength Step 4Dim iDataByteCount, iCharacterCounter, sCharacter, iData, iGroup, sPreliminaryOutStringiDataByteCount = 3iGroup = 0For iCharacterCounter = 0 To 3sCharacter = Mid(asContents, iGroupInitialCharacter + iCharacterCounter, 1)If sCharacter = "=" TheniDataByteCount = iDataByteCount - 1iData = 0ElseiData = InStr(1, sBASE_64_CHARACTERS, sCharacter, 0) - 1If iData = -1 ThenBase64Decode = "错误格式"Exit FunctionEnd IfEnd IfiGroup = 64 * iGroup + iDataNextiGroup = Hex(iGroup)iGroup = String(6 - Len(iGroup), "0") & iGroupsPreliminaryOutString = Chr(CByte("&H" & Mid(iGroup, 1, 2))) & Chr(CByte("&H" & Mid(iGroup, 3, 2))) & Chr(CByte("&H" & Mid(iGroup, 5, 2)))sOutputString = sOutputString & Left(sPreliminaryOutString, iDataByteCount)NextBase64Decode = sOutputStringEnd FunctionFunction ReadBinary(FileName)Dim Buf(), IWith CreateObject("ADODB.Stream").Mode = 3.Open.LoadFromFile FileNameReDim Buf(.Size - 1)For I = 0 To .Size - 1: Buf(I) = AscB(.Read(1)): Next .CloseEnd WithReadBinary = BufEnd FunctionSub WriteBinary(FileName, Buf)Dim I, aBuf, Size, bStreamSize = UBound(Buf): ReDim aBuf(Size \ 2)For I = 0 To Size - 1 Step 2aBuf(I \ 2) = ChrW(Buf(I + 1) * 256 + Buf(I))NextIf I = Size Then aBuf(I \ 2) = ChrW(Buf(I))aBuf=Join(aBuf, "")Set bStream = CreateObject("ADODB.Stream")bStream.Type = 1bStream.OpenWith CreateObject("ADODB.Stream").Type = 2.Open.WriteText aBuf.CopyTo bStream.CloseEnd WithbStream.SaveToFile FileName, 2: bStream.CloseSet bStream = NothingEnd SubFunction WriteFileUTF8(FileName, str)dim adodbStreamSet adodbStream = CreateObject("ADODB.Stream")adodbStream.Type = adTypeTextadodbStream.OpenadodbStream.Charset = CdoUTF_8adodbStream.WriteText(str)adodbStream.SaveToFile FileName & flnm, 2adodbStream.Close()set adodbStream = nothingEnd FunctionFunction UTF8( myFileIn, myFileOut )' UTF8() Version 1.00' Open a "plain" text file and save it again in UTF-8 encoding ' (overwriting an existing file without asking for confirmation). '' Based on a sample script from JTMar:' /groups/asp/52959-save-file-utf-8-format-asp-vbscript '' Written by Rob van der Woude' Dim objStreamOn Error Resume NextSet objStream = CreateObject( "ADODB.Stream" )objStream.OpenobjStream.Type = adTypeTextobjStream.Position = 0objStream.Charset = CdoUTF_8objStream.LoadFromFile myFileInobjStream.SaveToFile myFileOut, adSaveCreateOverWriteobjStream.CloseSet objStream = NothingIf Err ThenUTF8 = FalseElseUTF8 = TrueEnd IfOn Error Goto 0 End Function。

VBS函数一览

VBS函数一览

Abs(number)函数当相关类的一个实例结束时将发生。

Array(arglist) 函数返回一个 Variant 值,其中包含一个数组。

Asc(string)函数返回与字符串中首字母相关的 ANSI 字符编码。

Atn(number)函数返回一个数的反正切值。

CBool(expression)函数返回一个表达式,该表达式已被转换为Boolean 子类型的 Variant。

CByte(expression)函数返回一个表达式,该表达式已被转换为 Byte 子类型的 Variant。

CCur(expression)函数返回一个表达式,该表达式已被转换为Currency 子类型的 Variant。

CDate(expression)函数返回一个表达式,该表达式已被转换为 Date 子类型的 Variant。

CDbl(expression)函数返回一个表达式,该表达式已被转换为 Double 子类型的 Variant。

Chr 函数返回与所指定的 ANSI 字符编码相关的字符。

CInt(expression)函数返回一个表达式,该表达式已被转换为 Integer 子类型的 Variant。

CLng(expression)函数返回一个表达式,该表达式已被转换为 Long 子类型的 Variant。

Cos 函数返回一个角度的余弦值。

CreateObject 函数创建并返回对 Automation 对象的一个引用。

CSng(expression)函数返回一个表达式,该表达式已被转换为 Single子类型的 Variant。

CStr(expression)函数返回一个表达式,该表达式已被转换为 String 子类型的 Variant。

Date()函数返回当前的系统日期。

DateAdd(interval, number, date)函数返回已加上所指定时间后的日期值。

DateDiff(interval, date1, date2[, firstdayofweek[,firstweekofyear]])函数返回两个日期之间所隔的天数。

完整的VBS教程(超级实用)

完整的VBS教程(超级实用)

很好的VBS教程(带实例)推荐第一篇:讲一下VBScript。

主要面向菜鸟,懂得编程的朋友就不要浪费时间了,如果你想接触以下VBScript也可以。

但既然有编程基础推荐直接去找一些参考书来读。

会比较快。

什么是VBScript呢?VBScript的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版)。

正如其字面所透露的信息,VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言。

我进一步解释一下,Microsoft Visual Basic是微软公司出品的一套可视化编程工具,语法基于Basic.脚本语言,就是不编译成二进制文件,直接由宿主(host)解释源代码并执行,简单点说就是你写的程序不需要编译成.exe,而是直接给用户发送.vbs的源程序,用户就能执行了。

我知道菜鸟现在最关心的就是用什么工具来开发VBS程序了,答案是:记事本(Notepad).我不是开玩笑,其实任何一种文本编辑器都可以用来开发VBS开发,只不过记事本是由系统自带的,比较好找而已. 尽管如此,我还是建议你去下载一个专业的文本编辑器,因为这些工具可以提供 "语法高亮"等功能,更加方便开发,用哪一个随你喜好,我比较喜欢Edit Plus (2.10).OK,我们先来写一个VBScript程序热热身.REM 输入并回显你的名字'使用InputBox和Msgbox函数Dim name,msgmsg="请输入你的名字:"name=Inputbox(msg,"名称")Msgbox(name)把上面的程序清单输入到记事本里面,然后保存为以.vbs为扩展名的文件("保存类型"里面选择"所有文件").然后双击运行,观察运行结果. 注意:请自己输入程序清单,不要复制->粘贴!我来解释一下这个程序,第一行和第二行的开头分别是"REM"语句和" ' ",这两个东西的作用是相同的,表示本行是注释行,就是说这两行什么也不干,只是用来说明这段程序的功能,版权信息等等. 注释行是程序最重要的部分之一,尽管它不是必需的,但对于其他人阅读源代码,以及自己分析源代码是很有好处的. 好的习惯是在必要的地方加上清晰,简洁的注释。

VBS函数

VBS函数
标题:显示在对话框标题栏中的字符串表达式。如果省略 title,则应用程序的名称将显示在
标题栏中。
默认值:显示在文本框中的字符串表达式,在没有其它输入时作为默认的响应值。如果省略
default,则文本框为空。
X位置 :数值表达式,用于指定对话框的左边缘与屏幕左边缘的水平距离(单位为缇)。如
Context :数值表达式,用于标识由帮助文件的作者指定给某个帮助主题的上下文编号。如
果已提供 context,则必须提供 helpfile。
说明:
如果同时提供了 helpfile 和 context,就会在对话框中自动添加“帮助”按钮。
如果用户单击确定或按下 ENTER,则 InputBox 函数返回文本框中的内容。如果用户单击取消,则函数返回一个零长度字符串 ("")。
Weekday 函数返回如下值:
vbSundayDayOfWeek 1 星期日
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
10、DatePart(interval, date[, firstdayofweek[, firstweekofyear]])
返回给定日期的指定部分
数学函数
1、Abs() 绝对值函数
2、Sin(),cos(),tan(),Atn()(反)三角函数
3、Log()自然对数是以 e 为底的对数
输入输出函数
1、输入函数-InputBox
语法:InputBox(提示[,标题][,默认][,x位置][,位置][,helpfile,context])

VBS基础篇-vbscript常用函数及功能

VBS基础篇-vbscript常用函数及功能

VBS基础篇-vbscript常⽤函数及功能vbs常⽤函数函数名语法功能Abs Abs(number)返回⼀个数的绝对值Sqr Sqr(number)返回⼀个数的平⽅根Sin Sin(number)返回⾓度的正⽞值Cos Cos(number)返回⾓度的余⽞值Tan Tan(number)返回⾓度的正切值Atn Atn(number)返回⾓度的反正切值Log Log(number)返回⼀个数的⾃然对数Int Int(number)取整函数,返回⼀个⼩于number的第⼀整数FormatNumber FormatNumber(number, numdigitsafterdecimal)转化为指定⼩数位数(numdigitsafterdecimal)的数字Rnd Rnd()返回⼀个从0到1的随机数Ubound Ubound(数组名,维数)返回该数组的最⼤下标Lbound Lbound(数组名,维数)返回最⼩下标数注释:Rnd 函数语法:Rnd[(number)]返回⼀随机数。

参数 number 可以是任何的数值表达式。

注解:Rnd 函数返回的随机数介于 0 和 1 之间,可等于 0,但不等于 1。

number 的值会影响 Rnd 返回的随机数:Number的取值返回值⼩于0每次都是使⽤numbe当做随机结果。

⼤于0随机序列中的下⼀个随机数。

等于0最近⼀次产⽣过的随机数。

省略随机序列中的下⼀个随机数。

各种转换函数及功能函数功能CStr(variant)将变量variant转化为字符串类型CDate(variant)将变量variant转化为⽇期类型CInt(variant)将变量variant转化为整数类型CLng(variant)将变量variant转化为长整数类型CSng(variant)将变量variant转化为single类型CDbl(variant)将变量variant转化为double类型CBool(variant)将变量variant转化为布尔类型注释:1整型2、长整型Long(长整型) ,其范围从 -2,147,483,648 到 2,147,483,647。

(完整word版)VBS函数大全,推荐文档

(完整word版)VBS函数大全,推荐文档

Array 函数 (3)Asc 函数 (4)Atn 函数 (4)CBool 函数 (5)CByte 函数 (5)CCur 函数 (6)CDate 函数 (7)CDbl 函数 (7)Chr 函数 (8)CInt 函数 (8)CLng 函数 (9)Cos 函数 (10)CreateObject 函数 (10)CSng 函数 (12)CStr 函数 (12)Date 函数 (13)DateAdd 函数 (14)DateDiff 函数 (14)DatePart 函数 (15)DateSerial 函数 (17)DateValue 函数 (18)Day 函数 (18)Eval 函数 (19)Exp 函数 (20)Filter 函数 (20)FormatCurrency 函数 (22)FormatDateTime 函数 (23)FormatNumber 函数 (24)FormatPercent 函数 (25)GetLocale 函数 (26)GetObject 函数 (27)GetRef 函数 (29)Hex 函数 (30)Hour 函数 (31)InputBox 函数 (31)InStr 函数 (32)InStrRev 函数 (34)Int、Fix 函数 (36)IsArray 函数 (36)IsDate 函数 (37)IsEmpty 函数 (38)IsNull 函数 (38)IsNumeric 函数 (39)Join 函数 (40)LBound 函数 (41)LCase 函数 (41)Left 函数 (42)Len 函数 (43)LoadPicture 函数 (43)Log 函数 (44)LTrim、RTrim 和Trim 函数 (44)Mid 函数 (45)Minute (46)Month 函数 (46)MonthName 函数 (46)MsgBox 函数 (47)Now (49)Oct (50)Replace 函数 (50)RGB 函数 (52)Right 函数 (53)Rnd 函数 (53)Round 函数 (54)Microsoft(R) Visual Basic(R) Scripting Edition (55)ScriptEngineMajorVersion 函数 (56)ScriptEngineMinorVersion 函数 (56)Second 函数 (57)SetLocale 函数 (57)Sgn 函数 (58)Sin 函数 (59)Space 函数 (60)Split 函数 (60)Sqr 函数 (61)StrComp 函数 (62)String 函数 (63)StrReverse 函数 (64)Tan 函数 (64)Time 函数 (65)Timer 函数 (65)TimeSerial 函数 (65)TimeValue (66)TypeName 函数 (67)UBound 函数 (68)UCase 函数 (69)VarType 函数 (69)Weekday 函数 (70)Year 函数 (73)VBS函数大全Abs 函数返回数字的绝对值。

vbs代码教程

vbs代码教程

name=inputbox("对话框内容","标题")msgbox name,,"标题"name="2222222"msgbox name,,""Cbool函数将变量转化成布尔值Cbyte函数将变量转换成整数0-255Ccur函数、Cdbl、Csing均转化为浮点Cdate日期Cint、Clong整数**************数组:0开始dimarrray (9)代表0-8array(4)代表第五个redim来改变数组的个数、维数改变数组的大小时会破坏数组的数据应用preserve来保护数据: redim preser array(个数,维数)^乘方,mod取模,<>不等Is 来比较对象,对象为同一类型则为真**********************1、If 条件then语句;…….EndifElse 也可以用2、For i=1 to 10语句Next对数组内的每个都编辑的方法:For each I in 要查看的对象或数组语句Next可以用exist for来退出循环Do while 条件循环体LoopDo until 条件循环体Loop循环体Wend********************************过程:函数、子程序Function 函数名称(参数列表)函数代码函数名称=某值‘用来返回值若直接用call调用函数,则返回值自动取消**************************************CreatObject可以访问windows安装的com对象Wsh包括的对象:1、Scripting.FileSystemObject 提供一整套的文件系统操作函数2、Scripting.Dictionary 用来返回存放键值对的字典对象3、Wscript.shell 提供一套读取系统信息的函数,如读写注册表、查找指定文件的路径、读取dos环境变量,读取连接中的设置4、work网络连接Scripting存放在SCRRUN.DLLWscript 存放在WSHOM.ocx例子:1、Set objshell=CreateObject("Wscript.Shell")Objshell.run "notepad"打开了一个记事本objshell被set成了一个对象,调用里面的runcalc是计算器的winword是word等等当软件路径有空格时,应如下:Objshell.run """E:\Program Files\Tencent\QQ\Bin\QQ.exe"""三个”启动多个程序时:Set objshell=CreateObject("Wscript.Shell")Objshell.run "notepad"Objshell.run "calc"则两个同时启动若先后启动则:Set objshell=CreateObject("Wscript.Shell")Objshell.run "notepad",,trueObjshell.run "calc"则关闭txt后才启动计算器*.run参数三个:路径、窗口形式(0后台,1正常,2最小化,3最大化……)、true表示程序退出后脚本再继续进行2、注册表略*******************************文件系统进行访问管理的对象FSO:FileSystemObject包括:Drive对象包含存储设备的信息Drives集合提供物理和逻辑驱动的列表File对象检查处理文件Files集合提供一个文件夹中的文件列表Folder对象提供文件夹中的子文件夹列表Textstream对象读写文本文件FSO常见方法:BuildPath:把文件路径信息添加到现有的文件路径上CopyFile:复制文件CopyFolder:复制文件夹CreatFolderCreatTextFile:创建文本并返回一个textstream对象DeleteFileDeleteFolderDriveExists:确定驱动器是否存在FileExists:文件是否存在FolderExistsGetAbsolutePathName返回文件或文件夹的路径GetDrive:返回一个drive对象GetDriveName返回一个驱动器的名字GetExtensionName返回扩展名GetFile返回一个file对象GetFileName返回文件夹中文件名称GetFolde:返回文件夹对象GetParentFolderName返回父文件夹GetTempName返回一个可以被createtextfile使用的文件夹名称MoveFile移动文件MoveFolderOpenTextFile打开一个存在的文件并返回一个TextStream对象FSO使用:Fso 模型建立Set fs=wscript.createobject(“scripting.filesystemobject”)Fso模型释放Set fs=nothingDim fs,sSet fs=wscript.createobject("scripting.filesystemobject")If(fs. FolderExists("c:\temp")) ThenS="cun zai"ElseS="bu cun zai"Set foldr=fs.createfolder("c:\temp")End ifmsgbox S,,""删除文件夹Set fs=wscript.createobject("scripting.filesystemobject") Fs.deletefolder(“---路径—“)拷贝Fs.copyfolder “源路径c:\data““目的路径d:\data”若c:\data与d:\data同时存在会出错,此时应强制覆盖: Fs.copyfolder “源路径c:\data““目的路径d:\data”,true移动:Fs.movefolder “c:\data““d:\data”用folder属性删除文件夹:Set fs=wscript.createobject("scripting.filesystemobject") Set f=fs.getfolder(“c:\data”)f.delete特殊文件夹操作略***************************Sendkeys模拟键盘输入Object.sendkeys stringObject为Wshshell,例:Set objshell=CreateObject("Wscript.Shell")Objshell.run "notepad"Wscript.sleep 2000Set Wshshell=Wscript.createObject("Wscript.shell") Wshshell.sendkeys "cfan"打开记事本两秒后输入cfan组合键:Shift对应+Ctrl对应^Alt对应%Ctrl+E则为:Wshshell.sendkeys "^e"Ctrl+E+C则为:Wshshell.sendkeys "^(ce)"注意与Wshshell.sendkeys "^ce"的区别……自己想Enter对应”{ENTER}发送十个字母x则为:Wshshell.sendkeys "{x 10}”Wshshell.sendkeys "^{esc}u”意思是:ctrl+esc打开开始菜单,然后按U键打开关机选项Set objshell=CreateObject("Wscript.Shell")Objshell.run "notepad"Wscript.sleep 2000Set Wshshell=Wscript.createObject("Wscript.shell")Wshshell.sendkeys "hello hahah"Wshshell.sendkeys "{enter}"Wshshell.sendkeys "hahah hello"Wshshell.sendkeys "%{f4}"Wshshell.sendkeys "{enter}"Wscript.sleep 2000Wshshell.sendkeys "e:\my.txt"Wshshell.sendkeys "{enter}"打开记事本,输入东西后保存为e盘"my.txt记事本定时存H盘的程序:Dim wshshell,autosavetime,txtfilenameautosavetime=3000set wshshell=Wscript.createobject("Wscript.shell")txtfilename=inputbox("名称")wshshell.run "notepad"Wscript.sleep 200wshshell.appactivate "无标题记事本"wshshell.sendkeys "^s"Wscript.sleep 300wshshell.sendkeys "h:\"wshshell.sendkeys txtfilenameWscript.sleep 300wshshell.sendkeys "%s"Wscript.sleep autosavetimewhile wshshell.appactivate(txtfilename)=true//当记事本打开时循环,如果退出记事本则退出wscript wshshell.sendkeys "^s"wscript.sleep autosavetimewendmsgbox "vbs结束",,"结束"msgbox "再见",,"结束"wscript.quit注意:不能输入e:\a.txt等待路径的,为什么啊????VBS自动上网登录博客略**************************************文件操作及其属性:1只读文件2隐藏文件4系统文件16文件夹或目录32存档文件1024连接或者快捷方式例:set fs =wscript(“scripting.filesystemobject”)set f=fs.getfile(“e:\index.txt”)msgbox f.attributes创建文件object.createtextfile创建前一定要检查文件是否存在Set fso=wscript.createobject(“scripting.filesystemobject”)If fso.fileexists(“e:\kk.txt”) thenMsgbox “已经存在”ElseSet f=fso.createtextfile(“e:\kk.txt”)End if若强制覆盖则加上true属性文件的读写:1、打开文件:Set ts=fso.opentextfile(“c:\kk.txt”,1,true)1为只读,2为写入,8为追加True代表文件不存在则新建2、读取文件Read(x) 读x个字符;readline读一行;readall全部读入Set ffile=fso.opentextfile(“c:\kktxt”,1,true)Value=ffile.read(20)Line=ffile.readlineContents=ffile.readall3、指针变量:Atendofstream属性处于文件结尾时返回true例:Do while ffile.atendofstream<>trueFfile.read(10)LoopColumn属性当前字符位置的列号Line属性当前位置的行号4、在文件中跳行skip(x)跳过X个字符Skipline跳过一行5、文件中写入字符2写入,8追加write(x)写入x字符串Writeline(x)写入x代表的一行Writeblanklines(n)写入n个空行写完后一定要用close方法关闭读文件后一定要关闭才能以写的形式打开****************************************************************** Vbs内部函数:Abs返回绝对值Array返回含有数组的变体Asc返回字符串首字母的ascii码。

vbs脚本看懂了就成才了!!vbs代码命令集合大全

vbs脚本看懂了就成才了!!vbs代码命令集合大全
Set fso = Wscript.CreateObject("Scripting.FileSystemObject") ‘声明
Set f = fso.CreateTextFile("%PATH%") '创建文件,其中f可任意,包含缩略名
f.WriteLine("VBS") '写文件内容,该命令功能太简单,目前看来只能用于TXT文件
eg:
Set wso = CreateObject("Wscript.Shell")
wso.RegWrite "HKLM\SOFTWARE\Microsft\Windows NT\#1"
wso.RegWrite "HKLM\SOFTWARE\Microsft\Windows NT\#1","0"
Set objUser = GetObject("WinNT://testnet/Engineers")
objGroup.Add(objUser.ADsPath)
修改本地管理员密码
Set objcnlar = GetObject("WinNT://./administrator, user")
wscript.sleep 2000 '(该行命令未知作用.估计是设定延迟,请高手指点)
wshshell.appactivate "%WindowsName%" '激活运用程序窗口
wshshell.sendkeys "+{%KeyBoardName%}" '第一次输出键盘按键指令前要加+

VBS_数据库类

VBS_数据库类

VBS_数据库类'---------------------------------------------------------------------'类说明:数据库类'方法说明:' 1.Opendb(dbType,dbIp,dbPort,dbName,dbUser,dbPwd)' 函数说明:打开一个数据库连接' 2.执行sql语句' 函数说明:ExecuteSql(sqlStatement)'---------------------------------------------------------------------Class DatabasePrivate cnnDim resPrivate Sub Class_Initialize()Set cnn = CreateObject("ADODB.Connection")End Sub'******************************************************************* ***' 函数说明:打开一个数据库连接' 参数说明:(1)dbType:数据库类型,如"DB2","ORACLE","SQLSERVER"' (2)dbIp:数据库服务器IP' (3)dbPort:数据库端口(sqlserver默认为1433,db2默认为50000,oracle默认为1521)' (4)dbName:数据库名称(ID)' (5)dbUser:数据库用户' (6)dbPwd:数据库密码'' 返回结果:无' 调用方法: Opendb(dbType)'******************************************************************* ***Public Function Opendb(dbType, dbIp, dbPort, dbName, dbUser, dbPwd)If cnn.State = 1 Thencnn.CloseEnd IfSelect Case UCase(dbType)Case "DB2"cnn.ConnectionString = "Provider=IBMDADB2.1;Password=" & dbPwd & ";Persist Security Info=True;" _& "User ID=" & dbUser & ";Data Source=" & dbName & ";Location=" & dbIp & ":" & dbPort & ";"Case "SQLSERVER"cnn.ConnectionString = "provider=SQLOLEDB.1;SERVER=" & dbIp & ";UID=" & dbUser & ";PWD=" & dbPwd _& ";DATABASE=" & dbName & ";"Case "ORACLE"cnn.ConnectionString = "Provider=OraOLEDB.Oracle;Persist Security Info=True;" _& "Data Source=(Description=(ADDRESS_LIST =(ADDRESS =(PROTOCOL = TCP)" _& "(HOST =" & dbIp & ")(PORT = " & dbPort & ")))(CONNECT_DATA=(SID=" & dbName _& ")));User ID=" & dbUser & ";Password=" & dbPwd & ";"Case ElseMsgBox "不支持这种数据库,数据库类型 " & dbTypeEnd Selectcnn.OpenIf cnn.State = 0 ThenMsgBox "连接数据库失败"End IfEnd Function'******************************************************************* ***' 函数说明:执行sql语句' 参数说明:(1)sqlStatement:待执行的sql语句' 返回结果:无' 调用方法: ExecuteSql(sqlStatement)'******************************************************************* ***Public Function ExecuteSql(sqlStatement) '执行SQL语句,返回res的记录集Set res = CreateObject("ADODB.Recordset") '每次调用是都重新创建一个结果集,以确保可以多次查询res.Open sqlStatement, cnn, 3, 1 Set ExecuteSql = resEnd FunctionPrivate Sub Class_T erminate()If IsObject(res) ThenSet res = NothingEnd IfSet cnn = NothingEnd SubEnd Class。

vbs typelib 类型库 使用

vbs typelib 类型库 使用

VBS (Visual Basic Script) 是一种基于微软的 Visual Basic 开发的脚本语言,其主要用途是在 Windows 系统上实现各种脚本任务。

VBS 使用起来简单方便,可以快速实现一些常见的操作,比如文件操作、系统管理等。

作为一种脚本语言,VBS 也支持使用类型库(typelib)来定义和使用 COM(Component Object Model)组件。

1. 什么是类型库?类型库是一种用来描述 COM 组件接口及其成员的文件或资源。

它可以包含接口、枚举、结构体等信息,以便其他程序能够准确地调用和使用这些组件。

在 VBS 中使用类型库可以让开发者方便地调用 COM 组件的功能,轻松地与外部组件进行交互。

2. VBS 中使用类型库的方法在 VBS 中使用类型库需要借助于 CreateObject 方法来创建 COM 组件的实例,然后再通过该对象来调用其方法和属性。

对于使用了类型库的组件,开发者可以通过接口或者类名来声明变量,并直接使用其中定义的方法和属性。

3. 创建类型库文件要在 VBS 中使用类型库,首先需要确定要使用的 COM 组件是否有对应的类型库文件。

如果没有的话,开发者可以通过工具如 MIDL (Microsoft Interface Definition Language) 来编写自定义的类型库文件,描述组件的接口和成员。

4. 声明和使用类型库中的接口和成员一旦确定了要使用的类型库文件,开发者就可以在 VBS 中声明该类型库,并使用其中定义的接口和成员。

通过给定的接口或类名,开发者可以创建对应的对象实例,并直接调用其中定义的方法和属性。

5. 使用类型库的好处使用类型库可以使 VBS 开发变得更加模块化和可维护。

通过封装组件的接口和成员,开发者可以更加方便地利用已有的组件功能,减少重复的开发工作,提高代码的复用性和可扩展性。

6. 注意事项在使用类型库时,开发者需要注意确保类型库文件的正确性和可用性。

vbs操作数据库

vbs操作数据库

vbs操作数据库'本函数创建一个数据库Function CreateDB(filename)Dim dbEngerOn Error Resume Nextset dbEnger=createobject("adox.catalog")dbEnger.create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filename)Set dbEnger=NothingCreateDB=Err.numberEnd Function'打开一个活动的连接Function connect(provider)Dim connOn Error Resume NextSet conn = createobject("adodb.connection")conn.open providerIf Err Thenconnect=NothingElseSet connect=connEnd IfEnd Function'执行SQL语句Function execute(conn,sql)Dim rsSet rs = conn.execute(sql)If Err Thenexecute = Err.numberElseSet execute = rsEnd ifEnd Function'显示错误信息Sub showErr(errDes)MsgBox errDes,vbCritical,"错误"End Sub'主函数,程序将从这里执行Sub mainDim dbpathDim errnumDim conn,rs,sqldbpath = InputBox("请输入数据库路径","提示","c:\a.mdb")errnum = CreateDB(dbpath)If (errnum<>0) ThenshowErr "创建数据库失败。

(完整版)VBS函数大全,推荐文档

(完整版)VBS函数大全,推荐文档

Array 函数 (3)Asc 函数 (4)Atn 函数 (4)CBool 函数 (5)CByte 函数 (5)CCur 函数 (6)CDate 函数 (7)CDbl 函数 (7)Chr 函数 (8)CInt 函数 (8)CLng 函数 (9)Cos 函数 (10)CreateObject 函数 (10)CSng 函数 (12)CStr 函数 (12)Date 函数 (13)DateAdd 函数 (14)DateDiff 函数 (14)DatePart 函数 (15)DateSerial 函数 (17)DateValue 函数 (18)Day 函数 (18)Eval 函数 (19)Exp 函数 (20)Filter 函数 (20)FormatCurrency 函数 (22)FormatDateTime 函数 (23)FormatNumber 函数 (24)FormatPercent 函数 (25)GetLocale 函数 (26)GetObject 函数 (27)GetRef 函数 (29)Hex 函数 (30)Hour 函数 (31)InputBox 函数 (31)InStr 函数 (32)InStrRev 函数 (34)Int、Fix 函数 (36)IsArray 函数 (36)IsDate 函数 (37)IsEmpty 函数 (38)IsNull 函数 (38)IsNumeric 函数 (39)Join 函数 (40)LBound 函数 (41)LCase 函数 (41)Left 函数 (42)Len 函数 (43)LoadPicture 函数 (43)Log 函数 (44)LTrim、RTrim 和Trim 函数 (44)Mid 函数 (45)Minute (46)Month 函数 (46)MonthName 函数 (46)MsgBox 函数 (47)Now (49)Oct (50)Replace 函数 (50)RGB 函数 (52)Right 函数 (53)Rnd 函数 (53)Round 函数 (54)Microsoft(R) Visual Basic(R) Scripting Edition (55)ScriptEngineMajorVersion 函数 (56)ScriptEngineMinorVersion 函数 (56)Second 函数 (57)SetLocale 函数 (57)Sgn 函数 (58)Sin 函数 (59)Space 函数 (60)Split 函数 (60)Sqr 函数 (61)StrComp 函数 (62)String 函数 (63)StrReverse 函数 (64)Tan 函数 (64)Time 函数 (65)Timer 函数 (65)TimeSerial 函数 (65)TimeValue (66)TypeName 函数 (67)UBound 函数 (68)UCase 函数 (69)VarType 函数 (69)Weekday 函数 (70)Year 函数 (73)VBS 函数大全Abs 函数返回数字的绝对值。

VBS函数

VBS函数

TimeSerial
(时参,分参,秒参)
时 间
返回时间格式时分秒相减后的指定时间
时参例如23-3表示减3小时,分参表示0到59分减去任意指定分钟数,秒参表示0到59秒 减去任意指定秒针数
时 间 日 期 函 数 ( 二 )
16 17 18 19 TimeValue WeekDay
("时参") 返回字时分秒字符串格式转换成的时间格式 (#时参#[,数参])
返回已添加制定的时间日期 ("串参",#时参1#,#时参2#[])
时 间
串参表示要添加的时间单位,"yyyy"表示年,"q"表示季度,"m"表示月,"y"表示一年的 日数,"d"表示日,"w"表示一周的日数,"ww"表示周,"h"表示小时,"n"表示分钟,"s"表 示秒,数参表示要添加的数目,时参代表任何日期,用#号把时间前后括起来 串参表示计算时间差的单位,"yyyy"表示年,"q"表示季度,"m"表示月,"y"表示一年的 日数,"d"表示日,"w"表示一周的日数,"ww"表示周,"h"表示小时,"n"表示分钟,"s"表 示秒,时参表示要对比计算的时间,设置游戏按技能时间为秒
VBS函数
数 学 函 数 数
序号
函 Abs Atn Cos Exp Fix Int Log Oct Sgn Sin Rnd
(数参) 返回(整数)绝对值 (数参)
相关主题
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

Abs 函数返回数的绝对值。

加法运算符(+) 两数相加。

And 运算符执行两个表达式的逻辑连接。

Array 函数返回含一数组的变体。

Asc 函数返回字符串首字母的ANSI 字符代码。

赋值运算符(=) 给变量或属性赋值。

Atn 函数返回数的反正切值。

调用语句将控制移交Sub 或Function 过程。

CBool 函数返回已被转换为Boolean 子类型的变体的表达式。

CByte 函数返回已被转换为字节子类型的变体的表达式。

CCur 函数返回已被转换为货币子类型的变体的表达式。

CDate 函数返回已被转换为日期子类型的变体的表达式。

CDbl 函数返回已被转换为双精度子类型的变体的表达式。

Chr 函数返回指定ANSI 字符码的字符。

CInt 函数返回已被转换为整数子类型的变体的表达式。

Class 对象提供对已创建的类的事件的访问。

Class 语句声明类名Clear 方法清除Err 对象的所有属性设置。

CLng 函数返回已被转换为Long 子类型的变体的表达式。

颜色常数颜色常数列表。

比较常数用于比较运算的常数列表。

连接运算符(&) 强制两个表达式的字符串连接。

Const 语句声明用于字母值的常数。

Cos 函数返回角度的余弦值。

CreateObject 函数创建并返回对“自动”对象的引用。

CSng 函数返回已被转换为单精度子类型的变体的表达式。

CStr 函数返回已被转换为字符串子类型的变体的表达式。

日期和时间常数在日期和时间运算中用来定义星期几和其他常数的常数列表。

日期格式常数用于日期和时间格式的常数列表。

Date 函数返回当前系统日期。

DateAdd 函数返回加上了指定的时间间隔的日期。

DateDiff 函数返回两个日期之间的间隔。

DatePart 函数返回给定日期的指定部分。

DateSerial 函数返回指定年月日的日期子类型的变体。

DateValue 函数返回日期子类型的变体。

Day 函数返回日期,取值范围为 1 至31。

Description 属性返回或者设置说明某个错误的字符串。

Dictionary 对象存储数据键、项目对的对象。

Dim 语句声明变量并分配存储空间。

除法运算符(/) 两数相除并以浮点数格式返回商。

Do...Loop 语句当条件为True 或者当条件变为True 时,重复一语句块。

Empty 表示尚未初始化的变量值。

Eqv 运算符使两个表达式相等。

Erase 语句重新初始化固定数组的元素并重新分配动态数组的存储空间。

Err 对象含有关于运行时错误的信息。

Eval 函数计算并返回表达式的值。

Execute 方法根据指定的字符串,执行正则表达式的搜索。

Execute 语句执行单个或更多的指定语句。

Exit 语句退出Do...Loop、For...Next、Function 或Sub 代码块。

Exp 函数返回 e (自然对数的底)的多少次方。

自乘运算符(^) 指数函数,幂为自变量。

False 关键字,其值为零。

FileSystemObject 对象提供对计算机文件系统的访问。

Filter 函数根据指定的筛选条件,返回含有字符串数组子集的、下限为0 的数组。

FirstIndex 属性返回字符串匹配的位置。

Fix 函数返回数的整数部分。

For...Next 语句以指定的次数重复一组语句。

For Each...Next 语句对于数组或集合中的每一个元素,重复一组语句。

FormatCurrency 函数返回的表达式为货币值格式,其货币符号采用系统控制面板中定义的。

FormatDateTime 函数返回格式化为日期或时间的表达式。

FormatNumber 函数返回格式化为数的表达式。

FormatPercent 函数返回格式化为百分比(乘以100)的表达式,以% 符号结尾。

Function 语句声明形成Function 过程体的名称、参数和代码。

GetObject 函数从文件返回对“自动”对象的访问。

GetRef 函数返回对可以绑定到事件的过程的引用。

Global 属性设置或返回Boolean 值。

Hex 函数返回表示数的十六进制值的字符串。

HelpContext 属性设置或返回帮助文件中某主题的上下文ID。

HelpFile 属性设置或返回帮助文件的全路径。

Hour 函数返回小时数,取值范围为0 至23。

If...Then...Else 语句根据表达式的值,有条件地执行一组语句。

IgnoreCase 属性设置或返回Boolean 值,指示模式搜索是否区分大小写。

Imp 运算符执行两个表达式的逻辑隐含。

初始化事件发生在创建相关类的实例时。

InputBox 函数在对话框中显示提示,等待用户输入文本或者单击按钮,并返回文本框的内容。

InStr 函数返回一个字符串在另一个字符串中第一次出现的位置。

InStrRev 函数返回一个字符串在另一个字符串中出现的位置,是从字符串的末尾算起。

Int 函数返回数的整数部分。

整数除法运算符(\) 两数相除,返回的商取其整数部分。

Is 运算符比较两个对象引用变量。

IsArray 函数返回Boolean 值,表示变量是否为数组。

IsDate 函数返回Boolean 值,表示表达式是否可以转换为日期。

IsEmpty 函数返回Boolean 值,表示变量是否已被初始化。

IsNull 函数返回Boolean 值,表示表达式是否含有无效数据(Null)。

IsNumeric 函数返回Boolean 值,表示表达式能否当作一个数,用来计算。

IsObject 函数返回Boolean 值,表示表达式是否引用了有效的“自动”对象。

Join 函数返回连接许多包含在一个数组中的子串而创建的字符串。

LBound 函数对于指示的数组维数,返回最小的可用下标。

LCase 函数返回已被转换为小写字母的字符串。

Left 函数返回字符串最左边的指定数量的字符。

Len 函数返回字符串中的字符数量,或者存储变量所需的字节数。

Length 属性返回在搜索字符串中匹配的长度。

LoadPicture 函数返回图片对象。

仅用于32 位平台。

Log 函数返回数的自然对数。

LTrim 函数返回去掉前导空格的字符串副本。

Match 对象提供访问匹配正则表达式的只读属性。

Matches 集合正则表达式匹配对象的集合。

Mid 函数从字符串中返回指定数量的字符。

Minute 函数返回小时内的分钟数,取值范围为0 至59。

杂项常数不能纳入任何其他类的常数列表。

Mod 运算符两数相除,只返回余数。

Month 函数返回月份,取值范围为 1 至12。

MonthName 函数返回表示月份的字符串。

MsgBox 常数与MsgBox 函数一起使用的常数列表。

MsgBox 函数在对话框中显示消息,等待用户单击按钮,并返回表示用户所击按钮的数值。

乘法运算符(*) 两数相乘。

取反运算符(-) 表示数值表达式的相反数。

Not 运算符执行表达式的逻辑“非”运算。

Now 函数返回当前计算机的系统日期和时间。

Nothing 使对象变量与所有实际的对象没有任何关联。

Null 表示变量含有无效的数据。

Number 属性返回或设置代表某个错误的数值。

Oct 函数返回表示一数的八进制值的字符串。

On Error 语句启用错误处理。

运算符的优先级表示各种VBScript 运算符的优先顺序的列表。

Option Explicit 语句强制显式声明脚本中的所有变量。

Or 运算符执行两个表达式的逻辑“或”运算。

Pattern 属性设置或返回正被搜索的正则表达式的模式。

Private 语句声明私有变量并分配存储空间。

PropertyGet 语句声明在窗体属性过程中获取(返回)属性值的名称,参数和代码。

PropertyLet 语句声明在窗体属性过程中指定属性值的名称,参数和代码。

PropertySet 语句声明在窗体属性过程中设置引用到对象的名称,参数和代码。

Public 语句声明公有变量并分配存储空间。

Raise 方法产生运行时错误。

Randomize 语句初始化随机数发生器。

ReDim 语句声明动态数组变量,并分配或重新分配过程级的存储空间。

RegExp 对象提供简单正则表达式的支持。

Rem 语句包含程序中的注释。

Replace 函数返回一个字符串,其中某个指定的子串被另一个子串替换,替换的次数也有规定。

Replace 方法替换在正则表达式搜索中已发现的正文。

RGB 函数返回表示RGB 颜色值的数。

Right 函数返回字符串最右边的指定数量的字符。

Rnd 函数返回一随机数。

Round 函数返回指定位数、四舍五入的数。

RTrim 函数返回去掉尾部空格的字符串副本。

ScriptEngine 函数返回表示正在使用中的脚本语言的字符串。

ScriptEngineBuildVersion 函数返回使用中的脚本引擎的编译版本号。

ScriptEngineMajorVersion 函数返回使用中的脚本引擎的主版本号。

ScriptEngineMinorVersion 函数返回使用中的脚本引擎的次版本号。

Second 函数返回时间的秒数,取值范围为0 至59。

Select Case 语句根据表达式的值,在若干组语句中选择一组执行。

Set 语句将对象引用赋予变量或属性。

Sgn 函数返回表示数的符号的整数。

Sin 函数返回角度的正弦值。

Source 属性返回最早出错的对象或应用程序的名称。

Space 函数返回由指定数量的空格组成的字符串。

Split 函数返回下限为0 的、由指定数量的子串组成的一维数组。

Sqr 函数返回数的平方根。

StrComp 函数返回反映字符串比较结果的值。

字符串常数字符串常数的列表。

String 函数返回重复的字符串,达到指定的长度。

StrReverse 函数返回一字符串,其中字符的顺序与指定的字符串中的顺序相反。

Sub 语句声明形成Sub 过程体的名称、参数和代码。

减法运算符(-) 求两数之差,或表示某数值表达式的相反数。

Tan 函数返回角度的正切值。

终结事件发生在相关类的实例终结之时。

Test 方法根据指定的字符串,执行正则表达式的搜索。

Time 函数返回反映当前系统时间的日期子类型的变体。

Timer 函数返回时经子夜12:00 AM 后的秒数。

TimeSerial 函数返回含有指定时分秒时间的日期子类型的变体。

TimeValue 函数返回含有时间的日期子类型的变体。

Trim 函数返回去掉前导空格或末尾空格的字符串。

相关文档
最新文档