帮看一下，搞不定了，怎么都写不了字，一重读就没了

wangsu321

function 注册()
    var is=isregister("dm.dmsoft")
    if(is>0)
    else
        traceprint("not reg")
        regdll("rc:dm.dll",true)
    end
    //fileopen不能建立文件

    var ex=fileexist("rc:set.txt")
    var ex1=fileexist("./set.txt")
    traceprint(ex1)
    if(ex>0)
        var read=filereadlineex("rc:set.txt",2)
        traceprint(read)
        traceprint("有文件")
    else
        traceprint("没有 文件 ")
        filecopy("./set.txt","rc:set.txt",true)
        ex=fileexist("rc:set.txt")
    end

    if(ex>0)
        var line=filegetline("rc:set.txt")
        if(line==1)
            traceprint("0k")
            for(var i = 0; i < 99; i++)
                fileaddtext("rc:set.txt","\r\n")
                sleep(10)            
            end
            line=filegetline("rc:set.txt")
            traceprint(line)
        else
            traceprint(line)
        end
        if(line==100)
            threadbegin("write","")
        else
            traceprint("数据错误,请检查")
            filedelete("rc:set.txt")
            exit()
        end
    end

end
function write()
    for(var i = 0; i < 99; i++)
        filedeleteline("rc:set.txt",i)
        fileinsertline("rc:set.txt",i&"abv",i)
    end
    var line=filegetline("rc:set.txt")
    traceprint(line)
    var read=filereadlineex("rc:set.txt",2)
    traceprint(read)
    fileclose(op)
    if(line==100)
    else
        traceprint("数据错误,请检查")
        var del=filedelete("rc:set.txt")
        traceprint(del)
        exit()
    end
end

wangsu321

filedelete也删除不了

言术

我大概修改了一下，不知道行不行



变量 op,路径

功能 注册()
    路径=系统获取进程路径()&"rc:set.txt"
    变量 ex=文件是否存在(路径)
    如果(!ex)
        调试输出("没有文件,创建文件")
        ex=文件创建(路径,"rw|FILE_SHARE_READ|FILE_SHARE_WRITE")
    结束
   
    如果(ex)
        变量 line=文件获取行数(路径)
        如果(line==1)
            调试输出("0k")
            遍历(变量 i = 0; i < 99; i++)
                文件追加文本(路径,"\r\n")
                等待(10)            
            结束
            line=文件获取行数(路径)
            调试输出(line)
        否则
            调试输出(line)
        结束
        
        如果(line==100)
            线程开启("write","")
        否则
            调试输出("数据错误,请检查")
            文件删除(路径)
            退出()
        结束
    结束
结束

功能 write()
    遍历(变量 i = 0; i < 99; i++)
        文件删指定行(路径,i)
        文件指定行插入(路径,i&"abv",i)
    结束
    变量 line=文件获取行数(路径)
    调试输出(line)
    变量 read=文件读指定行(路径,2)
    调试输出(read)
    文件关闭(op)
    如果(line==100)
    否则
        调试输出("数据错误,请检查")
        变量 del=文件删除(路径)
        调试输出(del)
        退出()
    结束
结束

wangsu321

哦，试了一下，文件还是创建不成功，在路径下没有创建好的 set.txt;大家好奇话都试一下吧；所以我是用的filecopy

言术

wangsu321 发表于 2016-4-15 08:20
哦，试了一下，文件还是创建不成功，在路径下没有创建好的 set.txt;大家好奇话都试一下吧；所以我是用的fil ...

描述一下你想实现的功能，我没看懂你想做什么用的

wangsu321

很简单啊，先写100行空行，然后再里面随便指定哪行写字替换，可惜留不下字。