自己写的小工具 麻烦大神门看下为什么总出问题

tianmenghuan

变量 线程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)
        退出()
    结束
结束


为什么点击写入按钮 并不是每次都会插入成功  大神们看下那里错了

cjxdn

按CTRL+F
把
f:/3.txt
全部替换
f:\\3.txt