Curso WinDev - Arquivos - 015 - Arquivos - fOpen/fReadLine/fClose/fSaveText

---

---

---

---

Video Youtube - Se gostou Clique Aqui para dar Joinha

 

---

Nessa aula vou mostrar como abrir,modificar,gravar e Fechar Texto

In this lecture I will show how to open, modify, save and Close Text

Dans cette conférence, je vais vous montrer comment ouvrir, modifier, enregistrer et fermer Texte
 

---

http://doc.windev.com/en-US/?3036046&name=fSaveText
http://doc.pcsoft.fr/fr-FR/?3036046&name=fsauvetexte_fonction

---

WinDev - Arquivos - 001/... Listar Arquivos - de um Diretório e Mostrar Tabela
WinDev - Arquivos - 002/... Existe Diretório - Verificar Se Existe - fDirectoryExist
WinDev - Arquivos - 003/... Criar Diretorio - FmakeDir
WinDev - Arquivos - 004/... Extrair Dados Arquivos - Extrair Dados - Fextractpath
WinDev - Arquivos - 005/... Renomear Arquivos - FRename
WinDev - Arquivos - 006/... Existe Diretório - Verificar Se Existe - FDirExist
WinDev - Arquivos - 007/... Existe Arquivo - FFileExist
WinDev - Arquivos - 008/... Copiar Arquivos - FcopyFile - >
WinDev - Arquivos - 009/... Adicona Texto num arquivo - FAddText ( )
WinDev - Arquivos - 010/... Espaco Diretorio - FDirSize/ LengthtoString
WinDev - Arquivos - 011/... Informações hd - FDriveInfo -
WinDev - Arquivos - 012/... Elimina Arquivos - FDelete -
WinDev - Arquivos - 013/... Drive está Ok - FDriveReady -
WinDev - Arquivos - 014/... Imagen Procura - FImageSelect
WinDev - Arquivos - 015/... Abrir-Modificar-Gravar-Fechar fOpen/fReadLine/fClose/fSaveText
WinDev - Arquivos - 016/... Lista Discos - FListDisk   

Menu Ordem Alfabética

WinDev - Arquivos - 015/... Abrir-Modificar-Gravar-Fechar fOpen/fReadLine/fClose/fSaveText
WinDev - Arquivos - 009/... Adicona Texto num arquivo - FAddText ( )
WinDev - Arquivos - 008/... Copiar Arquivos - FcopyFile - >
WinDev - Arquivos - 003/... Criar Diretorio - FmakeDir
WinDev - Arquivos - 013/... Drive está Ok - FDriveReady -
WinDev - Arquivos - 012/... Elimina Arquivos - FDelete -
WinDev - Arquivos - 010/... Espaco Diretorio - FDirSize/ LengthtoString
WinDev - Arquivos - 007/... Existe Arquivo - FFileExist
WinDev - Arquivos - 002/... Existe Diretório - Verificar Se Existe - fDirectoryExist
WinDev - Arquivos - 006/... Existe Diretório - Verificar Se Existe - FDirExist
WinDev - Arquivos - 004/... Extrair Dados Arquivos - Extrair Dados - Fextractpath
WinDev - Arquivos - 014/... Imagen Procura - FImageSelect
WinDev - Arquivos - 011/... Informações hd - FDriveInfo -
WinDev - Arquivos - 001/... Listar Arquivos - de um Diretório e Mostrar Tabela
WinDev - Arquivos - 017/... Lista Diretorio - FListDirectory  
WinDev - Arquivos - 016/... Lista Discos - FListDisk  
WinDev - Arquivos - 005/... Renomear Arquivos - FRename

---

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)

---

---

---

---