编辑框|分割写出配置和读取配置该如何操作？

za11111

源码.zip (6.93 KB, 下载次数: 11)

2014-3-18 20:44 上传

点击文件名下载附件

蕃茄炒饭

是不是这种效果                     

大兵324

直接写到文本不是更好

za11111

大兵324 发表于 2014-3-18 20:49
直接写到文本不是更好

怎么弄啊？

零碎不堪

没看明白 你是什么意思   是按钮1被单击写出编辑框1的内容   按钮2被单击读取全部内容吗？

风行雪落

先分割文本   取分割文本的数量      在写配置项      读的时候先读数量   在计次循环首  读取 具体内容

za11111

风行雪落 发表于 2014-3-18 21:19
先分割文本   取分割文本的数量      在写配置项      读的时候先读数量   在计次循环首  读取 具体内容

我不会，你能帮我写一下吗？谢谢了

小爬虫

楼主这样写,其实毫无意义的,你直接就把要保存的写到文件,然后再读出,不用写配置文件

哈合

.版本 2

写配置项 (, , , )

哈合

.版本 2
.支持库 WebBrowser
.支持库 iext

网页浏览框1.浏览 (“￥￥￥￥”, , , )
.循环判断首 ()
    程序_延时 (50)
.循环判断尾 (网页浏览框1.就绪状态 ≠ 4)  ' 真就继续循环
.如果真 (网页浏览框1.标题 ≠ “走势图”)
    信息框 (“数据下载不正确，请查看网络是否正常，网站数据可能更新了，请更新软件”, 0, “出错了”)
    返回 ()
.如果真结束

普通填表.初始化 (网页浏览框1.IE句柄)
采集数据1 ＝ 普通填表.网页_取文本 ()
.如果真 (寻找文本 (采集数据1, “余数”, , 假) ＝ -1)
    信息框 (“数据采集不正确，网站数据可能更新了，请更新软件”, 0, “出错了”)
    返回 ()
.如果真结束

采集数据1 ＝ 文本_寻找出文本并删除 (采集数据1, “走势图”, “期号”)
采集数据1 ＝ 文本_删除指定文本行 (采集数据1, 1)
采集数据1 ＝ 文本_寻找出文本并删除 (采集数据1, “关于我们”, “赶快免费注册”)
.如果真 (采集数据1 ＝ “”)
    信息框 (“数据外理出错，网站数据可能更新了，请更新软件”, 0, “出错了”)
    返回 ()
.如果真结束

.计次循环首 (文本_取行数 (采集数据1), i)
    超级列表框1.插入表项 (i － 1, 到文本 (i), , , , )
    取出数据1 ＝ 文本_取左边 (采集数据1, “单”, , )
    超级列表框1.置标题 (i － 1, 1, 取文本左边 (取出数据1, 5))
    超级列表框1.置标题 (i － 1, 2, 取文本右边 (取出数据1, 取文本长度 (取出数据1) － 5))
    采集数据1 ＝ 文本_删除指定文本行 (采集数据1, 1)
.计次循环尾 ()
.如果 (信息框 (“在保存前请确认采集的数据是否正确，按确定保存”, 1, “保存提示”) ＝ 1)
    返回 ()
.否则

.如果结束

.如果 (读配置项 (取运行目录 () ＋ “/date.ini”, “开奖数据”, 超级列表框1.取标题 (超级列表框1.取表项数 () － 1, 1), ) ＝ “”)
    .如果 (信息框 (“保存的数据不连续或第一次保存，按确定保存不连续的数据”, 1, “异常提示”) ＝ 1)
        返回 ()
    .否则

    .如果结束

.否则

.如果结束

.计次循环首 (超级列表框1.取表项数 (), i)
    写配置项 (取运行目录 () ＋ “/date.ini”, “开奖数据”, 超级列表框1.取标题 (超级列表框1.取表项数 () － i, 1), 超级列表框1.取标题 (超级列表框1.取表项数 () － i, 2))
.计次循环尾 ()

初始化 ()