求写一款超级简单的东东。。。。。。

1104184068

其实就是一款POST提交的软件。。。
关键从文本里面取数据我不会。。。
求大侠们帮忙做一下啊
选择软件目录下的  1.txt
txt文本格式是这样子的
BY00001 0
60230 300
1204270001 0
1204270002 0
60218 8
60009 570
60216 0
60215 5100
POST提交的数据是这样子的：cid=8&msgtype=text&do=insert&keywords=前面一段&msg=后面一段
这样子提交   可以把整个文本当中每一行数据  都这样子提交了     

HugBear

1. .版本 2
   
2. 
   
3. .子程序 子程序1
   
4. .局部变量 文本, 文本型
   
5. .局部变量 行信息, 文本型, , "0"
   
6. .局部变量 次, 整数型
   
7. .局部变量 前后一段, 文本型, , "0"
   
8. .局部变量 Post数据, 文本型
   
9. 
   
10. 文本 ＝ 到文本 (读入文件 (“1244.txt”))
    
11. 行信息 ＝ 分割文本 (文本, #换行符, )
    
12. .计次循环首 (取数组成员数 (行信息), 次)
    
13. 前后一段 ＝ 分割文本 (行信息 [次], “ ”, )
    
14. .如果真 (取数组成员数 (前后一段) ＝ 2)
    
15. Post数据 ＝ “cid=8&msgtype=text&do=insert&keywords=” ＋ 前后一段 [1] ＋ “&msg=” ＋ 前后一段 [2]
    
16. ' 提交
    
17. .如果真结束
    
18. 处理事件 ()
    
19. .计次循环尾 ()
    

复制代码

fml224

很简单~楼主其实不用发都自己可以搞定吧！

1104184068

维卷残恋 发表于 2013-7-22 12:02

大神，，我先试试。。。。

1104184068

维卷残恋 发表于 2013-7-22 12:02

.版本 2

.子程序 POST提交, 逻辑型, , ⊙⊙本代码由精易会员专用浏览器生成
.局部变量 局_提交地址, 文本型
.局部变量 局_提交数据, 文本型
.局部变量 局_返回文本, 文本型

局_提交地址 ＝ “http://www.ydapi.com/Member/News/do_news_one.html”
局_提交数据 ＝ “cid=8&msgtype=text&do=insert&keywords=前一段&msg=后一段”
局_返回文本 ＝ 到文本 (网页_访问 (局_提交地址, 1, , , 局_提交数据, ))  ' 最后一个参数为返回的编码方式
.判断开始 (寻找文本 (局_返回文本, “输入你成功的关键字”, , 假) ≠ -1)
    返回 (真)
.判断 (寻找文本 (局_返回文本, “输入你失败的关键字”, , 假) ≠ -1)
    返回 (假)
.默认
    输出调试文本 (局_返回文本)  ' 如果前面2个没判断成功，把返回文件输出来
.判断结束
返回 (假)

青舟

分割。。。。分割

1104184068

维卷残恋 发表于 2013-7-22 12:02

大神。。。这是我的POST提交代码  大神可否帮我弄完整一下 谢谢大神

HugBear

1104184068 发表于 2013-7-22 12:07
大神，，我先试试。。。。

没事，呵呵有问就到论坛发发 帮助别人也提高自己

1104184068

维卷残恋 发表于 2013-7-22 12:10
没事，呵呵有问就到论坛发发 帮助别人也提高自己

大神，，，帮我弄完整一下下啊  感激不尽 啊

HugBear

1104184068 发表于 2013-7-22 12:09
.版本 2

.子程序 POST提交, 逻辑型, , ⊙⊙本代码由精易会员专用浏览器生成

你这个需要登录才能提交post吗？