|
|
马上加入TC
您需要 登录 才可以下载或查看，没有帐号？立即注册
x
变量 线程ID
//从这里开始执行
变量 单号,省份,重量,价格,各省份,结果,数组位置
变量 显示,a,表格,c,d,e,初始单号,部分单号,rt
功能 添加单号()
初始单号=编辑框获取文本("编辑框3")
下拉框增加文本("下拉框0",初始单号)
遍历(变量 i = 0; i < 6; i++)
部分单号=字符串截取右侧(初始单号,8)
部分单号=部分单号+1
部分单号=字符串拼接("7210",部分单号)
下拉框增加文本("下拉框0",部分单号)
调试输出(部分单号)
初始单号=部分单号
结束
结束
功能 执行()
单号=下拉框获取文本("下拉框0")
调试输出(单号)
省份=下拉框获取文本("下拉框1")
重量=编辑框获取文本("编辑框0")
如果(重量==0||重量=="")
消息框("重量不能为0")
结束
各省份=数组(数组("江苏","浙江","上海","北京","广东","山东","河南","天津","安徽","河北"),数组("湖南","湖北","山西","福建","江西","陕西"),数组("广西","四川","重庆"),数组("辽宁","吉林","黑龙江","海南","云南","贵州"),数组("甘肃","宁夏","青海"),数组("内蒙古","新疆"))
结束
功能 表格写入(内容)
调试输出(文件是否存在("f:/3.txt"))
表格=文件打开("f:/3.txt")
调试输出(表格)
如果(文件读取内容("f:/3.txt")!="")
变量 index,B
循环(!文件是否结尾(表格))
index = index+1
文件读一行(表格)
结束
文件关闭(表格)
调试输出("文件一共:"&index&"行")
B=index+1
变量 C = 文件指定行插入("f:/3.txt",内容,B)
//调试输出(C)
如果(C==真)
调试输出("插入成功")
否则
调试输出("插入失败")
结束
否则
变量 X
X=文件写入一行字符(表格,内容)
调试输出(X)
如果(X==真)
调试输出("写入成功")
否则
调试输出("写入失败")
结束
结束
rt = 字符串转数组(e)
调试输出(rt)
减增单号(单号)
结束
功能 按钮2_点击()//写入
线程开启("表格写入",d)
结束
功能 减增单号(单号值)//
变量 re
下拉框删除选项文本("下拉框0",0)
调试输出(单号值)
单号值=字符串截取右侧(单号值,8)+7
单号值=字符串拼接("7210",单号值)
//调试输出(单号值)
re=下拉框增加文本("下拉框0",单号值)
//调试输出(re)
结束
功能 按钮0_点击()//计算按钮
执行()
结果=查找省(各省份,省份)
调试输出(结果)
编辑框设置文本("编辑框1",价格)
编辑框设置文本("编辑框2",编辑框获取文本("编辑框2")&"\r\n"&单号&"\t"&省份&"\t"&重量&"\t"&价格)
//调试输出(编辑框获取文本("编辑框2"))
c=字符串替换(编辑框获取文本("编辑框2"),"快递单号 省份 重量 价格","")
d=字符串修剪(c)
调试输出(d)
e=数组(单号,省份,重量,价格)
调试输出("e为:"&e)
结束
功能 查找省(数组名,值)
变量 大小,位置
大小=数组大小(数组名)
调试输出(大小)
遍历(变量 i = 0; i <大小; i++)
调试输出(数组名[i])
调试输出(数组大小(数组名[i]))
遍历(变量 j = 0; j < 数组大小(数组名[i]); j++)
调试输出(数组名[i])
位置=数组值查找(数组名[i],值)
调试输出(位置)
数组位置=i
调试输出(i)
如果(位置>=0&&位置!="")
选择(i)
条件 0
价格=重量*1+3
//调试输出(价格)
条件 1
价格=重量*2+3
//调试输出(价格)
条件 2
价格=重量*3+3
//调试输出(价格)
条件 3
价格=重量*4+3
//调试输出(价格)
条件 4
价格=重量*13+3
//调试输出(价格)
条件 5
价格=重量*15+3
//调试输出(价格)
结束
返回 "找到"
否则
调试输出("没有找到")
//跳出
结束
结束
结束
结束
功能 按钮1_点击()//添加单号
线程开启("添加单号",初始单号)
等待(200)
线程关闭("添加单号")
结束
//点击关闭_执行操作
功能 快递价格_关闭()
如果(对话框("请确认以上信息都已经写入文件","询问",1,真)==5)
退出()
结束
结束
为什么点击写入按钮 并不是每次都会插入成功 大神们看下那里错了
|
|
/2 
发表于 2017-1-3 20:47:19
