给你看的例子,是在是一个播报北京时间的网页中,怎么样将其中的年月日提取出来的,也是通过分割文本,你看一下哈。
.版本 2
.支持库 internet
.程序集 窗口程序集1
.程序集变量 网页文本, 文本型
.程序集变量 临时文本, 文本型
.程序集变量 所需文本, 文本型, , "0"
.程序集变量 中间时间, 文本型, , "0"
.子程序 _按钮1_被单击
网页文本 = 到文本 (HTTP读文件 (“
http://www.time.ac.cn/stime.asp”)) ' 这是国家授时中心网络服务器时间发布网站
所需文本 = 分割文本 (网页文本, “服务器时间:”, ) ' 将取回的文本分割,因为我们需要的网络时间在其后面
.如果真 (取数组成员数 (所需文本) < 2) ' 判断是否取回所需数据
信息框 (“取网络时间失败!链接网络不成功!”, 0 + #信息图标, “网络校时:”)
返回 ()
.如果真结束
临时文本 = 所需文本 [2]
所需文本 = 分割文本 (临时文本, “document.write('”, )
中间时间 = 分割文本 (所需文本 [3], “')”, )
编辑框1.内容 = 中间时间 [1] ' 取出年/月/日
临时文本 = 所需文本 [6]
所需文本 = 分割文本 (临时文本, “var hrs = ”, )
临时文本 = 所需文本 [2]
中间时间 = 分割文本 (临时文本, “;”, )
编辑框2.内容 = 中间时间 [1] ' 取出小时
所需文本 = 分割文本 (临时文本, “var min = ”, )
临时文本 = 所需文本 [2]
中间时间 = 分割文本 (临时文本, “;”, )
编辑框3.内容 = 中间时间 [1] ' 取出分钟
所需文本 = 分割文本 (临时文本, “var sec = ”, )
临时文本 = 所需文本 [2]
中间时间 = 分割文本 (临时文本, “;”, )
编辑框4.内容 = 中间时间 [1] ' 取出秒