- ubuntu12.04环境下使用kvm ioctl接口实现最简单的虚拟机
- Ubuntu 通过无线网络安装Ubuntu Server启动系统后连接无线网络的方法
- 在Ubuntu上搭建网桥的方法
- ubuntu 虚拟机上网方式及相关配置详解
CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.
这篇CFSDN的博客文章VBS教程:对象-正则表达式(RegExp)对象由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.
正则表达式(RegExp)对象 提供简单的正则表达式支持功能.
说明 下面的代码说明了RegExp对象的用法:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
Function
RegExpTest(patrn, strng)
Dim
regEx, Match, Matches
' 建立变量。
Set
regEx =
New
RegExp
' 建立正则表达式。
regEx.Pattern = patrn
' 设置模式。
regEx.IgnoreCase =
True
' 设置是否区分字符大小写。
regEx.Global =
True
' 设置全局可用性。
Set
Matches = regEx.Execute(strng)
' 执行搜索。
For
Each
Match in Matches
' 遍历匹配集合。
RetStr = RetStr &
"Match found at position "
RetStr = RetStr & Match.FirstIndex &
". Match Value is '"
RetStr = RetStr & Match.Value &
"'."
& vbCRLF
Next
RegExpTest = RetStr
End
Function
MsgBox(RegExpTest(
"is."
,
"IS1 is2 IS3 is4"
))
|
RegExp对象在VBScript中提供正则表达式支持功能,该对象有3个属性和3个方法.
1)Execute方法 。
该方法用于对指定正则表达式进行匹配检测,其值返回一个Matches集合,其中包含了所有检测到匹配的Match对象。如果没有检测到任何匹配则返回一个空的Matches集合.
语法格式:regexp.Execute(string) 其中,regexp为RegExp对象的变量名称;string为要进行匹配检测的有效字符串表达式.
2)Replace方法 。
调用Replace方法时,如果在指定字符串中找到与指定正则表达式相匹配的字符(串),则用指定的其他字符(串)进行替换。该方法的返回值为替换以后的字符串表达式.
语法格式:regexp.Replace(string1,string2) 其中,regexp为RegExp对象的变量名称;string1为要被检测并替换的字符串表达式;string2为用于替换的字符串表达式.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
sub window_onLoad()
dim str,regexp
dim msgstr
str=
"How are you"
msgstr=
"替换前:"
&str&
"<br />"
'//创建RegExp对象
set regexp=new RegExp
'//设置正则表达式
regexp.Pattern=
"o."
'//设置是否替换所有匹配
regexp.Global=
True
document.write msgstr
'//替换操作
msgstr=regexp.Replace(str,
"test"
)
msgstr=
"替换后:"
&msgstr
document.write msgstr
end sub
|
3)Test方法 。
该方法的作用是判断指定的字符串中是否有与指定的正则表达式相匹配的内容。如果有,则返回Ture;否则返回False。同Replace方法类似,调用该法时,正则表达式是由Pattern属性指定的。二者不同在于,Global属性的设置对该方法没有影响.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
sub window_onLoad()
dim str,regexp
dim blvar
str=
"This is a test"
'//创建RegExp对象
set regexp=new RegExp
'//设置正则表达式
regexp.Pattern=
".s"
'//调用Test方法
blvar=regexp.Test(str)
if blvar then
document.write
"在"
&str&
"中找到了与"
®exp.pattern&
"相匹配的内容"
else
document.write
"没有找到匹配内容"
end if
end sub
|
这篇文章就介绍到这,需要的朋友可以参考一下.
最后此篇关于VBS教程:对象-正则表达式(RegExp)对象的文章就讲到这里了,如果你想了解更多关于VBS教程:对象-正则表达式(RegExp)对象的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。
我使用 IBM Personal Communications 12.0.3.0 的宏记录器制作了一个凭据输入宏。它只是在调用时输入我的用户名和密码。 sub Credentials() Dim
该批处理更改了 vbs 代码,使其无法供 vbs 使用。我该如何解决这个问题? 批号: echo Const HIGH = 128 >> prio.vbs echo strComputer = "."
我有 2 个 vbs 文件。 A.vbs: Class test public a public b End Class B.vbs: Dim objShell Set objShell =
以下是我用来尝试在 IIS 6 中创建虚拟目录的条目: [Run] Filename: {tmp}\cscript.exe mkvirtdir.vbs; Parameters: "-c LocalHo
核心vbs代码 ? 1
对于vbs中ping的实现可以通过两种方式 : 1、调用系统ping命令; 2、使用wmi查询pingstate类处理。 1、调用系统ping命令
在看vb开发,看到二维数组时突发奇想用二维数组作为游戏关卡; 1. 选择操作: 游戏开始时会提示选择注册, 登录, 退出三种选项, 2.注册: 注册成功会将用户账户与密码存入用户数据txt文档中
复制指定文件到指定目录下 核心代码 ? 1
复制代码 代码如下: On Error Resume Next Dim WshShell, QQPath, QQselect set wshshell=createobject("
运行前请确定你的电脑安装了word。 复制代码 代码如下: i=0 set wshshell=createobject("wscript.shell") Set objWo
参考代码一: 复制代码 代码如下: Function DeleteLog( ) Dim objFSO, objFolder, strPath,
挺实用的一段代码,用来深入学习vbs,确实不错咯。 复制代码 代码如下: On Error Resume Next '忽略所有错误 Dim filename '声明变量 Di
话说还是闲来练手,初步实现了自己认为的“多线程”下载。(至于是不是多线程,可以参考12楼链接) 为避免冗余,省了一些错误检查。我觉得没多大实际用途,有兴趣的兄弟一起学习讨论呗。欢迎大家指正: 复制
复制代码 代码如下: set oDOM = WScript.GetObject("http://ipseeker.cn//") flag=0 for i=1 to 10 &n
复制代码 代码如下: on error resume next url = " http://www.bathome.net/logging.php?action=login"
效果图: 代码都封装成函数了,方便调用: 复制代码 代码如下: Key = "www-enun-net" '不要用数字
打开狗狗影视,搜索自己需要的资源,资源类型选:电驴,如下图: 我找到一个 19.75gb 的: 点开它,出现如下图的界面,可以看到正常下载地址已被屏蔽。我们复制地址栏中的网址,备用。
最近相关的备份比较频繁,为了校验文件的完整性,老是要打开某文件HASH校验工具,比较麻烦,于是乎写了这个东东,文件较大时计算有点慢,文件的MD5值保存在剪贴板!效果如图: 使用方法: 1.先
CMD当前路径 复制代码 代码如下: test = createobject("Scripting.FileSystemObject").GetF
For Next 语句的基本结构为: 复制代码 代码如下: For counter = start To end [Step step] [statements] [Exit For] [st
我是一名优秀的程序员,十分优秀!