2行代码实现新浪短地址

danran

功能直接看图，用了精益模块


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

Lulu520

这个最近变卡了。。

bianyuan456

已经顶贴，感谢您对论坛的支持！

danran

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

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

大佬

CryptoJS

  

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

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

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

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

引号也得分开

hz2020

好东西谢谢分享

552233

感谢楼主分享，下载学习！

浪使者

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

复制代码

danran

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

哦哦抱歉

梦幻武神坛

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

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