易语言 怎么实现浏览器当中的一个功能: 显示所进入的站点名称？
展开全部
.版本 2
.支持库 internet
.支持库 iconv
.子程序 __启动窗口_创建完毕
标题 ＝ 取网站标题 (“http://zhidao.baidu.com/”)
.子程序 取网站标题, 文本型
.参数 网址, 文本型
.局部变量 网页源码, 文本型
.局部变量 页面编码, 文本型
.局部变量 title, 文本型
网页源码 ＝ 到文本 (HTTP读文件 (网址))
title ＝ 取文本中间 (网页源码, 寻找文本 (网页源码, “<title>”, , 假) ＋ 取文本长度 (“<title>”), 寻找文本 (网页源码, “</title>”, , 假) － 寻找文本 (网页源码, “<title>”, , 假) － 取文本长度 (“<title>”))
页面编码 ＝ 子文本替换 (网页源码, #引号, , , , 真)
页面编码 ＝ 取文本中间 (网页源码, 寻找文本 (网页源码, “charset=”, , 假) ＋ 取文本长度 (“charset=”), 取文本长度 (“UTF-8”))
.如果真 (寻找文本 (页面编码, “UTF-8”, , 真) ≠ -1)
title ＝ 到文本 (编码转换 (到字节集 (title), #编码_UTF_8, #编码_GB18030, ))
.如果真结束
返回 (title)
追问
虽然我这个菜鸟还不能看懂，但还是感谢你的回答！
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
