still at 0.09 s

with:
    
    
    var
      flDurat: float = 0.0
      sFind: string  = seqParams[1].replace("\"", "")
      sLine: string  = ""
    
    let
      sFile: string     = seqParams[0]
      sReplaced: string = seqParams[2].replace("\"", "")
      flTime            = cpuTime()
    
    let f2 = open(sFile.replace(".", "_new."), fmWrite)
    
    let f = open(sFile)
    
    while f.readLine(sLine):
      f2.writeLine(sLine.replace(sFind, sReplaced))
    
    Run

ps. this forum answers veeery slow at times, takes a whole minute to open up a 
page 

Reply via email to