返回列表 发帖
jyswjjgdwtdtj

Rank: 5Rank: 5

帖子
672 
积分
797 
技术
35  
捐助
0  
注册时间
2023-2-9 
1楼 跳转到 » 正序看帖
打印
tT
发表于 2023-5-2 22:38 | 只看该作者

[问题求助] vbs正则 正则表达式内使用字串

在js里 可以用\1\2\3\4……来匹配到之前括号里的内容
比如
/(.)\1(.)\2/COPY
能匹配到xxyy 1122 gg11
vbs有没有此功能？
收藏 分享
你好

jyswjjgdwtdtj

Rank: 5Rank: 5

帖子
672 
积分
797 
技术
35  
捐助
0  
注册时间
2023-2-9 
10楼
发表于 2023-5-17 20:47 | 只看该作者
回复 7# bangyou


    你直接re.pattern="{.*?}"就ok了
你好

TOP

jyswjjgdwtdtj

Rank: 5Rank: 5

帖子
672 
积分
797 
技术
35  
捐助
0  
注册时间
2023-2-9 
9楼
发表于 2023-5-17 20:46 | 只看该作者
回复 7# bangyou


    中括号不用转义
你好

TOP

bangyou

Rank: 1

帖子
17 
积分
31 
技术
0  
捐助
0  
注册时间
2021-1-1 
8楼
发表于 2023-5-16 22:07 | 只看该作者
:victory:
百度搜不出来，我在站内爬楼找到了，原来vbs里是用[]转义的
http://www.bathome.net/viewthrea ... =vbs%2B%D5%FD%D4%F2

TOP

bangyou

Rank: 1

帖子
17 
积分
31 
技术
0  
捐助
0  
注册时间
2021-1-1 
7楼
发表于 2023-5-16 20:59 | 只看该作者
回复 2# czjt1234


请教下大神，vbs，要匹配的字符中有中括号，要用什么转义啊，如下，
clarityrl":[{"keyu97974646s46a46f4a654e"}],"status
patrn = "clarityrl"".*?),""status"
这样出来的是[{"keyu97974646s46a46f4a654e"}],,,

请问下，怎么出来，{"keyu97974646s46a46f4a654e"}

TOP

bangyou

Rank: 1

帖子
17 
积分
31 
技术
0  
捐助
0  
注册时间
2021-1-1 
6楼
发表于 2023-5-16 20:58 | 只看该作者
本帖最后由 bangyou 于 2023-5-16 21:00 编辑

请问下，vbs里怎么转义啊

TOP

jyswjjgdwtdtj

Rank: 5Rank: 5

帖子
672 
积分
797 
技术
35  
捐助
0  
注册时间
2023-2-9 
5楼
发表于 2023-5-3 09:56 | 只看该作者
回复 4# czjt1234


    demon打错了
你好

TOP

czjt1234

Rank: 6Rank: 6

帖子
1107 
积分
1620 
技术
115  
捐助
0  
注册时间
2010-4-30 
4楼
发表于 2023-5-3 06:33 | 只看该作者 
s = "domen.twxxyy"
 
Set oRegExp = New RegExp
oRegExp.Global = True
oRegExp.MultiLine = True
oRegExp.IgnoreCase = False
oRegExp.Pattern = "(.)\1(.)\2"
 
For Each oMatch In oRegExp.Execute(s)
    MsgBox oMatch
NextCOPY

QQ 20147578

TOP

czjt1234

Rank: 6Rank: 6

帖子
1107 
积分
1620 
技术
115  
捐助
0  
注册时间
2010-4-30 
3楼
发表于 2023-5-3 06:30 | 只看该作者
哦，搞错了，不是一回事

QQ 20147578

TOP

czjt1234

Rank: 6Rank: 6

帖子
1107 
积分
1620 
技术
115  
捐助
0  
注册时间
2010-4-30 
2楼
发表于 2023-5-3 06:26 | 只看该作者 
Dim oRegExp, s
 
s = "domen.tw"
 
Set oRegExp = New RegExp
oRegExp.Global = True
oRegExp.MultiLine = True
oRegExp.IgnoreCase = False
oRegExp.Pattern = "(d)(o)(m)(e)(n.tw)"
MsgBox oRegExp.Replace(s, "Demon.tw")    'Demon.tw
MsgBox oRegExp.Replace(s, "D$4$3$2$5")   'Demon.twCOPY

QQ 20147578

TOP

返回列表