怎么把这个程序封装成子程序

vchack

.版本 2
.支持库 internet
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 临时找到位置, 整数型
.局部变量 找到的版本, 文本型
.局部变量 网页源码, 字节集
网页源码 ＝ HTTP读文件 (编辑框_网站地址.内容)
编辑框1_网页源码.内容 ＝ 到文本 (网页源码)
临时找到位置 ＝ 寻找字节集 (网页源码, 到字节集 (“<title>”), )
输出调试文本 (到文本 (临时找到位置))
找到的版本 ＝ 到文本 (取字节集中间 (网页源码, 临时找到位置 ＋ 7, 64))
临时找到位置 ＝ 倒找文本 (找到的版本, “</title>”, , 假)
找到的版本 ＝ 取文本左边 (找到的版本, 临时找到位置 － 1)
输出调试文本 (到文本 (找到的版本))
寻找字节集 (网页源码, 到字节集 (“<title>”), )
编辑框_标题.内容 ＝ 找到的版本
获取网页的标题

vchack

微凉 发表于 2012-12-16 01:50
[e]
.版本 2
.支持库 internet

谢谢

微凉

[e]
.版本 2
.支持库 internet

.子程序 子程序_获取网页的标题, 文本型
.参数 网址, 文本型
.局部变量 临时找到位置, 整数型
.局部变量 找到的版本, 文本型
.局部变量 网页源码, 字节集

网页源码 ＝ HTTP读文件 (网址)
' 编辑框1_网页源码.内容 ＝ 到文本 (网页源码)
临时找到位置 ＝ 寻找字节集 (网页源码, 到字节集 (“<title>”), )
输出调试文本 (到文本 (临时找到位置))
找到的版本 ＝ 到文本 (取字节集中间 (网页源码, 临时找到位置 ＋ 7, 64))
临时找到位置 ＝ 倒找文本 (找到的版本, “</title>”, , 假)
找到的版本 ＝ 取文本左边 (找到的版本, 临时找到位置 － 1)
输出调试文本 (到文本 (找到的版本))
寻找字节集 (网页源码, 到字节集 (“<title>”), )
' 编辑框_标题.内容 ＝ 找到的版本
返回 (找到的版本)
[/e]