EDT_Text1=""
_arquivo is string="E:\ALEVA\TESTE\AMARILDO.TXT"
_arquivo_id is int=fOpen(_arquivo,foReadWrite)
IF _arquivo_id<>-1 THEN
slinha is string=""
LOOP
slinha=fReadLine(_arquivo_id)
IF slinha=EOT THEN
BREAK
ELSE
EDT_Text1+=slinha+CR
END
END
END
fClose(_arquivo_id)
//Frances
EDT_Text1=""
_arquivo_f est chaîne="E:\ALEVA\TESTE\AMARILDO.TXT"
_arquivo_id_f est entier=fOuvre(_arquivo,foLectureEcriture)
SI _arquivo_id_f<>-1 ALORS
slinha est chaîne=""
BOUCLE
slinha=fLitLigne(_arquivo_id_f)
SI slinha=EOT ALORS
SORTIR
SINON
EDT_Text1+=slinha+RC
FIN
FIN
FIN
fFerme(_arquivo_id_f)
//Salvar Arquivo
_arquivo is string="E:\ALEVA\TESTE\AMARILDO.TXT"
fSaveText(_arquivo,EDT_Text1)
//Frances
//Salvar Arquivo
_arquivo_f est chaîne="E:\ALEVA\TESTE\AMARILDO.TXT"
fSauveTexte(_arquivo_f,EDT_Text1)
//Blog com Video e Exemplo
http://windevdesenvolvimento.blogspot.com.br/2016/09/curso-windev-arquivos-014-arquivos.html
https://www.youtube.com/watch?v=yeYXUEqWoCw
//Blog com Video e Exemplo
http://windevdesenvolvimento.blogspot.com.br/2016/09/curso-windev-arquivos-014-arquivos.html
https://www.youtube.com/watch?v=yeYXUEqWoCw