问个正则表达式

2009-09-29 12:04:29 110 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

[GXYCTF2019]BabyUpload1 -- .htaccess文件解析与蚁剑实战指南本文深入解析了[GXYCTF2019]BabyUpload1文件上传漏洞的实战利用。通过绕过后缀名与内容检测，上传包含PHP代码的.jpg文件，并利用.htaccess文件强制服务器将其解析为PHP脚本。文章详细介绍了.htaccess的原理、构造方法、Content-Type绕过技巧，并演示了如何使用中国蚁剑连接Webshell获取Flag，为Web安全学习提供了完整实战指南。阅读详情

Option Explicit



Private Sub Command1_Click()

    Dim data$

    data = "<a>http://www.baidu.com><span class=simple>s1</span></a>" & vbCrLf & _

           "<a>http://www.sina.com><span class=simple>t2</span></a>" & vbCrLf & _

           "<a>http://wx.txes.com><span class=simple>tr0</span></a>"

    

    Dim reg As Object

    Set reg = CreateObject("vbscript.regexp")

    reg.Global = True

    reg.ignorecase = True

    reg.Pattern = "<a>.*><span class=simple>"

    

    Dim matches

    Set matches = reg.execute(data)

    

    Dim match

    For Each match In matches

        Call MsgBox(match.Value)

    Next

End Sub

请问上面如何取出特定的网址啊，我这样的直接显示整个字符串了，现在的做法是取出来再用字符串函数处理下，比较麻烦，我觉得可以一步到位的，各位帮帮忙，谢谢！

...全文

采购订单定价策略超详细 ‘需求’字段里填写的是一个例程编号（例程是一段判断程序），如果我们在需求中维护了例程编号，那只有这个例程条件被满足时，这个条件表才会被系统自动读取。一部分的条件表只有在凭证项目满足一定的条件时才会被读取。 ‘排斥的’字段如果别勾中的话，那表明如果这个条件表被系统成功读取到数据后，系统将停止这个存取顺序的执行，否则，系统将继续执行下去。注意：a、如果我们给某个条件类型设定了有效期的话，那我们必须给这个条件类型分配一个存取顺序。 b、不能给一个抬头条件分配存取顺序。是... 阅读详情

无·法

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

king06 2009-09-30

打赏
举报

[Quote=引用 5 楼 lsftest 的回复:]
晕，csdn怎么老是喜欢帮人加空格。。4楼的pattern最前面也是没有空格的。
[/Quote]
O(∩_∩)O哈哈~，顺便学习一下~

s11ss 2009-09-30

打赏
举报

不可以，因为?的作用是指定匹配是非贪婪的，就是尽量少的匹配，而不是默认的尽量多的匹配（会匹配到行尾）[Quote=引用 8 楼 sysdzw 的回复:]
引用 4 楼 lsftest 的回复:
Dim myRegExp
Set myRegExp = New RegExp
myRegExp.Pattern = " <a>(.*?)>"

谢谢各位，不过上面的这个去掉问号也是可以的吧？
[/Quote]

无·法 2009-09-30

打赏
举报

[Quote=引用 4 楼 lsftest 的回复:]
Dim myRegExp
Set myRegExp = New RegExp
myRegExp.Pattern = " <a>(.*?)>"
[/Quote]

谢谢各位，不过上面的这个去掉问号也是可以的吧？

s11ss 2009-09-29

打赏
举报

[Quote=引用 4 楼 lsftest 的回复:]
Dim myRegExp
Set myRegExp = New RegExp
myRegExp.Pattern = " <a>(.*?)>"
[/Quote]
study

lsftest 2009-09-29

打赏
举报

晕，csdn怎么老是喜欢帮人加空格。。4楼的pattern最前面也是没有空格的。

lsftest 2009-09-29

打赏
举报

Dim myRegExp
Set myRegExp = New RegExp
myRegExp.Pattern = "<a>(.*?)>"

s11ss 2009-09-29

打赏
举报

reg.Pattern = "<a>([^>]+)>"
'第一个引号后面没有空格

s11ss 2009-09-29

打赏
举报

Option Explicit

Private Sub Command1_Click()
Dim data$
data = "<a>http://www.baidu.com>s1</a>" & vbCrLf & _
"<a>http://www.sina.com>t2</a>" & vbCrLf & _
"<a>http://wx.txes.com>tr0</a>"

Dim reg As Object
Set reg = CreateObject("vbscript.regexp")
reg.Global = True
reg.ignorecase = True
reg.Pattern = "<a>([^>]+)>"

Dim matches
Set matches = reg.execute(data)

Dim match
For Each match In matches
Call MsgBox(match.submatches(0))
Next
End Sub

帝企鹅已被占用 2009-09-29

打赏
举报

应该没有，不然他不会花时间写这些
http://www.vbforums.com/showthread.php?t=342995

问个正则表达式

相关推荐