pcsoft.br.windevCopyright 2026, PC SOFT27 Feb 2015 16:06:52 Z21 Feb 2015 15:50:04 Z[code:wl] 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()) [/code]30WEBDEVpt_BRhttps://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/81-exemplo-como-ler-arquivo-txt-windev-mobile/read.awpmoderateur@pcsoft.fr (Le modérateur)webmaster@pcsoft.fr (Le Webmaster)Bollerpcsoft.br.windevhttps://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/81-exemplo-como-ler-arquivo-txt-windev-mobile-110/read.awp27 Feb 2015 16:06:52 ZOla Marcos, é a questao de ser ANSI, Unicode ou UTF-8, se retornou deu certo, apesar de ser um monte de besteiras como vc mesmo …https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/81-exemplo-como-ler-arquivo-txt-windev-mobile-110/read.awphttps://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/81-exemplo-como-ler-arquivo-txt-windev-mobile-110/read.awpWM - Exemplo de como ler um arquivo txt no Windev Mobilemarcosfrancesconpcsoft.br.windevhttps://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/81-exemplo-como-ler-arquivo-txt-windev-mobile-108/read.awp27 Feb 2015 14:59:29 Ztestei mas não funcionou quando da leitura freadline o conteúdo é um monte de besteira....https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/81-exemplo-como-ler-arquivo-txt-windev-mobile-108/read.awphttps://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/81-exemplo-como-ler-arquivo-txt-windev-mobile-108/read.awpWM - Exemplo de como ler um arquivo txt no Windev Mobilemarcosfrancesconpcsoft.br.windevhttps://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/81-exemplo-como-ler-arquivo-txt-windev-mobile-107/read.awp27 Feb 2015 14:58:17 Zadrianoboller escreveu: > [code:wl] > PROCEDURE ReadFile(ArquivoTxt is string, TipoUnicodeToAnsi is string) > > //Le arq…https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/81-exemplo-como-ler-arquivo-txt-windev-mobile-107/read.awphttps://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/81-exemplo-como-ler-arquivo-txt-windev-mobile-107/read.awpWM - Exemplo de como ler um arquivo txt no Windev Mobile