易语言使用超文本显示新浪天气预报的代码

常量数据表

.版本 2
.常量 v1, "<文本长度: 24>", , <p class="inx_w_city_c">
.常量 K, "<文本长度: 8>", , url=http
.常量 J, "<文本长度: 47>", , <a href="http://share.sina.cn/callback?content=
.常量 v2, "<文本长度: 5>", , </p>

利用超文本显示新浪天气预报

此功能需要加载精易模块5.6

.版本 2
.支持库 iext
.程序集 窗口程序集1
.程序集变量 wangzhi, 文本型
.程序集变量 as, 文本型
.子程序 __启动窗口_创建完毕
获取天气 ()
.子程序 获取天气
.局部变量 B2, 文本型
.局部变量 C2, 文本型
.局部变量 sj, 文本型
.局部变量 ydm, 文本型
wangzhi ＝ “http://weather1.sina.cn/?ttp=n13&pos=108&vt=4”
ydm ＝ 到文本 (网页_访问 (wangzhi))
.如果 (取文本长度 (到文本 (取小时 (取现行时间 ()))) ＝ 1)
  B2 ＝ “0” ＋ 到文本 (取小时 (取现行时间 ()))
.否则
  B2 ＝ 到文本 (取小时 (取现行时间 ()))
.如果结束
.如果 (取文本长度 (到文本 (取分钟 (取现行时间 ()))) ＝ 1)
  C2 ＝ “:0” ＋ 到文本 (取分钟 (取现行时间 ()))
.否则
  C2 ＝ “:” ＋ 到文本 (取分钟 (取现行时间 ()))
