滚动公告如何把常量改成远程链接

南栀哥哥

如题需要把常量文件改成远程的 内容都是一样的就是不知道咋改 有没有大佬帮忙动动手的



改成编辑框这样子！、附件如下：
滚动公告.e (963.25 KB, 下载次数: 5)

2023-10-1 15:57 上传

点击文件名下载附件


补充内容 (2023-10-1 16:01):
帮忙解决一下 后期直接开源！感谢

qq261583065

动手能力这么差
滚动公告.e (959.2 KB, 下载次数: 27)

2023-10-1 18:18 上传

点击文件名下载附件

南栀哥哥

有帮忙大佬没，

小杰哥哥

这里你看看 是不是你要的效果

南栀哥哥

小杰哥哥 发表于 2023-10-1 16:08
这里你看看 是不是你要的效果

不是这样子，这个都乱码了 ，还有就是链接也点不出来

sunsir

自己动手，丰衣足食

南栀哥哥

sunsir 发表于 2023-10-1 16:24
自己动手，丰衣足食

我可能丰不了衣足不了食了

qq261583065

好眼熟的源码

南栀哥哥

qq261583065 发表于 2023-10-1 16:33
好眼熟的源码

就是你的那个 想把它改一下  后期改了也会开源

qq261583065

源码就是根据你的提问写的,三行代码改一下就能用,
复制整个按钮事件给你了

  

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

变量名	类 型	静态	数组	备 注
临_公告数组	文本型		0
i	整数型
临_公告内容	文本型
临_公告地址	文本型
公告内容组	文本型		0
公告地址组	文本型		0
新公告	超级按钮
局_源码	文本型

