FORUMS PROFESSIONNELS
WINDEV
,
WEBDEV
et
WINDEV Mobile
Accueil
|
Messages récents
|
Connexion
|
Déconnexion
|
Français
Accueil
→
WINDEV 25
→
WM - Exemplo de como ler um arquivo txt no Windev Mobile
WM - Exemplo de como ler um arquivo txt no Windev Mobile
Débuté par adrianoboller, 21 fév. 2015 15:50 - 3 réponses
Connectez-vous…
adrianoboller
#1
Membre enregistré
3 657 messages
Popularité : +175 (223 votes)
Posté le 21 février 2015 - 15:50
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
(
)
)
Signaler
1
0
Marcos Francescon
#2
Posté le 27 février 2015 - 14:58
adrianoboller escreveu:
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
(
)
)
Signaler
1
0
Marcos Francescon
#3
Posté le 27 février 2015 - 14:59
testei mas não funcionou
quando da leitura freadline
o conteúdo é um monte de besteira....
Signaler
0
1
adrianoboller
#4
Membre enregistré
3 657 messages
Popularité : +175 (223 votes)
Posté le 27 février 2015 - 16:06
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.
Signaler
1
0
→ Revenir à WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Type de recherche
Uniquement les sujets
Tous les messages
Période de recherche
Date indifférente
Moins d'une heure
Moins de 24 heures
Moins d'une semaine
Moins d'un mois
Moins d'un an
Annuler
Aperçu de votre message
Ajouter une image
Importer une image depuis une URL
Envoyer une image depuis un fichier de votre disque
Déposez ici un fichier ou cliquez sur "Parcourir..."
ou
Annuler
0%
WLangage
SQL
XML, HTML
JAVA, Javascript
Texte