求教一个正则的写法

yab8012

求教了，一个正则表达式，试了若干次，源文件在文档里面，主要取图片里的
用 <a href="([\s\S]*?)"[\s\S]*?">([\s\S]*?)</a>[\s\S]*?<a href="https://www.cqtieba.com/space-uid-[\s\S]*?.html" c="1">([\s\S]*?)</a>[\s\S]*?<em>[\s\S]*?</em>能取出除了最后一句的所有4个，再加最后一句的，就取出来只有3个，求教了


补充内容 (2025-8-4 16:44):
https://www.cqtieba.com/forum-2-1.html这个网站里面的，需要的是帖子网址，帖子名称，作者和回复者，谢谢大佬们

zainex

读取全部帖子的信息, 每个成员后面都加了注释来说明, 想要哪些信息, 自己选择即可:

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
地址	文本型
文本	文本型
正则	正则表达式
搜索结果	搜索结果		0
数	整数型
成员	文本型		8

地址 ＝ “https:/” ＋ “/www.cqti” ＋ “eba.com/forum-2-1.html”
文本 ＝ UTF8到文本 (HTTP读文件 (地址))
调试输出 (取文本长度 (文本))
正则.创建 (“tbody id=.[^>]+>.+?th class=[^>]+>.+?/a>.+? .a href=.(.+?). .+?t.>(.+?)./a.+?e>.+?f=.(.+?). .+?>(.+?)./a>./c.+?>([^>]+)./s.+?e>.+?f=.(.+?). .+?>(.+?)./a>./c.+?>([^>]+)./[sa]”, )
搜索结果 ＝ 正则.搜索全部 (文本)
调试输出 (取数组成员数 (搜索结果))
计次循环首 (取数组成员数 (搜索结果), 数)
成员 [1] ＝ 搜索结果 [数].取子匹配文本 (文本, 1, )  ' 地址
成员 [2] ＝ 搜索结果 [数].取子匹配文本 (文本, 2, )  ' 标题
成员 [3] ＝ 搜索结果 [数].取子匹配文本 (文本, 3, )  ' 楼主主页
成员 [4] ＝ 搜索结果 [数].取子匹配文本 (文本, 4, )  ' 楼主
成员 [5] ＝ 搜索结果 [数].取子匹配文本 (文本, 5, )  ' 楼主发帖时间
成员 [5] ＝ 子文本替换 (成员 [5], “&” ＋ “nbsp;”, “ ”, , , 真)
成员 [6] ＝ 搜索结果 [数].取子匹配文本 (文本, 6, )  ' 网友主页
成员 [7] ＝ 搜索结果 [数].取子匹配文本 (文本, 7, )  ' 网友
成员 [8] ＝ 搜索结果 [数].取子匹配文本 (文本, 8, )  ' 网友发帖时间
成员 [8] ＝ 子文本替换 (成员 [8], “&” ＋ “nbsp;”, “ ”, , , 真)
' 调试输出 (成员)
调试输出 (“------”)
调试输出 (成员 [1], 成员 [2], 成员 [5], 成员 [8])
调试输出 (成员 [4], 成员 [3], 成员 [7], 成员 [6])
计次循环尾 ()

