|
Inicio → WINDEV 25 → WM - Exemplo de como ler um arquivo txt no Windev Mobile |
WM - Exemplo de como ler um arquivo txt no Windev Mobile |
Iniciado por adrianoboller, fev., 21 2015 3:50 PM - 3 respostas |
| |
| | | |
|
| |
Membro registado 3.651 mensagems Popularité : +175 (223 votes) |
|
Publicado em fevereiro, 21 2015 - 3:50 PM |
Procedure ReadFile(ArquivoTxt is string, TipoUnicodeToAnsi is string)
Info(TimeSys())
PathFile is string = ArquivoTxt IdFile, ResCloseFile, FileID, NumeroLinha is int Line is string
NextTitle("Atencao")
IF fFileExist(ArquivoTxt) = True
FileID = fOpen(PathFile,foReadWrite) IF IdFile = -1 THEN Error(ErrorInfo(errMessage)) ELSE
IF TipoAnsiUnicode = "UnicodeToAnsi" Line = UnicodeToAnsi(fReadLine(FileID)) ELSE Line = fReadLine(FileID) END
NumeroLinha = 1
WHILE Line <> EOT AND Line <> ""
NumeroLinha += 1 Line = fReadLine(FileID)
END IF Line = "" THEN Error(ErrorInfo(errMessage)) IF Line = EOT THEN Info("Final do Arquivo.") ResCloseFile = fClose(IdFile) IF ResCloseFile = -1 THEN END
END
ELSE Info("Arquivo não encontrado!") END
Info(NumeroLinha,TimeSys()) |
| |
| |
| | | |
|
| | |
| |
Publicado em fevereiro, 27 2015 - 2:58 PM |
adrianoboller escreveu:
Procedure ReadFile(ArquivoTxt is string, TipoUnicodeToAnsi is string)
Info(TimeSys())
PathFile is string = ArquivoTxt IdFile, ResCloseFile, FileID, NumeroLinha is int Line is string
NextTitle("Atencao")
IF fFileExist(ArquivoTxt) = True
FileID = fOpen(PathFile,foReadWrite) IF IdFile = -1 THEN Error(ErrorInfo(errMessage)) ELSE
IF TipoAnsiUnicode = "UnicodeToAnsi" Line = UnicodeToAnsi(fReadLine(FileID)) ELSE Line = fReadLine(FileID) END
NumeroLinha = 1
WHILE Line <> EOT AND Line <> ""
NumeroLinha += 1 Line = fReadLine(FileID)
END IF Line = "" THEN Error(ErrorInfo(errMessage)) IF Line = EOT THEN Info("Final do Arquivo.") ResCloseFile = fClose(IdFile) IF ResCloseFile = -1 THEN END
END
ELSE Info("Arquivo não encontrado!") END
Info(NumeroLinha,TimeSys()) |
| |
| |
| | | |
|
| | |
| |
Publicado em fevereiro, 27 2015 - 2:59 PM |
testei mas não funcionou quando da leitura freadline o conteúdo é um monte de besteira.... |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.651 mensagems Popularité : +175 (223 votes) |
|
Publicado em fevereiro, 27 2015 - 4:06 PM |
Ola Marcos, é a questao de ser ANSI, Unicode ou UTF-8, se retornou deu certo, apesar de ser um monte de besteiras como vc mesmo usou a palavra vc tem que verificar se esta vindo o ANSI, Unicode ou UTF-8, dai fazer os testes, mas funciona sim o codigo... Eu nao coloquei todos os detalhes, mas esta ai para vc nao ter que fazer tudo isso do zero. Recomendo verificar os comando de conversao ANSI, Unicode ou UTF-8, se deve ou nao ser usado no arquivo. E assim soliciona o teu problema. Funciona perfeitamente aqui, ok. |
| |
| |
| | | |
|
| | | | |
| | |
|