易语言如何获取网页源码的并展示出来？

Question

获取一个网站的<title> <meta name="Keywords" content=" <meta name="Description
下面这个是网易的
<title>网易</title>
<meta name="Keywords" content="网易,邮箱,游戏,新闻,体育,娱乐,女性,亚运,论坛,短信,数码,汽车,手机,财经,科技,相册" />
<meta name="Description
帮我写个源码 谢谢 [email protected]

Answer 1

.版本 2

.支持库 RegEx

.支持库 internet

.支持库 iext

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

.局部变量 网页文本, 文本型

.局部变量 表达式, 正则表达式

.局部变量 搜索结果, 搜索结果, , "0"

.局部变量 计次变量, 整数型

.局部变量 文本, 文本型

网页文本 ＝ 到文本 (HTTP读文件 (编辑框1.内容))

网页文本 ＝ 子文本替换 (网页文本, #引号, “'”, 0, , 真)

网页文本 ＝ 到小写 (网页文本)

透明标签1.标题 ＝ 取中间文 (网页文本, “<title>”, “</title>”)

表达式.创建 (“meta (.*?)>”, 假)

搜索结果 ＝ 表达式.搜索全部 (网页文本)

.计次循环首 (取数组成员数 (搜索结果), 计次变量)

    文本 ＝ 搜索结果 [计次变量].取子匹配文本 (网页文本, 1, )

    .判断开始 (寻找文本 (文本, “name='keywords'”, 1, 假) ＞ 0)

        透明标签2.标题 ＝ 取中间文 (文本, “content='”, “'”)

    .判断 (寻找文本 (文本, “name='description'”, 1, 假) ＞ 0)

        透明标签3.标题 ＝ 取中间文 (文本, “content='”, “'”)

    .默认

    .判断结束

.计次循环尾 ()

.子程序 取中间文, 文本型

.参数 全文, 文本型

.参数 左文, 文本型

.参数 右文, 文本型

.局部变量 位置, 整数型

.局部变量 总长度, 整数型

.局部变量 文本, 文本型

总长度 ＝ 取文本长度 (全文)

位置 ＝ 寻找文本 (全文, 左文, , 假)

.如果真 (位置 ＜ 0)

    返回 (“”)

.如果真结束

位置 ＝ 位置 ＋ 取文本长度 (左文)

文本 ＝ 取文本中间 (全文, 位置, 总长度)

总长度 ＝ 取文本长度 (文本)

位置 ＝ 寻找文本 (文本, 右文, , 假) － 1

.如果真 (位置 ＜ 0)

    返回 (“”)

.如果真结束

文本 ＝ 取文本中间 (文本, 1, 位置)

返回 (文本)

追问

可以发我邮箱吗？[email protected]

Answer 2

可以做到啊！用超文本框

Answer 3

超文本追问

麻烦写一下源码