生成泛链接问题-本人小白，求助大佬

zainex

你要实现的肯定不是上面那种在固定位置随机生成链接的功能，否则也不会问了一天的大语言模型，也没什么结果。
你要实现的应该是那种可以自己设置规则来随机生成链接的功能，简单的说，就跟写代码一样，写一个规则告诉它，它就给你生成一个链接出来。
要实现这个的功能，你可以按照自制编程语言的做法来干，也就是词法分析、语法分析、、、等等。
但你这个功能其实还算简单，因此只需涉及分词即可：

  

子程序名	返回值类型	公开	备 注
生成链接	文本型
参数名	类 型	参考	可空	数组	备 注
规则文本	文本型
当前域名	文本型
随机地区文本	文本型

变量名	类 型	静态	数组	备 注
正则	正则表达式
搜索结果	搜索结果		0
数	整数型
域名	正则表达式
大写字母	正则表达式
小写字母	正则表达式
数字	正则表达式
日期	正则表达式
随机地区	正则表达式
成员	文本型
结果	文本型
数量	整数型
时间	日期时间型

正则.创建 (“\{域名\}|\{大写字母=[0-9]+\}|\{小写字母=[0-9]+\}|\{数字=[0-9]+\}|\{日期\}|\{随机地区\}|.”, )
域名.创建 (“\{域名\}”, )
大写字母.创建 (“\{大写字母=([0-9]+)\}”, )
小写字母.创建 (“\{小写字母=([0-9]+)\}”, )
数字.创建 (“\{数字=([0-9]+)\}”, )
日期.创建 (“\{日期\}”, )
随机地区.创建 (“\{随机地区\}”, )
搜索结果 ＝ 正则.搜索全部 (规则文本)
置随机数种子 ()
计次循环首 (取数组成员数 (搜索结果), 数)
成员 ＝ 搜索结果 [数].取匹配文本 (规则文本, )
判断 (域名.匹配 (成员))
结果 ＝ 结果 ＋ 当前域名
判断 (大写字母.匹配 (成员))
数量 ＝ 到整数 (大写字母.搜索 (成员, 1, ).取子匹配文本 (成员, 1, ))
计次循环首 (数量, )
结果 ＝ 结果 ＋ 字符 (取随机数 (取代码 (“A”, ), 取代码 (“Z”, )))
计次循环尾 ()
判断 (小写字母.匹配 (成员))
数量 ＝ 到整数 (小写字母.搜索 (成员, 1, ).取子匹配文本 (成员, 1, ))
计次循环首 (数量, )
结果 ＝ 结果 ＋ 字符 (取随机数 (取代码 (“a”, ), 取代码 (“z”, )))
计次循环尾 ()
判断 (数字.匹配 (成员))
数量 ＝ 到整数 (数字.搜索 (成员, 1, ).取子匹配文本 (成员, 1, ))
计次循环首 (数量, )
结果 ＝ 结果 ＋ 字符 (取随机数 (取代码 (“0”, ), 取代码 (“9”, )))
计次循环尾 ()
判断 (日期.匹配 (成员))
时间 ＝ 取现行时间 ()
结果 ＝ 结果 ＋ 格式化文本 (“%d%.2d%.2d”, 取年份 (时间), 取月份 (时间), 取日 (时间))
判断 (随机地区.匹配 (成员))
结果 ＝ 结果 ＋ 随机地区文本 [取随机数 (1, 取数组成员数 (随机地区文本))]
结果 ＝ 结果 ＋ 成员

计次循环尾 ()
返回 (结果)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
域名文本	文本型		0
规则文本	文本型
数	整数型
结果	文本型
单次数量	整数型
随机地区文本	文本型		0
文件名	文本型
节点	节点
链接	文本型

