【记录贴】抽签正则匹配

905588347 · 发表于 2022-11-24 12:18:09

.版本 2
.支持库 spec
.支持库 mysql

.计次循环首 (100, 签数)
ret ＝编码_Utf8到Ansi (网页_访问_对象 (“https://www.1212.com/lqzb/hdxlq/” ＋到文本 (签数) ＋ “.html”, , , , , , , , , , , , , , , , , , ))
正则.创建 (“(第\d+签[^<]*)<[^>]*>.*\n\r*(.*<?[a-z]*>?\s*.*)<b[a-z]>\s*<?[a-z]*>?签[\u4e00-\u9fa5]：<?/?[a-z]*>?<[a-z]+>\s*(.*)<[a-z]+>\s*(.*)<[a-z]+>”, ret, , , , )
签诗＝ “”
.计次循环首 (正则.取子匹配数量 (), i)
      子文本＝正则.取子匹配文本 (1, i, )
      .如果真 (i ＝ 1)
         签头＝子文本
      .如果真结束
      .如果真 (i ＝ 3 或 i ＝ 4)
         签诗＝签诗＋子文本＋字符 (10)
      .如果真结束
      .如果真 (i ＝ 2)
         解签＝子文本  ' ＋字符 (10) ＋ “仅供娱乐，切勿当真”
      .如果真结束

.计次循环尾 ()
调试输出 (签头)
调试输出 (error)
执行SQL语句 (Sql句柄, “INSERT INTO hdxlq(num,poem,sign,cre_time) VALUES('” ＋签头＋ “','” ＋签诗＋ “','” ＋解签＋ “',NOW())”)
取错误文本 (Sql句柄, error)

延迟 (100)
.计次循环尾 ()

称呼猎人1 · 发表于 2024-5-28 21:26:31

谢谢分享

噼里啪啦咻 · 发表于 2022-11-28 07:43:30

666666666666666

97134784 · 发表于 2022-11-27 21:42:20

学习正则

WSW120 · 发表于 2022-11-26 22:19:50

谢谢分享

和平软件 · 发表于 2022-11-26 09:54:34

666666666666

蓝河笑月 · 发表于 2022-11-25 07:41:28

感谢分享! 支持开源！

成神之日 · 发表于 2022-11-25 05:33:30

支持一下

905588347 · 发表于 2022-11-24 21:48:18

huxian 发表于 2022-11-24 19:14
这个是啥意思

一个正则

huxian · 发表于 2022-11-24 19:14:23

这个是啥意思

		自动登录	找回密码
密码			注册

[易语言纯源码] 【记录贴】抽签正则匹配

评分