FOROS PROFESIONALES
WINDEV
,
WEBDEV
y
WINDEV Mobile
Inicio
|
Mensajes recientes
|
Conéctese...
|
Desconectar
|
Español
Inicio
→
WINDEV 25
→
Ler/Gravar Unicode/ANSI
Ler/Gravar Unicode/ANSI
Iniciado por JOSE ELIELSON SILVA, 26,may. 2015 19:10 - No hay respuesta
Conéctese…
JOSE ELIELSON SILVA
#1
Miembro registrado
14 mensajes
Popularité : +5 (7 votes)
Publicado el 26,mayo 2015 - 19:10
/////// para ler o arquivo em Unicode gerado por um app feito em Windev Mobile para Android ou iOS
MyUnicodeString is UNICODE
string
s
Line
is
string
=
""
s
TextFileUnicode is
string
=
"c:\tmp\00010101.txt"
// formato Unicode
mLinha
is
string
// aqui coloquei o parametro "foAnsi"
MyUnicodeString
=
fLoadText
(
s
TextFileUnicode
,
foAnsi
)
// carregar o texto
// aqui coloquei o parametro "charsetAnsi"
s
Line
=
UnicodeToAnsi
(
MyUnicodeString
,
charsetAnsi
)
// converter o texto
ListDeleteAll
(
ListBox1
)
ListAdd
(
ListBox1
,
s
Line
)
// jogar o texto convertido em um ListBox
FOR EACH ROW OF ListBox1
// ler linha a linha e tratá-la de acordo com as suas regras
mLinha
=
ListBox1
..
DisplayedValue
// receber o conteudo de cada linha do texto
Trace
(
mLinha
)
// visualizar o conteudo lido em mLinha para efeito didático apenas
END
////////////////// FIM //////////////////
// para gravar o arquivo em unicode por um app iOS/Android feito em Windev Mobile
x
FLagOk is
boolean
FileID is
int
=
fCreate
(
DirPadrao
+
mArquivo
,
foAnsi
)
// aqui coloquei o parametro "foAnsi"
IF
FileID
=
-
1
THEN
Info
(
"Erro ao criar arquivo."
)
x
FlagOk
=
False
RETURN
END
...
// ponha o seu codigo aqui
...
// ponha o seu código aqui
// aqui coloquei o parâmetro ftpASCIIMode
EnviarArquivo is
boolean
=
FTPSend
(
MinhaConexao
,
DirPadrao
+
mArquivo
,
CompleteDir
(
x
PastaPedidos
)
,
""
,
ftpASCIIMode
)
IF
EnviarArquivo
=
False
THEN
Error
(
"Erro ao enviar arquivo para o FTP."
,
ErrorInfo
(
)
)
Info
(
"Arquivo não foi enviado."
,
"Tente enviá-lo novamente."
)
x
FlagOk
=
False
RETURN
END
Informar
0
0
→ Volver a WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Búsqueda Tipo
Sólo temas
Todos los mensajes
Periodo Buscar
Cualquier fecha
Última hora
Última 24 horas
Última semana
Último mes
Último año
Cancelar
Vista previa del mensaje
Añadiendo una imagen
Importar una imagen desde una URL
Enviar una imagen desde un archivo de su disco
Arrastrar un archivo o click en "Examinar..."
o
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto