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