PROCEDURE ReadFile(ArquivoTxt is string, TipoUnicodeToAnsi is string)
//Le arquivo texto INFO(TIMESYS())
// Declare the variables PathFile is string = ArquivoTxt IdFile, ResCloseFile, FileID, NumeroLinha is int Line is string
NextTitle("Atencao")
IF fFileExist(ArquivoTxt) = true
// Open the file FileID = fOpen(PathFile,foReadWrite) IF IdFile = -1 THEN Error(ErrorInfo(errMessage)) ELSE if TipoAnsiUnicode = "UnicodeToAnsi" //Converte de Unicode para Ansi Line = UnicodeToAnsi(fReadLine(FileID)) else Line = fReadLine(FileID) end //Linha 1 NumeroLinha = 1 /// ----COLOQUE AQUI O PROGRESS BAR = 1 //Info("Linha:" + NumeroLinha, Line) ///----------------- LINHA LIDA //Inclua aqui a SUB Procedure de importacao dos dados
WHILE Line <> EOT AND Line <> "" //Proxima linha NumeroLinha += 1 /// ----COLOQUE AQUI O PROGRESS BAR + 1 Line = fReadLine(FileID) //Info("Linha:" + NumeroLinha, Line) ///----------------- LINHA LIDA //Inclua aqui a SUB Procedure de importacao dos dados END IF Line = "" THEN Error(ErrorInfo(errMessage)) IF Line = EOT THEN Info("Final do Arquivo.") ResCloseFile = fClose(IdFile) IF ResCloseFile = -1 THEN //Error(ErrorInfo(errMessage)) END END
ELSE Info("Arquivo não encontrado!") END
info(NumeroLinha,TIMESYS()) |