他们都没测试过,给你一个我亲测的源码。
.版本 2
.支持库 internet
.支持库 iconv
.支持库 spec
.子程序 _按钮1_被单击
.局部变量 e, 文本型
.局部变量 网站内容, 字节集
网站内容 = HTTP读文件 (“http://www.baidu.com/”)
e = 到文本 (编码转换 (网站内容, #编码_UTF_8, #编码_GBK, ))
调试输出 (e)
.如果 (寻找文本 (e, “新闻”, , 假) ≠ -1)
信息框 (“123”, 0, )
.否则
返回 ()
.如果结束
.如果 (寻找文本 (“新闻”, “2012acv”, , 假) = -1)
//这一句 你在“新闻”二字中寻找 “2012acv”,肯定是找不到。
//你吧“新闻”换成“e”试试。然后在把最后“=-1”换成“≠-1”
.版本 2.支持库 internet .子程序 _按钮1_被单击 参数 e, 文本型 e = 到文本 (HTTP读文件 (“www.baidu.com/”)) .如果 (寻找文本 (“新闻”, “2012acv”, , 假) <> -1) 信息框 (“123”, 0, ) .否则 返回 () .如果结束
把=-1改为<>-1就OK了