请大神看看循循套循环的问题如何处理

ldj777

想改成每500条数据写到一个文件里,例如第一个表为1-----500，第二个表保存为501-----1000等。。。。
不知道这两个循环怎么写了？


.计次循环首 (超级列表框1.取表项数 (), i)
    m1 ＝ HTTP读文件 (“http://21.123.21.100/Management/TransIpLogDownload.do?loginName=” ＋ 编码_URL编码 (删首尾空 (超级列表框1.取标题 (i － 1, 0)), 真, 真) ＋ “&beginDate=” ＋ 编辑框1_开始日期1.内容 ＋ “&beginTime=0000&endDate=” ＋ 编辑框2_结束日期1.内容 ＋ “&endTime=2359&mark=0&custType=” ＋ 删首尾空 (编辑框1_网银类型.内容) ＋ “&chnl=1&mobile=&downLoadList=1%E7%AC%94%7E1000%E7%AC%94&_T=Enter”)
    ' M2 ＝ M2 ＋ m1 ＋ 到字节集 (#换行符)
    进度条1.位置 ＝ 进度条1.位置 ＋ 1
    写到文件 (“d:\网银IP批量\IP批量10c.CSV”, 读入文件 (“d:\网银IP批量\IP批量10c.CSV”) ＋ m1 ＋ 到字节集 (#换行符))
.计次循环尾 ()
写到文件 (“d:\网银IP批量\IP批量10c.CSV”, M2)

孤心人

ldj777 发表于 2014-11-17 16:41
你这个的结果是1----500，然后是1----10000这样的，不是1--500和501-1000等文件

哦，对的，在写出文本后需要把变量wb清空就行了，在中间添加一句“wb=""”就行了

保存文件的文件名需要改变成动态的，不要是固定的，否则一直覆盖掉了

孤心人

.版本 2

.计次循环首 (1000, i)
    wb ＝ wb ＋ 到文本 (i) ＋ #换行符
    .如果真 (i ÷ 500 ＝ i ＼ 500)
        写到文件 (取运行目录 () ＋ “\1.txt”, 到字节集 (wb))
        wb=""
    .如果真结束

.计次循环尾 ()


大约是这样的，按整除来判断，每500个保存一次

ldj777

孤心人 发表于 2014-11-17 16:05
.版本 2

.计次循环首 (1000, i)

你这个的结果是1----500，然后是1----10000这样的，不是1--500和501-1000等文件

ldj777

孤心人 发表于 2014-11-17 16:45
哦，对的，在写出文本后需要把变量wb清空就行了，在中间添加一句“wb=""”就行了

保存文件的文件名需 ...

又是有问题了，这样的结果漏数，余下不能整除的，不够500条的就保存不下来了

浪子小刀

添加一个变量计次500，保存文件，归零

Hoibben

用 变量循环首 比较方便~

孤心人

ldj777 发表于 2014-11-17 16:56
又是有问题了，这样的结果漏数，余下不能整除的，不够500条的就保存不下来了

.版本 2

.计次循环首 (1100, i)
    wb ＝ wb ＋ 到文本 (i) ＋ #换行符
    .如果真 (i ÷ 500 ＝ i ＼ 500)
        写到文件 (取运行目录 () ＋ “\1.txt”, 到字节集 (wb))
        wb ＝ “”
    .如果真结束

.计次循环尾 ()
.如果真 (删全部空 (wb) ≠ “”)
    写到文件 (取运行目录 () ＋ “\1.txt”, 到字节集 (wb))