8、VBA使用正则表达式拆分内容

1 重点内容

01 正则表达式文本

myreg.pattern=".*[^学历规划师]:\s+.*"

02  执行语句

regexp.execute(s)

使用regexp对象那个已经设置好的表达式(pattern属性)在字符窜s中查找符合t条件的文本

03  替换

regexp.replace(s,r)并未修改原文本是,而是将替换后的节骨作为一个新的字符窜

cells(i,2)=myreg.(s,replace,“$1:$2“)

#$n 代表din个圆括号中捕获的内容

 

2 应用案例

option explicit

Sub replacedemo()

dim i&,s$
dim myreg as Object
dim myMatches as Object,mymatch as object

'将内容赋值变量

s=range("g2").value

‘创建一个regexp类型对象,可用于调用处理正则表达式
'
set myReg= Createobject ("Vbscript.regexp") 

'获取正则表达式文本

myseg.pattern="(.*)[^学历规划师]:(\s+).*"

# 导出所有符合表达式的内容:

myReg.Global=true

# 应用execute方法执行表达式得到数组

set ymatches=myreg.execute(s)




# 将括号内的内容进行替换

$n 只输出对应的括号内的内容

cell(2,2)myreg.replace(s,"$1:$2")



#遍历matches里边所有符合表达式的内容

for each mymatche in mymatches
	
    cells(i,1)=myMatche.submatches(0)
cells(i,2)=myMatche.submatches(0)

i=i+1

next mymatc

end sub

 

  • 0
    点赞
  • 6
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值