Páginas

▼

domingo, 4 de dezembro de 2022

Dica 3847 - DiskFile - Lidar com Arquivos Textos - Novidades Versao 28 - 116 - Nov 5 - Windev-webdev-mobile




-------------------------------------------------------

PARA ADQUIRIR WINDEV WEBDMOBILE WEBDEV
ENTRE EM CONTATO COM 
ADRIANO BOLLER 
DA WXSOLUÇÕES





-------------------------------------------------------

Youtube

https://youtu.be/rGEhPNehuXc




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)

----------------------







-----------------------------------------------------------------------------------------------------------------------------


às

Nenhum comentário:

Postar um comentário