把py转为易语言

gulang520

def freeProxy13(max_page=2):
    """
    http://www.qydaili.com/free/?action=china&page=1
    齐云代理
    :param max_page:
    :return:
    """
    base_url = 'http://www.qydaili.com/free/?action=china&page='
    request = WebRequest()
    for page in range(1, max_page + 1):
        url = base_url + str(page)
        r = request.get(url, timeout=10)
        proxies = re.findall(
            r'<td.*?>(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})</td>[\s\S]*?<td.*?>(\d+)</td>',
            r.text)
        for proxy in proxies:
            yield ':'.join(proxy)

sunsir

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

freeProxy13 ()

子程序名	返回值类型	公开	备 注
freeProxy13
参数名	类 型	参考	可空	数组	备 注
max_page	整数型

变量名	类 型	静态	数组	备 注
base_url	文本型
i	整数型
url	文本型
正则	正则表达式类
text	文本型
c	整数型
取出内容	文本型		0

如果真 (max_page ＝ 0)
max_page ＝ 2

base_url ＝ “http://www.qydaili.com/free/?action=china&page=”
计次循环首 (max_page ＋ 1, i)
url ＝ base_url ＋ 到文本 (i)
text ＝ 网页_访问S (url, , , , , , , , , , , , , , , , , , , , )
正则.创建 (“[td](\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})[\s\S]*?[td](\d+)”, text, 真, , , )
计次循环首 (正则.取匹配数量 (), c)
加入成员 (取出内容, 正则.取匹配文本 (c － 1, ))
计次循环尾 ()
计次循环尾 ()
调试输出 (取出内容)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> freeProxy13 ()<br /> <br /> .子程序 freeProxy13<br /> .参数 max_page, 整数型, 可空<br /> .局部变量 base_url, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 url, 文本型<br /> .局部变量 正则, 正则表达式类<br /> .局部变量 text, 文本型<br /> .局部变量 c, 整数型<br /> .局部变量 取出内容, 文本型, , "0"<br /> <br /> .如果真 (max_page ＝ 0)<br />     max_page ＝ 2<br /> .如果真结束<br /> <br /> base_url ＝ “http://www.qydaili.com/free/?action=china&page=”<br /> .计次循环首 (max_page ＋ 1, i)<br />     url ＝ base_url ＋ 到文本 (i)<br />     text ＝ 网页_访问S (url, , , , , , , , , , , , , , , , , , , , )<br />     正则.创建 (“[td](\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})[\s\S]*?[td](\d+)”, text, 真, , , )<br />     .计次循环首 (正则.取匹配数量 (), c)<br />         加入成员 (取出内容, 正则.取匹配文本 (c － 1, ))<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 调试输出 (取出内容)

gulang520

转为易语言  求大佬帮帮忙

离愁

legal high2

补充内容 (2020-2-12 12:04):
窗口程序集名 保 留   保 留 备 注
窗口程序集_启动窗口      

子程序名 返回值类型 公开 备 注
_按钮1_被单击      
freeProxy13 ()

子程序名 返回值类型 公开 备 注
freeProxy13      
参数名 类 型 参考 可空 数组 备 注
max_page 整数型     

变量名 类 型 静态 数组 备 注
base_url 文本型     
i 整数型     
url 文本型     
正则 正则表达式类     
text 文本型     
c 整数型     
取出内容 文本型  0  
如果真 (max_page ＝ 0)
max_page ＝ 2

base_url ＝ “http://www.qydaili.com/free/?action=china&page=”
计次循环首 (max_page ＋ 1, i)
url ＝ base_url ＋ 到文本 (i)
text ＝ 网页_访问S (url, , , , , , , , , , , , , , , , , , , , )
正则.创建 (“[td](\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})[\s\S]*?[td](\d+)”, text, 真, , , )
计次循环首 (正则.取匹配数量 (), c)
加入成员 (取出内容, 正则.取匹配文本 (c － 1, ))
计次循环尾 ()
计次循环尾 ()
调试输出 (取出内容)



i支持库列表    支持库注释   
spec 特殊功能支持库