精易论坛

标题: 2行代码实现新浪短地址 [打印本页]

作者: danran 时间: 2020-3-28 00:08
标题: 2行代码实现新浪短地址
功能直接看图，用了精益模块

.版本 2
.子程序缩短地址, 文本型
.参数网站地址, 文本型
.局部变量 tmp, 文本型
.如果真 (取文本左边 (网站地址, 4) ≠ “http” 或取文本左边 (网站地址, 4) ≠ “HTTP”)
网站地址＝ “http://” ＋网站地址
.如果真结束
tmp ＝到文本 (网页_访问 (“https://service.weibo.com/share/share.php?url=” ＋网站地址＋ “&title=Hello”))
tmp ＝文本_取出中间文本 (tmp, “tag_text#引号>”, “</em>”)
返回 (tmp)

作者: lianzuo123 时间: 2020-3-28 00:44
第一行代码都写错了

作者: 北冥 时间: 2020-3-28 03:44
json.解析（网页_访问（“api地址”+网页地址））
json.取通用属性（“url”）

这个是新浪还是TX的忘了

作者: 十年約 时间: 2020-3-28 09:29
感谢楼主分享，支持一下

作者: danran 时间: 2020-3-28 10:04

lianzuo123 发表于 2020-3-28 00:44
第一行代码都写错了

哪里写错了

作者: 外星星人 时间: 2020-3-28 10:05
不错不错

作者: 如梦入秋o 时间: 2020-3-28 10:13
感谢大佬分享

作者: 792477624 时间: 2020-3-28 10:47
这个有部分些这样取不行！我以前试过。

作者: 梦幻武神坛 时间: 2020-3-28 12:58

danran 发表于 2020-3-28 10:04
哪里写错了

应该是用“且”而不是“或”

作者: danran 时间: 2020-3-28 15:11

zl99585834 发表于 2020-3-28 12:58
应该是用“且”而不是“或”

哦哦抱歉

作者: 浪使者 时间: 2020-3-28 15:25

.版本 2
.子程序缩短地址, 文本型
.参数网站地址, 文本型
.局部变量 tmp, 文本型
.如果真 (到小写 (取文本左边 (网站地址, 4)) ≠ “http”)
网站地址＝ “http://” ＋网站地址
.如果真结束
tmp ＝到文本 (网页_访问 (“https://service.weibo.com/share/share.php?url=” ＋网站地址＋ “&title=Hello”))
tmp ＝文本_取出中间文本 (tmp, “tag_text#引号>”, “</em>”)
返回 (tmp)

复制代码

作者: 552233 时间: 2020-3-28 17:28
感谢楼主分享，下载学习！

作者: hz2020 时间: 2020-3-28 19:30
好东西谢谢分享

作者: CryptoJS 时间: 2020-3-28 20:29

子程序名	返回值类型	公开	备注
缩短地址	文本型
参数名	类型	参考	可空	数组	备注
网站地址	文本型

变量名	类型	静态	数组	备注
tmp	文本型

如果真 (到小写 (取文本左边 (网站地址, 4)) ≠ “http”)

网站地址＝ “http://” ＋网站地址
tmp ＝到文本 (网页_访问 (“https://service.weibo.com/share/share.php?url=” ＋网站地址＋ “&title=Hello”))
tmp ＝文本_取出中间文本 (tmp, “tag_text” ＋ #引号＋ “>”, “”, , )
返回 (tmp)

引号也得分开

作者: danran 时间: 2020-3-28 21:19

lijinyu0617 发表于 2020-3-28 20:29
[e=2].版本 2

.子程序缩短地址, 文本型

大佬

作者: bianyuan456 时间: 2020-4-4 23:36
已经顶贴，感谢您对论坛的支持！

作者: Lulu520 时间: 2020-4-28 10:28
这个最近变卡了。。

欢迎光临精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4