-------------------------------------------------------
PARA ADQUIRIR WINDEV WEBDMOBILE WEBDEV
ENTRE EM CONTATO COM
ADRIANO BOLLER
DA WXSOLUÇÕES
Email:
Site:
Telegram & Skype:
Site:
Telegram & Skype:
-------------------------------------------------------
Youtube
Playlist
https://www.youtube.com/playlist?list=PLwJwZaqiZW-kLi4fXcvkR-Fp1XSY8P62x
--------------------------------------------------------
Repositorio
---------------------------------------------------------
Blog
------------------------------------------------------
Help Pcsoft
----------------------------------------------------
------------------------
Bom dia..
Hoje vamos ver mais uma função
nova no windev 28-webdev-mobile
DiskFile
é usado para lidar com arquivos de texto
presentes no disco
------------------------
00:00:00 Apresentação
00:00:12 Representante Adriano Boller
00:00:23 Apresentando Novidade
00:00:30 Mostrando Help do windev
00:00:48 Mostrando no Windev 28
00:00:49 Criando a Window diskfile
00:01:03 Explicando o que sera feito
00:01:14 Criando os edt arquivo
00:01:37 Criando botao seleciona e mostrando o codigo
00:02:04 Criando edt texto para gravar e ler
00:02:36 Criando botao para gravar o texto
00:02:47 Criando botao para ler arquivo texto
00:02:55 Criando codigo para gravar arquivo texto
00:05:09 Criando codigo para ler conteudo texto
00:06:41 Executando o codigo
00:07:08 Consideração Final
00:07:19 Mostrando exemplo repositorio
------------------------
-------------------------
Codigo
//gravando arquivo texto
arquivo_txt is DiskFile
arquivo_txt=fOpen(EDT_Nome_arquivo,foReadWrite)
IF NOT ErrorOccurred THEN
ELSE
// deu erro que nao existe
fCreate(EDT_Nome_arquivo)
arquivo_txt=fOpen(EDT_Nome_arquivo,foReadWrite)
END
arquivo_txt.WriteLine("--------------------------")
arquivo_txt.Write(EDT_texto_para_gravar_ou_mostrar)
arquivo_txt.WriteLine("--------------------------")
fClose(arquivo_txt)
--------------------------------
//lendo arquivo texto
arquivo_txt is DiskFile
arquivo_txt=fOpen(EDT_Nome_arquivo,foReadWrite)
IF NOT ErrorOccurred THEN
EDT_texto_para_gravar_ou_mostrar=arquivo_txt.Read(147483648)
//lendo por linha
LOOP
retorno_linha is string=arquivo_txt.ReadLine()
IF retorno_linha=EOT THEN
BREAK
ELSE
Trace(retorno_linha)
END
END
END
Info("mostrado dados")
fClose(arquivo_txt)
----------------------
 |
-----------------------------------------------------------------------------------------------------------------------------
DICA 3844 - Novidades Versao 28 - Diagramas Pode desenhar mao livre - Novidade 3
-----------------------------------------------------------------------------------------------------------------------------