i支持库列表	支持库注释
RegEx	正则表达式支持库
internet	互联网支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 RegEx<br /> .支持库 internet<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 地址, 文本型<br /> .局部变量 文本, 文本型<br /> .局部变量 正则, 正则表达式<br /> .局部变量 搜索结果, 搜索结果, , "0"<br /> .局部变量 数, 整数型<br /> .局部变量 成员, 文本型, , "8"<br /> <br /> 地址 ＝ “https:/” ＋ “/www.cqti” ＋ “eba.com/forum-2-1.html”<br /> 文本 ＝ UTF8到文本 (HTTP读文件 (地址))<br /> 调试输出 (取文本长度 (文本))<br /> <br /> 正则.创建 (“tbody id=.[^>]+>.+?th class=[^>]+>.+?/a>.+? .a href=.(.+?). .+?t.>(.+?)./a.+?e>.+?f=.(.+?). .+?>(.+?)./a>./c.+?>([^>]+)./s.+?e>.+?f=.(.+?). .+?>(.+?)./a>./c.+?>([^>]+)./[sa]”, )<br /> 搜索结果 ＝ 正则.搜索全部 (文本)<br /> 调试输出 (取数组成员数 (搜索结果))<br /> <br /> .计次循环首 (取数组成员数 (搜索结果), 数)<br />     成员 [1] ＝ 搜索结果 [数].取子匹配文本 (文本, 1, )  ' 地址<br />     成员 [2] ＝ 搜索结果 [数].取子匹配文本 (文本, 2, )  ' 标题<br />     成员 [3] ＝ 搜索结果 [数].取子匹配文本 (文本, 3, )  ' 楼主主页<br />     成员 [4] ＝ 搜索结果 [数].取子匹配文本 (文本, 4, )  ' 楼主<br />     成员 [5] ＝ 搜索结果 [数].取子匹配文本 (文本, 5, )  ' 楼主发帖时间<br />     成员 [5] ＝ 子文本替换 (成员 [5], “&” ＋ “nbsp;”, “ ”, , , 真)<br />     成员 [6] ＝ 搜索结果 [数].取子匹配文本 (文本, 6, )  ' 网友主页<br />     成员 [7] ＝ 搜索结果 [数].取子匹配文本 (文本, 7, )  ' 网友<br />     成员 [8] ＝ 搜索结果 [数].取子匹配文本 (文本, 8, )  ' 网友发帖时间<br />     成员 [8] ＝ 子文本替换 (成员 [8], “&” ＋ “nbsp;”, “ ”, , , 真)<br />     ' 调试输出 (成员)<br />     调试输出 (“------”)<br />     调试输出 (成员 [1], 成员 [2], 成员 [5], 成员 [8])<br />     调试输出 (成员 [4], 成员 [3], 成员 [7], 成员 [6])<br /> .计次循环尾 ()

只取用户帖, 将上面正则表达式开头的:

tbody id=.[^>]+>

改成:

tbody id=.n[^>]+>

只取置顶帖, 将表达式开头改为:

tbody id=.st[^>]+>

也就是插入 n 或是 st

Ruang

可以发TXT文件么

cunanhai

文本不发怎么测试?

zainex

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
文本	文本型
正则	正则表达式
搜索结果	搜索结果		0
数	整数型
成员	文本型		4

文本 ＝ #常量1
正则.创建 (“^\s*.a href=.(.+?). [^\n]+?t.>(.+?)./a>.+?>([^\n]+?)./a>./c.+?n>([^\n]+?)./s”, )
搜索结果 ＝ 正则.搜索全部 (文本)
计次循环首 (取数组成员数 (搜索结果), 数)
成员 [1] ＝ 搜索结果 [数].取子匹配文本 (文本, 1, )
成员 [2] ＝ 搜索结果 [数].取子匹配文本 (文本, 2, )
成员 [3] ＝ 搜索结果 [数].取子匹配文本 (文本, 3, )
成员 [4] ＝ 搜索结果 [数].取子匹配文本 (文本, 4, )
调试输出 (成员)
计次循环尾 ()

i支持库列表	支持库注释
RegEx	正则表达式支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 RegEx<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文本, 文本型<br /> .局部变量 正则, 正则表达式<br /> .局部变量 搜索结果, 搜索结果, , "0"<br /> .局部变量 数, 整数型<br /> .局部变量 成员, 文本型, , "4"<br /> <br /> 文本 ＝ #常量1<br /> 正则.创建 (“^\s*.a href=.(.+?). [^\n]+?t.>(.+?)./a>.+?>([^\n]+?)./a>./c.+?n>([^\n]+?)./s”, )<br /> 搜索结果 ＝ 正则.搜索全部 (文本)<br /> .计次循环首 (取数组成员数 (搜索结果), 数)<br />     成员 [1] ＝ 搜索结果 [数].取子匹配文本 (文本, 1, )<br />     成员 [2] ＝ 搜索结果 [数].取子匹配文本 (文本, 2, )<br />     成员 [3] ＝ 搜索结果 [数].取子匹配文本 (文本, 3, )<br />     成员 [4] ＝ 搜索结果 [数].取子匹配文本 (文本, 4, )<br />     调试输出 (成员)<br /> .计次循环尾 ()

