方法1：

1. .版本 2
   
2. .支持库 internet
   
3. .子程序 取外网ip_文本操作, 文本型
   
4. .局部变量 内容, 文本型
   
5. .局部变量 开始位置, 整数型
   
6. .局部变量 长度, 整数型
   
7. .局部变量 网址, 文本型
   
8. .局部变量 开始标识符, 文本型
   
9. .局部变量 结束标识符, 文本型
   
10. 网址 ＝ “http://www.net.cn/static/customercare/yourIP.asp”
    
11. 开始标识符 ＝ “<h2>”
    
12. 结束标识符 ＝ “</h2>”
    
13. 内容 ＝ 到文本 (HTTP读文件 (网址))
    
14. 开始位置 ＝ 寻找文本 (内容, 开始标识符, , 假) ＋ 取文本长度 (开始标识符)
    
15. 长度 ＝ 取文本长度 (内容) － 取文本长度 (开始标识符) － 寻找文本 (内容, 开始标识符, , 假) － (取文本长度 (内容) － 寻找文本 (内容, 结束标识符, , 假))
    
16. 返回 (取文本中间 (内容, 开始位置, 长度))

复制代码

方法2：

1. .版本 2
   
2. .支持库 RegEx
   
3. .支持库 internet
   
4. .子程序 取外网ip_正则操作, 文本型
   
5. .局部变量 开始标识符, 文本型
   
6. .局部变量 结束标识符, 文本型
   
7. .局部变量 正则, 正则表达式
   
8. .局部变量 结果, 搜索结果
   
9. .局部变量 内容, 文本型
   
10. .局部变量 网址, 文本型
    
11. 开始标识符 ＝ “<h2>”
    
12. 结束标识符 ＝ “</h2>”
    
13. 网址 ＝ “http://www.net.cn/static/customercare/yourIP.asp”
    
14. 正则.创建 (开始标识符 ＋ “(.*?)” ＋ 结束标识符, 假)
    
15. 内容 ＝ 到文本 (HTTP读文件 (网址))
    
16. 结果 ＝ 正则.搜索 (内容, 1, )
    
17. 返回 (结果.取子匹配文本 (内容, 1, ))

复制代码

感谢{author}楼主