新浪短网址生成易语言源码

新浪短网址生成易语言源码

.版本 2
.支持库 RegEx
.支持库 edroptarget
.支持库 iext

.程序集 窗口程序集_启动窗口
.程序集变量 url, 文本型, , "0"
.程序集变量 数量, 整数型
.程序集变量 正则, 正则表达式
.程序集变量 启动时间, 整数型
.程序集变量 运行时间, 整数型
.程序集变量 头, 文本型, , , 本源码来自三叶资源网(www.sanye.cx)

.子程序 __启动窗口_创建完毕

拖放对象1.注册拖放控件 (取窗口句柄 ())
网址 ＝ “http://api.t.sina.com.cn/short_url/shorten.json?source=3271760578&url_long=”

.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型

编辑框1.内容 ＝ “”
编辑框2.内容 ＝ “”
编辑框1.加入文本 (到文本 (读入文件 (接收到的文件路径)) ＋ #换行符)
url ＝ 分割文本 (编辑框1.内容, #换行符, )
数量 ＝ 取数组成员数 (url)
透明标签1.标题 ＝ “总链接数量：” ＋ 到文本 (数量)

.子程序 转换
.局部变量 i, 整数型

.如果真 (数量 ＝ 0)
    编辑框2.加入文本 (到文本 (网页_访问 (网址 ＋ 头 ＋ 编辑框1.内容)))
.如果真结束
.计次循环首 (数量, i)
    编辑框2.加入文本 (到文本 (网页_访问 (网址 ＋ 头 ＋ url [i], , , , , , , , , )))
.计次循环尾 ()


.子程序 正则开始
.局部变量 结果, 搜索结果, , "0"
.局部变量 n, 整数型

正则.创建 (#正则语句, 假)
结果 ＝ 正则.搜索全部 (编辑框2.内容)
.计次循环首 (取数组成员数 (结果), n)
    编辑框3.加入文本 (结果 [n].取子匹配文本 (编辑框2.内容, 1, ) ＋ #换行符)
.计次循环尾 ()


.子程序 时间计算

.如果真 (运行时间 ÷ 1000 ≥ 60)
    透明标签2.标题 ＝ “总用时：” ＋ 到文本 (运行时间 ÷ 1000) ＋ “分”
.如果真结束
.如果真 (运行时间 ÷ 1000 ≥ 3600)
    透明标签2.标题 ＝ “总用时：” ＋ 到文本 (运行时间 ÷ 1000) ＋ “时”
.如果真结束
透明标签2.标题 ＝ “总用时：” ＋ 到文本 (运行时间 ÷ 1000) ＋ “秒”




.子程序 _按钮2_被单击, , ,  本源码来自三叶资源网(www.sanye.cx)

置剪辑板文本 (编辑框3.内容)

.子程序 _按钮4_被单击

头 ＝ “http://”
启动时间 ＝ 取启动时间 ()
转换 ()
正则开始 ()
运行时间 ＝ 取启动时间 () － 启动时间
时间计算 ()


.子程序 _按钮5_被单击

头 ＝ “”
启动时间 ＝ 取启动时间 ()
转换 ()
正则开始 ()
运行时间 ＝ 取启动时间 () － 启动时间
时间计算 ()


.子程序 _按钮1_被单击

编辑框1.内容 ＝ “”
编辑框2.内容 ＝ “”
编辑框3.内容 ＝ “”

.子程序 _按钮3_被单击

提示框 (#使用说明)
本源码来自三叶资源网(www.sanye.cx)

@樱花下の诅咒