|
7楼

楼主 |
发表于 2014-1-6 12:44:28
|
只看该作者
河南省南阳市
[e]
.版本 2
.支持库 internet
.子程序 _按钮5_被单击
.局部变量 x, 整数型
.局部变量 y, 整数型
.局部变量 z, 整数型
.局部变量 n, 整数型
.局部变量 m, 整数型
.局部变量 k, 整数型
.局部变量 寻找, 文本型
.局部变量 返回字节集, 字节集
.局部变量 l, 整数型
.局部变量 j, 整数型
.局部变量 图片号, 整数型
x = 到整数 (编辑框11.内容)
y = 到整数 (编辑框12.内容)
z = 到整数 (编辑框13.内容)
创建目录 (取运行目录 () + “\下载图片\”)
.判断开始 (单选框1.选中 = 真)
寻找 = “.jpg”
.判断 (单选框2.选中 = 真)
寻找 = “.png”
.判断 (单选框3.选中 = 真)
寻找 = “.bmp”
.判断 (单选框4.选中 = 真)
寻找 = “.gif”
.默认
.判断结束
.变量循环首 (1, x, 1, k)
编辑框5.内容 = 到文本 (k)
.如果真 (到整数 (编辑框12.内容) ≤ 0)
返回字节集 = HTTP读文件 (编辑框4.内容 + 编辑框5.内容 + 编辑框6.内容 + 编辑框7.内容 + 编辑框8.内容 + 编辑框9.内容 + 编辑框10.内容)
.判断开始 (取字节集长度 (返回字节集) > 2000)
写到文件 (取运行目录 () + “\下载图片\” + 到文本 (k) + 寻找, HTTP读文件 (编辑框4.内容 + 编辑框5.内容 + 编辑框6.内容 + 编辑框7.内容 + 编辑框8.内容 + 编辑框9.内容 + 编辑框10.内容))
.默认
.判断结束
.如果真结束
.变量循环首 (1, y, 1, m)
编辑框7.内容 = 到文本 (m)
.如果真 (到整数 (编辑框13.内容) ≤ 0)
返回字节集 = HTTP读文件 (编辑框4.内容 + 编辑框5.内容 + 编辑框6.内容 + 编辑框7.内容 + 编辑框8.内容 + 编辑框9.内容 + 编辑框10.内容)
.判断开始 (取字节集长度 (返回字节集) > 2000)
写到文件 (取运行目录 () + “\下载图片\” + 到文本 (k) + “_” + 到文本 (m) + 寻找, HTTP读文件 (编辑框4.内容 + 编辑框5.内容 + 编辑框6.内容 + 编辑框7.内容 + 编辑框8.内容 + 编辑框9.内容 + 编辑框10.内容))
.默认
.判断结束
.如果真结束
.变量循环首 (1, z, 1, n)
编辑框9.内容 = 到文本 (n)
返回字节集 = HTTP读文件 (编辑框4.内容 + 编辑框5.内容 + 编辑框6.内容 + 编辑框7.内容 + 编辑框8.内容 + 编辑框9.内容 + 编辑框10.内容)
.判断开始 (取字节集长度 (返回字节集) > 2000)
写到文件 (取运行目录 () + “\下载图片\” + 到文本 (k) + “_” + 到文本 (m) + “_” + 到文本 (n) + 寻找, HTTP读文件 (编辑框4.内容 + 编辑框5.内容 + 编辑框6.内容 + 编辑框7.内容 + 编辑框8.内容 + 编辑框9.内容 + 编辑框10.内容))
.默认
.判断结束
.变量循环尾 ()
.变量循环尾 ()
.变量循环尾 ()
[/e]
我需要把下载的图片再合并成一个图片
而且合成规则为文件名_前面数字一样的为一行
然后依次合并
补充内容 (2014-1-6 18:51):
不用看上面的代码,就说前面说的能不能实现 |
|