易语言取指定数组倍数源码

.版本 2
.支持库 eGrid
.支持库 iext
.支持库 spec

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕



.子程序 配置

高级表格1.是否可编辑 ＝ 假
高级表格1.允许调整行高 ＝ 假
高级表格1.允许调整列宽 ＝ 假
高级表格1.宽度 ＝ 490
高级表格1.列数 ＝ 7
高级表格1.置列宽 (0, 50)
高级表格1.置列宽 (1, 100)
高级表格1.置列宽 (2, 50)
高级表格1.置列宽 (3, 100)
高级表格1.置列宽 (4, 60)
高级表格1.置列宽 (5, 50)
高级表格1.置列宽 (6, 60)
高级表格1.置数据 (0, 0, 1, “国家”)
高级表格1.置数据 (0, 1, 1, “代理IP”)
高级表格1.置数据 (0, 2, 1, “端口”)
高级表格1.置数据 (0, 3, 1, “代理位置”)
高级表格1.置数据 (0, 4, 1, “是否匿名”)
高级表格1.置数据 (0, 5, 1, “类型”)
高级表格1.置数据 (0, 6, 1, “验证时间”)
高级表格1.高度 ＝ _启动窗口.高度 ÷ 2
_启动窗口.宽度 ＝ 高级表格1.宽度 ＋ 5
_启动窗口.最小化按钮 ＝ 真
获取源码 ()

.子程序 获取源码

地址 ＝ “http://www.xici.net.co/”
返回文本 ＝ 编码_Utf8到Ansi (到字节集 (网页_取网页源码 (地址)))

线程_启动 (&获取数据)

.子程序 获取数据

国家 ＝ 到文本 (文本_取中间_批量_正则方式 (返回文本, #左, #右, 文本数组))
高级表格1.行数 ＝ 取数组成员数 (文本数组) ÷ 7
.计次循环首 (取数组成员数 (文本数组), 数值)
    文本数组 [数值] ＝ 文本_替换 (文本数组 [数值], 2, , , #替换1, “”, #替换2, “”, #替换3, “”)
    状态条1.置文本 (0, “状态:正在替换数据”)
.计次循环尾 ()
状态条1.置文本 (0, “状态:正在替换完毕！”)
.计次循环首 (99, 数值)
    取指定数组倍数 (1, 7, 99, 国家数组)
    高级表格1.置数据 (数值, 0, 1, 文本数组 [国家数组 [数值]])
    ' ----------------------------------------------------------------
    取指定数组倍数 (2, 7, 99, IP数组)
    高级表格1.置数据 (数值, 1, 1, 文本数组 [IP数组 [数值]])

    ' -----------------------------------------------------------------
    取指定数组倍数 (3, 7, 99, 端口数组)
    高级表格1.置数据 (数值, 2, 1, 文本数组 [端口数组 [数值]])

    ' -----------------------------------------------------------------
    取指定数组倍数 (4, 7, 99, 代理位置数组)
    高级表格1.置数据 (数值, 3, 1, 文本数组 [代理位置数组 [数值]])

    ' -----------------------------------------------------------------
    取指定数组倍数 (5, 7, 99, 是否匿名数组)
    高级表格1.置数据 (数值, 4, 1, 文本数组 [是否匿名数组 [数值]])

    ' -----------------------------------------------------------------

    取指定数组倍数 (6, 7, 99, 类型数组)
    高级表格1.置数据 (数值, 5, 1, 文本数组 [类型数组 [数值]])

    ' -----------------------------------------------------------------
    取指定数组倍数 (7, 7, 99, 验证时间数组)
    高级表格1.置数据 (数值, 6, 1, 文本数组 [验证时间数组 [数值]])

    ' -----------------------------------------------------------------

    状态条1.置文本 (4, “数量:” ＋ 到文本 (数值))
    状态条1.置文本 (0, “状态:正在获取数据”)

.计次循环尾 ()
状态条1.置文本 (0, “状态:获取完毕！”)

.子程序 取指定数组倍数
.参数 初始, 整数型, , 如取出3个数组（abc，abc，abc）,我只要b数据就填2 ，a=1,b=2,c=3
.参数 加几, 整数型, , 如取出3个数组（abc，abc，abc）,第一个b加几等于第二个b
.参数 次数, 整数型, , 不能超出数组成员数
.参数 保存数组, 整数型, 数组, 欲存放的数组
.局部变量 结果, 整数型
.局部变量 变量, 整数型
.局部变量 计次, 整数型

加入成员 (保存数组, 初始)  ' 保存到第一个数组
.如果 (次数 ＝ 0)
    次数 ＝ 1  ' 默认次数
.否则

.如果结束
.计次循环首 (次数, 计次)
    变量 ＝ 保存数组 [计次] ＋ 加几
    结果 ＝ 变量
    加入成员 (保存数组, 结果)
.计次循环尾 ()

.子程序 __启动窗口_首次激活

延迟 (1000)
线程_启动 (&配置)

@liux