易语言-从网络列表下载数据并加载到内存数组

.版本 2
.支持库 internet
.支持库 spec


.子程序 ALL_删除物品_图片数据_数组
.局部变量 临时一行文本数据, 文本型
.局部变量 文件号, 整数型
.局部变量 非空文件行数, 整数型
.局部变量 临时一行文本数据_数组, 文本型, , "0"
.局部变量 临时文件名, 文本型


' 编辑框1.内容 ＝ “aaaa”
' 从网络列表下载数据并加载到内存数组
' 编辑框1.内容 ＝ 到文本 (下载 (“http://192.168.5.65/20141021/del_item_list_bmp.txt”, “d:\del_item_list_bmp.txt”))
写到文件 (“d:\del_item_list_bmp.txt”, HTTP读文件 (“http://192.168.5.65/20141021/del_item_list_bmp.txt”))


' http://192.168.5.65/20141021/del_item_list_bmp/0.bmp
' http://192.168.5.65/20141021/del_item_list_bmp/1.bmp
' http://192.168.5.65/20141021/del_item_list_bmp/2.bmp
.如果真 (文件是否存在 (“d:\del_item_list_bmp.txt”) ＝ 真)
    ' 调试输出 (“aa”)
    文件号 ＝ 打开文件 (“d:\del_item_list_bmp.txt”, 1, 1)
    调试输出 (文件号)
    非空文件行数 ＝ 1
    移到文件首 (文件号)


    .判断循环首 (是否在文件尾 (文件号, ) ＝ 假)
        临时一行文本数据 ＝ 读入一行 (文件号)
        .如果真 (取文本长度 (临时一行文本数据) ＞ 4)
            调试输出 (临时一行文本数据)
            临时一行文本数据_数组 ＝ 分割文本 (临时一行文本数据, “/”, )
            临时文件名 ＝ 临时一行文本数据_数组 [取数组下标 (临时一行文本数据_数组, 1)]
            ' 调试输出 (临时文件名)
            ' 下载 (临时一行文本数据, “d:\” ＋ 临时文件名)
            写到文件 (“d:\” ＋ 临时文件名, HTTP读文件 (临时一行文本数据))
            重定义数组 (ALL_删除物品_图片数据_数组, 真, 非空文件行数)
            ALL_删除物品_图片数据_数组 [非空文件行数] ＝ 读入文件 (“d:\” ＋ 临时文件名)
            .' 如果真 (非空文件行数 ＝ 2)
                ' 画板1.底图 ＝ ALL_删除物品_图片数据_数组 [非空文件行数]
                ' ' 画板1.底图 ＝ 读入文件 (“d:\” ＋ 临时文件名)
            .如果真结束


            非空文件行数 ＝ 非空文件行数 ＋ 1






        .如果真结束
        ' 文件行数 ＝ 文件行数 ＋ 1
    .判断循环尾 ()
    关闭文件 (文件号)