例子.zip (1.7 KB, 下载次数: 2)

6 天前 上传

点击文件名下载附件

zainex

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
地址	文本型
文本	文本型
正则	正则表达式
搜索结果	搜索结果		0
数	整数型
成员	文本型		4

地址 ＝ “https:/” ＋ “/www.cqti” ＋ “eba.com/forum-2-1.html”
文本 ＝ UTF8到文本 (HTTP读文件 (地址))
正则.创建 (“tbody id=[^\n]+>.+?w.>.+?/a>.+?=.([^\n]+?). [^\n]+?>([^\n]+?)./a>.+?>([^\n]+?)./a>./c.+?>([^>]+?)./s”, )
搜索结果 ＝ 正则.搜索全部 (文本)
调试输出 (取数组成员数 (搜索结果))
计次循环首 (取数组成员数 (搜索结果), 数)
成员 [1] ＝ 搜索结果 [数].取子匹配文本 (文本, 1, )
成员 [2] ＝ 搜索结果 [数].取子匹配文本 (文本, 2, )
成员 [3] ＝ 搜索结果 [数].取子匹配文本 (文本, 3, )
成员 [4] ＝ 搜索结果 [数].取子匹配文本 (文本, 4, )
成员 [4] ＝ 子文本替换 (成员 [4], “&” ＋ “nbsp;”, “ ”, , , 真)
调试输出 (成员)
计次循环尾 ()

i支持库列表	支持库注释
RegEx	正则表达式支持库
internet	互联网支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 RegEx<br /> .支持库 internet<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 地址, 文本型<br /> .局部变量 文本, 文本型<br /> .局部变量 正则, 正则表达式<br /> .局部变量 搜索结果, 搜索结果, , "0"<br /> .局部变量 数, 整数型<br /> .局部变量 成员, 文本型, , "4"<br /> <br /> 地址 ＝ “https:/” ＋ “/www.cqti” ＋ “eba.com/forum-2-1.html”<br /> 文本 ＝ UTF8到文本 (HTTP读文件 (地址))<br /> 正则.创建 (“tbody id=[^\n]+>.+?w.>.+?/a>.+?=.([^\n]+?). [^\n]+?>([^\n]+?)./a>.+?>([^\n]+?)./a>./c.+?>([^>]+?)./s”, )<br /> 搜索结果 ＝ 正则.搜索全部 (文本)<br /> 调试输出 (取数组成员数 (搜索结果))<br /> .计次循环首 (取数组成员数 (搜索结果), 数)<br />     成员 [1] ＝ 搜索结果 [数].取子匹配文本 (文本, 1, )<br />     成员 [2] ＝ 搜索结果 [数].取子匹配文本 (文本, 2, )<br />     成员 [3] ＝ 搜索结果 [数].取子匹配文本 (文本, 3, )<br />     成员 [4] ＝ 搜索结果 [数].取子匹配文本 (文本, 4, )<br />     成员 [4] ＝ 子文本替换 (成员 [4], “&” ＋ “nbsp;”, “ ”, , , 真)<br />     调试输出 (成员)<br /> .计次循环尾 ()

yab8012

Ruang 发表于 2025-8-4 13:39
可以发TXT文件么

不好意思，文本挂了

yab8012

zainex 发表于 2025-8-4 15:09
[e=1].版本 2
.支持库 RegEx
.支持库 internet

大佬，用你的怎么调试不了，尴尬了
你能将成员4改成<a  c="1">9929658</a></cite>这个里面的9929658吗，写个例子，好吗，大佬

a605889003

通过看评论，都能学到好多知识