暗月梦魂 's Home

.版本 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, 位置)
返回 (文本)