|
发表于 2016-12-12 22:19:01
|
显示全部楼层
浙江省金华市
回帖奖励 +2 枚 精币
.支持库 internet
.程序集 窗口程序集_启动窗口
.子程序 _按钮1_被单击
.局部变量 a, 文本型
.局部变量 b, 文本型
.局部变量 c, 文本型
c = 到文本 (HTTP读文件 (“http://1212.ip138.com/ic.asp”))
取文本 (c, “[”, “]”, b)
编辑框1.内容 = b
.子程序 取文本, , 公开
.参数 被找文本, 文本型, , 被找文本
.参数 文本左边分割符, 文本型
.参数 文本右边分割符, 文本型
.参数 文本, 文本型
.局部变量 文本1, 文本型, , "2"
.局部变量 文本2, 文本型, , "2"
' 本名称子程序用作测试程序用,仅在开发及调试环境中有效,编译发布程序前将被系统自动清空,请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
文本1 = 分割文本 (被找文本, 文本左边分割符, )
文本2 = 分割文本 (文本1 [2], 文本右边分割符, )
文本 = 文本2 [1]
[/e] 文本2 [1]<BR><BR>[/e] |
|