sábado, 21 de fevereiro de 2015

WM - Exemplo de como ler um arquivo txt no Windev Mobile

http://forum.pcsoft.fr/pt-BR/pcsoft.br.windev/81-exemplo-como-ler-arquivo-txt-windev-mobile/read.awp




---------------------------------------------------------------------------------------------------------------

PROCEDURE ReadFile(ArquivoTxt is string, sTipoUnicodeToAnsi 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())

Nenhum comentário:

Postar um comentário

Teste

Teste
teste