域名文本 ＝ 分割文本 (编辑框1.内容, #换行符, )
如果真 (取数组成员数 (域名文本) ＝ 0)
返回 ()
随机地区文本 ＝ 分割文本 ( #常量1, #换行符, )
规则文本 ＝ 编辑框2.内容
单次数量 ＝ 到整数 (编辑框3.内容)
计次循环首 (取数组成员数 (域名文本), 数)
计次循环首 (单次数量, )
' 强制去重复，可能导致死循环，不建议使用
' 循环判断首（）
' 链接 ＝ 生成链接 (规则文本, 域名文本 [数], 随机地区文本)
' 循环判断尾 (节点.加入属性 (链接, 0) ＝ 假)
链接 ＝ 生成链接 (规则文本, 域名文本 [数], 随机地区文本)
结果 ＝ 结果 ＋ 链接 ＋ #换行符
计次循环尾 ()
计次循环尾 ()
文件名 ＝ 取临时文件名 (取运行目录 ())
文件名 ＝ 取文本左边 (文件名, 取文本长度 (文件名) － 3) ＋ “txt”
调试输出 (文件名)
如果 (写到文件 (文件名, 到字节集 (结果)))
信息框 (文件名, #信息图标, “已保存至：”, )
信息框 (“保存失败！”, #错误图标, “提示：”, )
调试输出 (结果)

i支持库列表	支持库注释
RegEx	正则表达式支持库
eAPI	应用接口支持库
EDataStructure	数据结构支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 RegEx<br /> .支持库 eAPI<br /> .支持库 EDataStructure<br /> .支持库 spec<br /> <br /> .子程序 生成链接, 文本型<br /> .参数 规则文本, 文本型<br /> .参数 当前域名, 文本型<br /> .参数 随机地区文本, 文本型, 数组<br /> .局部变量 正则, 正则表达式<br /> .局部变量 搜索结果, 搜索结果, , "0"<br /> .局部变量 数, 整数型<br /> .局部变量 域名, 正则表达式<br /> .局部变量 大写字母, 正则表达式<br /> .局部变量 小写字母, 正则表达式<br /> .局部变量 数字, 正则表达式<br /> .局部变量 日期, 正则表达式<br /> .局部变量 随机地区, 正则表达式<br /> .局部变量 成员, 文本型<br /> .局部变量 结果, 文本型<br /> .局部变量 数量, 整数型<br /> .局部变量 时间, 日期时间型<br /> <br /> 正则.创建 (“\{域名\}|\{大写字母=[0-9]+\}|\{小写字母=[0-9]+\}|\{数字=[0-9]+\}|\{日期\}|\{随机地区\}|.”, )<br /> 域名.创建 (“\{域名\}”, )<br /> 大写字母.创建 (“\{大写字母=([0-9]+)\}”, )<br /> 小写字母.创建 (“\{小写字母=([0-9]+)\}”, )<br /> 数字.创建 (“\{数字=([0-9]+)\}”, )<br /> 日期.创建 (“\{日期\}”, )<br /> 随机地区.创建 (“\{随机地区\}”, )<br /> 搜索结果 ＝ 正则.搜索全部 (规则文本)<br /> 置随机数种子 ()<br /> .计次循环首 (取数组成员数 (搜索结果), 数)<br />     成员 ＝ 搜索结果 [数].取匹配文本 (规则文本, )<br />     .判断开始 (域名.匹配 (成员))<br />         结果 ＝ 结果 ＋ 当前域名<br />     .判断 (大写字母.匹配 (成员))<br />         数量 ＝ 到整数 (大写字母.搜索 (成员, 1, ).取子匹配文本 (成员, 1, ))<br />         .计次循环首 (数量, )<br />             结果 ＝ 结果 ＋ 字符 (取随机数 (取代码 (“A”, ), 取代码 (“Z”, )))<br />         .计次循环尾 ()<br />     .判断 (小写字母.匹配 (成员))<br />         数量 ＝ 到整数 (小写字母.搜索 (成员, 1, ).取子匹配文本 (成员, 1, ))<br />         .计次循环首 (数量, )<br />             结果 ＝ 结果 ＋ 字符 (取随机数 (取代码 (“a”, ), 取代码 (“z”, )))<br />         .计次循环尾 ()<br />     .判断 (数字.匹配 (成员))<br />         数量 ＝ 到整数 (数字.搜索 (成员, 1, ).取子匹配文本 (成员, 1, ))<br />         .计次循环首 (数量, )<br />             结果 ＝ 结果 ＋ 字符 (取随机数 (取代码 (“0”, ), 取代码 (“9”, )))<br />         .计次循环尾 ()<br />     .判断 (日期.匹配 (成员))<br />         时间 ＝ 取现行时间 ()<br />         结果 ＝ 结果 ＋ 格式化文本 (“%d%.2d%.2d”, 取年份 (时间), 取月份 (时间), 取日 (时间))<br />     .判断 (随机地区.匹配 (成员))<br />         结果 ＝ 结果 ＋ 随机地区文本 [取随机数 (1, 取数组成员数 (随机地区文本))]<br />     .默认<br />         结果 ＝ 结果 ＋ 成员<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 返回 (结果)<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 域名文本, 文本型, , "0"<br /> .局部变量 规则文本, 文本型<br /> .局部变量 数, 整数型<br /> .局部变量 结果, 文本型<br /> .局部变量 单次数量, 整数型<br /> .局部变量 随机地区文本, 文本型, , "0"<br /> .局部变量 文件名, 文本型<br /> .局部变量 节点, 节点<br /> .局部变量 链接, 文本型<br /> <br /> 域名文本 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> .如果真 (取数组成员数 (域名文本) ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> 随机地区文本 ＝ 分割文本 (#常量1, #换行符, )<br /> 规则文本 ＝ 编辑框2.内容<br /> 单次数量 ＝ 到整数 (编辑框3.内容)<br /> .计次循环首 (取数组成员数 (域名文本), 数)<br />     .计次循环首 (单次数量, )<br />         ' 强制去重复，可能导致死循环，不建议使用<br />         ' 循环判断首（）<br />         ' 链接 ＝ 生成链接 (规则文本, 域名文本 [数], 随机地区文本)<br />         ' 循环判断尾 (节点.加入属性 (链接, 0) ＝ 假)<br />         链接 ＝ 生成链接 (规则文本, 域名文本 [数], 随机地区文本)<br />         结果 ＝ 结果 ＋ 链接 ＋ #换行符<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 文件名 ＝ 取临时文件名 (取运行目录 ())<br /> 文件名 ＝ 取文本左边 (文件名, 取文本长度 (文件名) － 3) ＋ “txt”<br /> 调试输出 (文件名)<br /> .如果 (写到文件 (文件名, 到字节集 (结果)))<br />     信息框 (文件名, #信息图标, “已保存至：”, )<br /> .否则<br />     信息框 (“保存失败！”, #错误图标, “提示：”, )<br /> .如果结束<br /> 调试输出 (结果)

上面的按钮被单击事件会将结果保存到一个随机名称的txt文件中。
如果你想一个域名一个文件的保存，可以将这个事件改为如下：

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
域名文本	文本型		0
规则文本	文本型
数	整数型
结果	文本型
单次数量	整数型
随机地区文本	文本型		0
文件名	文本型
链接	文本型

域名文本 ＝ 分割文本 (编辑框1.内容, #换行符, )
如果真 (取数组成员数 (域名文本) ＝ 0)
返回 ()
随机地区文本 ＝ 分割文本 ( #常量1, #换行符, )
规则文本 ＝ 编辑框2.内容
单次数量 ＝ 到整数 (编辑框3.内容)
计次循环首 (取数组成员数 (域名文本), 数)
结果 ＝ “”
文件名 ＝ 取运行目录 () ＋ “\” ＋ 域名文本 [数] ＋ “.txt”
计次循环首 (单次数量, )
链接 ＝ 生成链接 (规则文本, 域名文本 [数], 随机地区文本)
结果 ＝ 结果 ＋ 链接 ＋ #换行符
计次循环尾 ()
写到文件 (文件名, 到字节集 (结果))
调试输出 (文件名)
计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 域名文本, 文本型, , "0"<br /> .局部变量 规则文本, 文本型<br /> .局部变量 数, 整数型<br /> .局部变量 结果, 文本型<br /> .局部变量 单次数量, 整数型<br /> .局部变量 随机地区文本, 文本型, , "0"<br /> .局部变量 文件名, 文本型<br /> .局部变量 链接, 文本型<br /> <br /> 域名文本 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> .如果真 (取数组成员数 (域名文本) ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> 随机地区文本 ＝ 分割文本 (#常量1, #换行符, )<br /> 规则文本 ＝ 编辑框2.内容<br /> 单次数量 ＝ 到整数 (编辑框3.内容)<br /> .计次循环首 (取数组成员数 (域名文本), 数)<br />     结果 ＝ “”<br />     文件名 ＝ 取运行目录 () ＋ “\” ＋ 域名文本 [数] ＋ “.txt”<br />     .计次循环首 (单次数量, )<br />         链接 ＝ 生成链接 (规则文本, 域名文本 [数], 随机地区文本)<br />         结果 ＝ 结果 ＋ 链接 ＋ #换行符<br />     .计次循环尾 ()<br />     写到文件 (文件名, 到字节集 (结果))<br />     调试输出 (文件名)<br /> .计次循环尾 ()

完整代码.zip (5.71 KB, 下载次数: 0)

7 天前 上传

点击文件名下载附件

卡夫卡的熊

zainex 发表于 2025-5-19 23:52
效果，跟写代码一样：

大佬 {大小写字母=5} 没有效果

卡夫卡的熊

zainex 发表于 2025-5-19 23:52
效果，跟写代码一样：

大佬随机  大小写字母 没有添加进去   

卡夫卡的熊

zainex 发表于 2025-5-19 23:52
效果，跟写代码一样：

随机大小写   这个功能没有 添加 。。其他完美

zainex

添加其它功能很容易实现：

新增功能.zip (5.24 KB, 下载次数: 2)

6 天前 上传

点击文件名下载附件

haoren1212

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
域名数组	文本型		0
i	整数型
x	整数型
局_临时文本	文本型
局_返回文本	文本型

域名数组 ＝ 分割文本 (编辑框1.内容, #换行符, )
计次循环首 (取数组成员数 (域名数组), i)
计次循环首 (到整数 (编辑框3.内容), x)
局_临时文本 ＝ 取随机链接2 (域名数组 [i])
局_返回文本 ＝ 局_返回文本 ＋ 局_临时文本 ＋ #换行符
计次循环尾 ()
写到文件 (取运行目录 () ＋ “\” ＋ 域名数组 [i] ＋ “.txt”, 到字节集 (局_返回文本))
局_返回文本 ＝ “”
计次循环尾 ()

子程序名	返回值类型	公开	备 注
取随机链接2	文本型
参数名	类 型	参考	可空	数组	备 注
域名	文本型

变量名	类 型	静态	数组	备 注
正则	正则表达式类
样板文本	文本型
临时文本1	文本型
临时文本2	文本型
临时文本3	文本型
字符类型	整数型
字符数量	整数型
i	整数型
地区数组	文本型		0

样板文本 ＝ 编辑框2.内容
地区数组 ＝ 分割文本 ( #常量1, #换行符, )
正则.创建 (“{(.*?)}”, 样板文本, , , , )
计次循环首 (正则.取匹配数量 (), i)
临时文本1 ＝ 正则.取子匹配文本 (i, 1, )
如果真 (寻找文本 (临时文本1, “=”, , 假) ≠ -1)
临时文本2 ＝ 文本_取左边 (临时文本1, “=”, , )
字符数量 ＝ 到整数 (文本_取右边 (临时文本1, “=”, , ))
如果真 (临时文本2 ＝ “数字”)
字符类型 ＝ 1
如果真 (临时文本2 ＝ “小写字母”)
字符类型 ＝ 2
如果真 (临时文本2 ＝ “大写字母”)
字符类型 ＝ 4
临时文本3 ＝ 文本_取随机字符 (字符数量, 字符类型)
如果真 (临时文本1 ＝ “域名”)
临时文本3 ＝ 域名
如果真 (临时文本1 ＝ “日期”)
临时文本3 ＝ 时间_到文本 (, 3, 1, )
如果真 (临时文本1 ＝ “随机地区”)
临时文本3 ＝ 地区数组 [汇编_取随机数 (1, 取数组成员数 (地区数组))]
样板文本 ＝ 文本_替换 (样板文本, 1, , , “{” ＋ 临时文本1 ＋ “}”, 临时文本3, , , , , , , , )
计次循环尾 ()
返回 (样板文本)

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 域名数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 x, 整数型<br /> .局部变量 局_临时文本, 文本型<br /> .局部变量 局_返回文本, 文本型<br /> <br /> 域名数组 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (域名数组), i)<br />     .计次循环首 (到整数 (编辑框3.内容), x)<br />         局_临时文本 ＝ 取随机链接2 (域名数组 <i>)<br />         局_返回文本 ＝ 局_返回文本 ＋ 局_临时文本 ＋ #换行符<br />     .计次循环尾 ()<br />     写到文件 (取运行目录 () ＋ “\” ＋ 域名数组 <i> ＋ “.txt”, 到字节集 (局_返回文本))<br />     局_返回文本 ＝ “”<br /> .计次循环尾 ()<br /> <br /> .子程序 取随机链接2, 文本型<br /> .参数 域名, 文本型<br /> .局部变量 正则, 正则表达式类<br /> .局部变量 样板文本, 文本型<br /> .局部变量 临时文本1, 文本型<br /> .局部变量 临时文本2, 文本型<br /> .局部变量 临时文本3, 文本型<br /> .局部变量 字符类型, 整数型<br /> .局部变量 字符数量, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 地区数组, 文本型, , "0"<br /> <br /> 样板文本 ＝ 编辑框2.内容<br /> 地区数组 ＝ 分割文本 (#常量1, #换行符, )<br /> 正则.创建 (“{(.*?)}”, 样板文本, , , , )<br /> .计次循环首 (正则.取匹配数量 (), i)<br />     临时文本1 ＝ 正则.取子匹配文本 (i, 1, )<br />     .如果真 (寻找文本 (临时文本1, “=”, , 假) ≠ -1)<br />         临时文本2 ＝ 文本_取左边 (临时文本1, “=”, , )<br />         字符数量 ＝ 到整数 (文本_取右边 (临时文本1, “=”, , ))<br />         .如果真 (临时文本2 ＝ “数字”)<br />             字符类型 ＝ 1<br />         .如果真结束<br />         .如果真 (临时文本2 ＝ “小写字母”)<br />             字符类型 ＝ 2<br />         .如果真结束<br />         .如果真 (临时文本2 ＝ “大写字母”)<br />             字符类型 ＝ 4<br />         .如果真结束<br />         临时文本3 ＝ 文本_取随机字符 (字符数量, 字符类型)<br />     .如果真结束<br />     .如果真 (临时文本1 ＝ “域名”)<br />         临时文本3 ＝ 域名<br />     .如果真结束<br />     .如果真 (临时文本1 ＝ “日期”)<br />         临时文本3 ＝ 时间_到文本 (, 3, 1, )<br />     .如果真结束<br />     .如果真 (临时文本1 ＝ “随机地区”)<br />         临时文本3 ＝ 地区数组 [汇编_取随机数 (1, 取数组成员数 (地区数组))]<br />     .如果真结束<br />     样板文本 ＝ 文本_替换 (样板文本, 1, , , “{” ＋ 临时文本1 ＋ “}”, 临时文本3, , , , , , , , )<br /> .计次循环尾 ()<br /> 返回 (样板文本)