.版本 2.子程序 取外网IP, 文本型, 公开, 取外网IP.局部变量 原文, 文本型.局部变量 过度, 文本型, , "0".局部变量 IP, 文本型原文 ＝ 到文本 (彗星HTTP读文件 (“http://www.ip138.com/ip2city.asp”))过度 ＝ 分割文本 (原文, “您的IP地址是：[”, ).如果 (取数组成员数 (过度) ＜ 2) 返回 (“”).否则.如果结束IP ＝ 子文本替换 (过度 [2], “] </center></body></html>”, “”, , , 假)返回 (IP)
