Aula 935 - Windev Comandos 3/... - LOOP

---

---

---

Video youtube - Se gostou clique aqui para dar um joinha

---

http://doc.windev.com/en-US/?1510004&name=LOOP

---

Windev Curso Comandos/1 ... Condição - If
Windev Curso Comandos/2 ... Condição - Switch
Windev Curso Comandos/3 ... Loop
Windev Curso Comandos/4 ... WHILE
Windev Curso Comandos/5 ... For 
Windev Curso Comandos/6 ... For Tabelas
Windev Curso Comandos/7 ... For String 
Windev Curso Comandos/8 ... For Table
Windev Curso Comandos/9 ... Stop

---

Ordem Alfabetica

For - Windev Curso Comandos/5 ... 
For String - Windev Curso Comandos/7 ...
For Tabelas - Windev Curso Comandos/6 ... 
For Table - Windev Curso Comandos/8 ...  
If - Windev Curso Comandos/1 ... Condição -
Loop - Windev Curso Comandos/3 ... 
Stop Debug - Windev Curso Comandos/9 ...
Switch - Windev Curso Comandos/2 ... Condição -
WHILE - Windev Curso Comandos/4 ... 

---

---

//Exemplo 1
s_nome is string=""
LOOP
    Input("Digite Nome",s_nome)
    IF s_nome<>"" THEN
        BREAK
    END
END
//Exemplo 2
n_contador is int=0
LOOP
    n_contador++
    Trace(n_contador)
    IF n_contador>100 THEN
        BREAK
    END
   
END
//Exemplo 3
n_contador=0
LOOP
    n_contador++
TO DO WHILE n_contador<200
//Exemplo 4
n_contador=0
LOOP (300)
    n_contador++
END

---

---

---

Aula 934 - Windev Comandos 2/... - SWITCH

---

---

---

Video Youtube - Se Gostou Do Video,clique aqui,para dar um Joinha

---

http://doc.windev.com/en-US/?1510008&name=SWITCH

---

Windev Curso Comandos/1 ... Condição - If
Windev Curso Comandos/2 ... Condição - Switch
Windev Curso Comandos/3 ... Loop
Windev Curso Comandos/4 ... WHILE
Windev Curso Comandos/5 ... For 
Windev Curso Comandos/6 ... For Tabelas
Windev Curso Comandos/7 ... For String 
Windev Curso Comandos/8 ... For Table
Windev Curso Comandos/9 ... Stop

---

Ordem Alfabetica

For - Windev Curso Comandos/5 ... 
For String - Windev Curso Comandos/7 ...
For Tabelas - Windev Curso Comandos/6 ... 
For Table - Windev Curso Comandos/8 ...  
If - Windev Curso Comandos/1 ... Condição -
Loop - Windev Curso Comandos/3 ... 
Stop Debug - Windev Curso Comandos/9 ...
Switch - Windev Curso Comandos/2 ... Condição -
WHILE - Windev Curso Comandos/4 ... 

---

Nessa aula vou mostrar varias opcoes da condição SWITCH

In this lecture I will show several options the SWITCH condition

---

EDT_resultado=""
SWITCH EDT_idade
    CASE <= 18
        EDT_resultado="Menor ou igual 18 anos"
    CASE >=60
        EDT_resultado="Maior ou igual que 60"   
    CASE 19 : EDT_resultado="19 anos"   
    CASE 20
        EDT_resultado="20 anos"
    CASE 21,22,23
        EDT_resultado="21 22 23"
    CASE 24 TO 30
        EDT_resultado="entre 24 a 30 anos"
    CASE 31 <*< 40
        EDT_resultado="Entre 32 ate 39 anos"   
    OTHER CASE       
END

---

---

---

---

---

Aula 933 Curso WinDev - Arquivos - 019 - FloadTExt/For each String

---

---

---

---

Video Youtube - Se gostou do video,clique aqui,para dar um joinha

 

---

http://doc.windev.com/en-US/?3036006&name=floadtext_function

---

_diretorio_contador is string="D:\amarildo\jairo\Contador_zip\pdf.txt"
s_texto is string=fLoadText(_diretorio_contador)
TableDeleteAll(TABLE_linha)

FOR EACH STRING s_diretorio_arquivo OF s_texto SEPAREE BY CR
    TableAddLine(TABLE_linha,s_diretorio_arquivo)
END

---

WinDev - Arquivos - 001/... Lista Arquivos - fListFile
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
WinDev - Arquivos - 017/... Lista Diretorio - FListDirectory
WinDev - Arquivos - 018/... Ler Arquivo - FLoadText
WinDev - Arquivos - 019/... Ler Arquivo e Colocar Tabela - FLoadText 

SEPARAR NOME ARQUIVO - - ARQUIVOS - 020 - AULA 1189

---

---

---

---

---

---

---

---

Aula 932 - Windev Zip 1/... - ZipCreate/ZipAddFile/ZipClose

---

---

---

Video Youtube - Se gostou clique aqui para dar um joinha

---

http://doc.windev.com/en-US/search2.awp?q=zipCreate&mode=user&origin=searchbox

http://doc.windev.com/en-US/?1000003082005&name=zipClose_example

http://doc.windev.com/en-US/?1000003082003&name=zipCreate_example

http://doc.windev.com/en-US/?1000003082008&name=zipAddFile_example
_path_nome_zip is string="E:\aleva\Contador_Mandar\Arquivo.zip"
_arquivo_zip is zipArchive
n_cria_zip is int=zipCreate(_arquivo_zip,_path_nome_zip)
nResAddFile is int =0
IF n_cria_zip=0 THEN
    //colocar os arquivos a ser compactados
        s_nome_arquivo is string="E:\aleva\conferencia.txt"   
    //colocar os arquivos a ser compactados
    //adicionando arquivo para zip com diretorio incluido
        nResAddFile= zipAddFile(_arquivo_zip,    s_nome_arquivo, zipDrive)   
    //
    //adicionado arquivo somente
        nResAddFile= zipAddFile(_arquivo_zip,    s_nome_arquivo, zipNone)   
END
zipClose(_arquivo_zip)

---

---

---

---

---

---

---

Windev Curso Zip /1 ... Criar/Adicionar/Fechar - ZipCreate/ZipAddFile/ZipClose
DICAS 2035 - WINDEV - CURSO ZIP 2 - zipOpen - ZipExtractAll
DICAS 2036 - WINDEV - CURSO ZIP 3 - zipListFile
https://windevdesenvolvimento.blogspot.com/2019/03/dicas-2037-windev-curso-zip-4.html

---

---