简单,稍后为你写个源码
版本 2
支持库 RegEx
表达式创建 (编辑框1内容, ) 编辑框1的内容为 src="()">
搜索结果 = 表达式搜索全部 (网页文本)
想要的结果 = “”
计次循环首 (取数组成员数 (搜索结果), 计次)
想要的结果 = 想要的结果 + 搜索结果 [计次]取子匹配文本 (网页文本, 1, ) + #换行符
计次循环尾 ()
不过你提供的开头和结尾有点草率,不知道能不能用。。。
用第一个函数就行了,修改一下
Function GetImgSrc(str) '取得img 标签内容
Dim tmp, objRegExp, Matches, Match
Set objRegExp = New Regexp
objRegExpIgnoreCase = True '忽略大小写
objRegExpGlobal = True '全文搜索 !关键!
objRegExpPattern = "<img [^>]\bsrc=(['""])([^'""\x20]+)\1 [^>]>"
Set Matches = objRegExpExecute(str)
For Each Match In Matches
tmp = tmp & MatchSubMatches(1) & vbCrLf
Next
GetImgSrc = tmp
End Function
以上就是关于易语言正则表达式取网络图片图片地址全部的内容,包括:易语言正则表达式取网络图片图片地址、关于HTML取图片地址的正则表达式、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)