Set
reg
=
CreateObject
(
"vbscript.regexp"
)
my_str
=
"我人民币大写：
123656.00
。小写：
123654.03
"
&
_
"中介人民币大写：
800.36
公司日丰人民币大写：
36659.32
.日韩地晶上 "
With
reg
.Pattern
=
"
(
人民币大写：
)
(
\d
+
\.[
0
-
9
]{
1
,
3
}
)
"
.
Global
=
True
.IgnoreCase
=
False
.MultiLine
=
True
Set
mh
=
.Execute
(
my_str
)
End
With
For
i
=
0
To
mh.Count
-
1
sub_str
=
sub_str
&
mh
(
i
)
.SubMatches
(
1
)
&
" "
End
Sub
SubMatches：获取匹配到的字符串的所有分组Sub 测试() Dim my_str$, mt, mh, sub_str$ Set reg = CreateObject("vbscript.regexp") my_str = "我人民币大写：123656.00。小写：123654.03 " & _ "中介人民币大写：800.36公司日丰人民币大写：36659.32.日韩地晶上 " With reg
正则
表达式(一个邮箱地址):
(\w )@(\w )\.(\w )
如果你没有进一步了解元字符,可能不懂其
中
含义,不过没关系,在这里你只要知道,该代码的任务是显示电子邮箱dragon@xyzzy.com,用户名和组织名.
Function
Sub
Match
T
es
t(inpStr)
Dim oRe, o
Match
, o
Match
es
Set oRe = New
RegEx
p
' 查找一个电子邮件地址
oRe.Pattern = "(\w )@(\w )\.(\w )"
' 得到
Match
es
集合
Set o
Match
es
= oRe.Execute(inpStr)
' 得到
Match
es
集合
中
的第一项
Set o
Match
= o
Match
es
(0)
' 创建结果字符串。
'
Match
对象是完整匹配 — dragon@xyzzy.com
retStr = "电子邮件地址是： " & o
Match
& vbNewline
' 得到地址的子匹配部分。
retStr = retStr &
ASP
正则
表达式,网上搜到的文章都是转载的同一份,且只说明了替换,没有说明怎么提取需要的字符串,这里给出一个例子.
起因是一个CSDN网友问起怎么提取meta的字符集,自己便琢磨了一下.
几个要点:
1.
Match
es
对象 是否匹配到
使用
Count属性,若>0则表示匹配到了
2.
Sub
Match
es
提取要匹配字符串的关键属性,为一数组
若提取的部分(挎号所挎的部分)为一个,...
有一位美国佬编写的<<精通
正则
表达式>>专业书籍是世人公认的
正则
权威著作.但它不太适合初学者,尤其是没有相关编程语言背景及书
中
所及的种种计算机技术知识的读者.其
中
很多晦涩难懂的内容在
VBA
中
用不上或者对你来说根本无用的,而初学者的你却根本不知道怎样取舍.事实上,本人还没有发现一本针对
VBA
平台的
正则
专业书籍.网络可见到少量
VBA
正则
教程,但内容多是”点到为止”.
1、
match
es
(0).
Sub
Match
es
(0)是匹配模式
中
有()的时候来获取结果。
2、如果匹配模式
中
无()则直接用
Match
.value获取匹配结果
3、将以下代码copy到t
es
t.asp的文件
中
时，在调试的时候浏览器有些时候看不到结果，是因为输出的结果
中
包涵了代码。采用源代码的模式是可以看到匹配的代码及文字。
Match
.value输出的...
4）items方法： 获取字典的所有值
5）item属性： 如果 key已存在，则修改其item值；如果不存在，则新增
6） add方法： 如果 key已存在，将报错；如果不存在，则新增
Sub
t()
Dim d As Dictionary '定义变量
Set d = New Dictionary '创建对象
'一、获取
一、AutoFilter：1、Range 的方法，对表
中
列进行筛选；2、Worksheet 的属性，返回表
中
的筛选对象
Sub
about_AutoFilter()
' 1、Range.AutoFilter，返回值始终为 True
' 1》 语法：Range.AutoFilter(Field, Criteria1, Operator, Criteria2,
Sub
Field, VisibleDropDown)
' 2》 用途：对指定区域 Range 的 Field 偏移列进行筛选