如果 (按钮1.标题 ＝ “滚动展示” 或 按钮1.标题 ＝ “继续展示”)
停止滚动 ＝ 假
按钮1.标题 ＝ “停止展示”
按钮1.标题 ＝ “继续展示”
停止滚动 ＝ 真
如果真 (停止滚动 ＝ 真)
时钟1.时钟周期 ＝ 0
返回 ()
如果 (单选框1.选中 ＝ 真)
滚动方向 ＝ 1
滚动方向 ＝ 2
数组清零 (公告组件_数组)
公告条.宽度 ＝ 图片框1.宽度
图片框1.高度 ＝ 公告条.高度
公告条.左边 ＝ 0
公告条.顶边 ＝ 0
图片框1.可视 ＝ 真
' 临_公告数组 ＝ 分割文本 (#公告, #换行符, )
局_源码 ＝ UTF8到文本 (网页_访问_对象 (“https://doc.cloudreve.pro/”, , , , , , , , , , , , , , , , , , ))
临_公告数组 ＝ 分割文本 (子文本替换 (文本_取出中间文本 (局_源码, “

”, “[/list]”, , ), “<a”, “<”,="" ,="" 真),="" “”, )
计次循环首 (取数组成员数 (临_公告数组), i)
临_公告内容 ＝ 文本_取出中间文本 (临_公告数组 [i], “[url=]”, “< href=”, , )
临_公告地址 ＝ 文本_取出中间文本 (临_公告数组 [i], “< href=” ＋ #引号, #引号 ＋ “>”, , )
' 临_公告内容 ＝ 取文本中间 (临_公告数组 [i], 取文本长度 (“[/url][url=]”) ＋ 1, 寻找文本 (临_公告数组 [i], “[/url]”, , 假) － 取文本长度 (“[url=]”) － 1)
' 临_公告地址 ＝ 取文本中间 (临_公告数组 [i], 寻找文本 (临_公告数组 [i], #引号 ＋ “>”, , 假) ＋ 取文本长度 (#引号 ＋ “>”), 寻找文本 (临_公告数组 [i], “[/url]”, 寻找文本 (临_公告数组 [i], #引号 ＋ “>”, , 假), 假) － 寻找文本 (临_公告数组 [i], #引号 ＋ “>”, , 假) － 取文本长度 (#引号 ＋ “>”))
如果真 (临_公告内容 ≠ “” 且 临_公告地址 ≠ “”)
复制窗口组件 (公告条, 新公告)
如果 (取文本长度 (临_公告内容) ＞ 公告条.宽度 ÷ 6)
新公告.标题 ＝ 取文本左边 (临_公告内容, 取整 (公告条.宽度 ÷ 6) － 4) ＋ “...”
新公告.标题 ＝ 临_公告内容
新公告.宽度 ＝ 公告条.宽度
新公告.高度 ＝ 公告条.高度
如果 (滚动方向 ＝ 1)
新公告.顶边 ＝ (i － 1) × 公告条.高度
新公告.左边 ＝ 公告条.左边
新公告.左边 ＝ (i － 1) × 公告条.宽度
新公告.顶边 ＝ 公告条.顶边
新公告.通常背景色 ＝ 图片框1.背景颜色
新公告.点燃背景色 ＝ 图片框1.背景颜色
新公告.焦点背景色 ＝ 图片框1.背景颜色
新公告.提示文本 ＝ 临_公告内容
新公告.可视 ＝ 真
新公告.标记 ＝ 临_公告地址
事件转移 (新公告, 公告条)
加入成员 (公告组件_数组, 新公告)

计次循环尾 ()
初始高度 ＝ 公告条.高度
滚动间隔 ＝ 到整数 (编辑框1.内容) × 1000
时钟1.时钟周期 ＝ 滚动间隔




i支持库列表	支持库注释
iext2	扩展界面支持库二

.版本 2<br /> .支持库 iext2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 临_公告数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 临_公告内容, 文本型<br /> .局部变量 临_公告地址, 文本型<br /> .局部变量 公告内容组, 文本型, , "0"<br /> .局部变量 公告地址组, 文本型, , "0"<br /> .局部变量 新公告, 超级按钮<br /> .局部变量 局_源码, 文本型<br /> <br /> .如果 (按钮1.标题 ＝ “滚动展示” 或 按钮1.标题 ＝ “继续展示”)<br />     停止滚动 ＝ 假<br />     按钮1.标题 ＝ “停止展示”<br /> .否则<br />     按钮1.标题 ＝ “继续展示”<br />     停止滚动 ＝ 真<br /> .如果结束<br /> .如果真 (停止滚动 ＝ 真)<br />     时钟1.时钟周期 ＝ 0<br />     返回 ()<br /> .如果真结束<br /> .如果 (单选框1.选中 ＝ 真)<br />     滚动方向 ＝ 1<br /> .否则<br />     滚动方向 ＝ 2<br /> .如果结束<br /> 数组清零 (公告组件_数组)<br /> 公告条.宽度 ＝ 图片框1.宽度<br /> 图片框1.高度 ＝ 公告条.高度<br /> 公告条.左边 ＝ 0<br /> 公告条.顶边 ＝ 0<br /> 图片框1.可视 ＝ 真<br /> ' 临_公告数组 ＝ 分割文本 (#公告, #换行符, )<br /> 局_源码 ＝ UTF8到文本 (网页_访问_对象 (“https://doc.cloudreve.pro/”, , , , , , , , , , , , , , , , , , ))<br /> 临_公告数组 ＝ 分割文本 (子文本替换 (文本_取出中间文本 (局_源码, “<ul><br /> ”, “</ul>”, , ), “<a”, “<”,="" ,="" 真),="" “”, )<br /> .计次循环首 (取数组成员数 (临_公告数组), i)<br />     临_公告内容 ＝ 文本_取出中间文本 (临_公告数组 <i>, “[url=]”, “< href=”, , )<br />     临_公告地址 ＝ 文本_取出中间文本 (临_公告数组 <i>, “< href=” ＋ #引号, #引号 ＋ “>”, , )<br />     ' 临_公告内容 ＝ 取文本中间 (临_公告数组 <i>, 取文本长度 (“[/url][url=]”) ＋ 1, 寻找文本 (临_公告数组 <i>, “[/url]”, , 假) － 取文本长度 (“[url=]”) － 1)<br />     ' 临_公告地址 ＝ 取文本中间 (临_公告数组 <i>, 寻找文本 (临_公告数组 <i>, #引号 ＋ “>”, , 假) ＋ 取文本长度 (#引号 ＋ “>”), 寻找文本 (临_公告数组 <i>, “[/url]”, 寻找文本 (临_公告数组 <i>, #引号 ＋ “>”, , 假), 假) － 寻找文本 (临_公告数组 <i>, #引号 ＋ “>”, , 假) － 取文本长度 (#引号 ＋ “>”))<br /> <br /> <br />     .如果真 (临_公告内容 ≠ “” 且 临_公告地址 ≠ “”)<br />         复制窗口组件 (公告条, 新公告)<br />         .如果 (取文本长度 (临_公告内容) ＞ 公告条.宽度 ÷ 6)<br />             新公告.标题 ＝ 取文本左边 (临_公告内容, 取整 (公告条.宽度 ÷ 6) － 4) ＋ “...”<br />         .否则<br />             新公告.标题 ＝ 临_公告内容<br />         .如果结束<br />         新公告.宽度 ＝ 公告条.宽度<br />         新公告.高度 ＝ 公告条.高度<br />         .如果 (滚动方向 ＝ 1)<br />             新公告.顶边 ＝ (i － 1) × 公告条.高度<br />             新公告.左边 ＝ 公告条.左边<br />         .否则<br />             新公告.左边 ＝ (i － 1) × 公告条.宽度<br />             新公告.顶边 ＝ 公告条.顶边<br />         .如果结束<br />         新公告.通常背景色 ＝ 图片框1.背景颜色<br />         新公告.点燃背景色 ＝ 图片框1.背景颜色<br />         新公告.焦点背景色 ＝ 图片框1.背景颜色<br />         新公告.提示文本 ＝ 临_公告内容<br />         新公告.可视 ＝ 真<br />         新公告.标记 ＝ 临_公告地址<br />         事件转移 (新公告, 公告条)<br />         加入成员 (公告组件_数组, 新公告)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 初始高度 ＝ 公告条.高度<br /> 滚动间隔 ＝ 到整数 (编辑框1.内容) × 1000<br /> 时钟1.时钟周期 ＝ 滚动间隔