.如果结束
sj ＝ B2 ＋ C2
透明标签_定位.标题 ＝ 到文本 (编码_URL解码 (文本_取出中间文本 (ydm, #v1, #v2), 真)) ＋ “ ” ＋ sj
as ＝ 到文本 (编码_URL解码 (ydm, 真))
as ＝ 文本_替换 (as, , , , “+”, “ ”, “-”, “ ”)
透明标签_天气情况.标题 ＝ 文本_取出中间文本 (as, #J, #K)

运行结果：

总结

以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对我们的支持。如果你想了解更多相关内容请查看下面相关链接

赞 (0)

相关推荐

  • 易语言QQ群发支持图片文字数据一起发送的工具

    易语言QQ群发支持图片文字数据一起发送的工具

    DLL命令表 .版本 2 .DLL命令 OpenClipboard, 逻辑型, "user32", "OpenClipboard", , 打开CLIPBOARD .参数 hwnd, 整数型 .DLL命令 GetClipboardData, 整数型, "user32", "GetClipboardData", , 返回剪贴板数据的句柄 .参数 wFormat, 整数型 .DLL命令 RegisterClipboardFormat

  • 易语言制作英雄联盟辅助的源码

    易语言制作英雄联盟辅助的源码

    LOL辅助 此功能需要加载超级模块7.3 .版本 2 .程序集 窗口程序集_启动窗口 .程序集变量 pid, 整数型 .子程序 __启动窗口_创建完毕 pid ＝ 取进程ID ("League of Legends.exe") 监视热键 (&开启无限视距, #F5键) 监视热键 (&关闭无限视距, #F6键) 监视热键 (&开启普攻范围, #F2键) 监视热键 (&关闭普攻范围, #F1键) 监视热键 (&开启炮塔范围, #F4键) 监视热键 (

  • 易语言高精度完美延时的源码

    DLL命令表 .版本 2 .DLL命令 QueryPerformanceCounter, 整数型, "kernel32", "QueryPerformanceCounter", , 获取计数值 .参数 lpPerformanceCount, LARGE_INTEGER .DLL命令 QueryPerformanceFrequency, 整数型, "kernel32", "QueryPerformanceFrequency",

  • 易语言实现文件夹加密的代码

    易语言实现文件夹加密的代码

    加密锁上文件夹 此功能需要加载精易模块5.6 .版本 2 .支持库 shell .支持库 spec .支持库 dp1 .程序集 窗口程序集1 .程序集变量 密码, 文本型 .子程序 _按钮_浏览文件_被单击 编辑框_路径.内容 ＝ 浏览文件夹 ("打开你需要加密的文件", ) .子程序 _按钮_加密_被单击 .局部变量 文件夹名称, 文本型 .判断开始 (寻找文本 (编辑框_路径.内容, "[已加密]", , 假) ≠ -1) 提示框 ("已加密"

  • 易语言发送消息全选文件框例程

    易语言发送消息全选文件框例程

    发送消息全选文件框例程 .版本 2 .程序集 启动窗口程序集 .子程序 __启动窗口_创建完毕 .子程序 _按钮_全选_被单击 .局部变量 a, 文本型 .局部变量 b, 文本型, , "0" 文件框1.发送信息 (389, 1, -1) ' 全选 发送信息 (273, 65646, 文件框1.取窗口句柄 ()) ' 通知窗口文件框(列表框)被选择,没有这行代码是取不出被选择的文件的 a ＝ 文件框1.被选择文件 b ＝ 分割文本 (a, ";", ) 信息框 (&

  • 易语言获取已登录的QQ号码以及名称的方法

    易语言获取已登录的QQ号码以及名称的方法

    取登陆QQ号以及名称的代码 此功能需要加载精易模块5.6 .版本 2 .程序集 窗口程序集_启动窗口 .程序集变量 网页填表, 普通填表 .子程序 _读取按钮_被单击 .局部变量 数量, 文本型 .局部变量 i, 整数型 .局部变量 QQ, 文本型 .局部变量 名称, 文本型 显示选择列表框.清空 () 网页填表.初始化 (超文本浏览框1.取窗口句柄 ()) 数量 ＝ 到文本 (网页填表.ULLI_取数量 ()) .计次循环首 (到整数 (数量), i) QQ ＝ 到文本 (文本_取出中间文本

  • 易语言获取程序已运行时间的代码

    易语言获取程序已运行时间的代码

    获取程序已运行时间 .版本 2 .支持库 iext .程序集 窗口程序集1 .子程序 _时钟1_周期事件 .局部变量 hr, 整数型, 静态 .局部变量 min, 整数型, 静态 .局部变量 sec, 整数型, 静态 sec ＝ sec + 1 .如果真 (sec ＝ 60) sec ＝ 0 min ＝ min + 1 .如果真结束 .如果真 (min ＝ 60) min ＝ 0 hr ＝ hr + 1 .如果真结束 状态条1.置文本 (0, "已运行:" + 取文本右边 ("

  • 易语言实现自动发送QQ信息的代码

    易语言实现自动发送QQ信息的代码

    全局变量表 .版本 2 .全局变量 局_句柄, 整数型 .全局变量 b, 整数型 QQ自动发送信息 此功能需要加载精易模块5.6 .版本 2 .支持库 spec .支持库 eAPI .程序集 窗口程序集_启动窗口 .程序集变量 逻辑, 逻辑型 .子程序 _暂停按钮_被单击 时钟1.时钟周期 ＝ 0 .子程序 _好友按钮_被单击 逻辑 ＝ 假 时钟1.时钟周期 ＝ 1500 .子程序 功能_取句柄, 整数型 .参数 名称, 文本型 局_句柄 ＝ 窗口_取句柄 (, , "TXGuiFoundati

  • 易语言制作黑客小程序源码

    易语言制作黑客小程序源码

    DLLL命令表 .版本 2 .DLL命令 FindWindow, 整数型, , "FindWindowA" .参数 lpClassName, 文本型 .参数 lpWindowName, 整数型 .DLL命令 FindWindowA, 整数型, , "FindWindowA" .参数 lpClassName, 文本型 .参数 lpWindowName, 文本型 .DLL命令 GetWindow, 整数型, , "GetWindow" .参数 hWn

  • 易语言制作网截抓包工具的代码

    易语言制作网截抓包工具的代码

    常量数据表 .版本 2 .常量 编码常量, "<文本长度: 10797>", , 名称:编码_GB2312 英文名称:Encoding_GB2312 类型:文本型 值:"GB2312" 列举各种编码类型 全局变量表 .版本 2 .全局变量 系统配置路径, 文本型 网截抓包工具 .版本 2 .支持库 eNetIntercept .支持库 eGrid .支持库 iconv .支持库 iext .支持库 iext2 .程序集 主程序集 .程序集变量 服务安装,

随机推荐