Windev21 Aulas,Estudos e Desenvolvimento: 02/08/16

segunda-feira, 8 de fevereiro de 2016

Curso WinDev - Arquivos - 001 - Listar Arquivos de um Diretório e Mostrar na Tabela

Video no youtube

http://doc.windev.com/en-US/?3036050&name=fSelectDir
http://doc.pcsoft.fr/fr-FR/?3036050&name=frepselecteur_fonction

http://doc.windev.com/en-US/?3036058&name=flistfile_function
http://doc.pcsoft.fr/fr-FR/?3036058&name=flistefichier_fonction

Nessa aula vou ensinar como listar os arquivos de um diretorio e mostrar na tabela

This class will teach you how to list the files in a directory and display the table

Cette classe va vous apprendre comment lister les fichiers dans un répertoire et afficher la table

WinDev

//pesquisa diretorio
sRépertoire est une chaîne
sRépertoire = fRepSélecteur("", "")
SAI_DIRETORIO=sRépertoire

//ingles
//sRépertoire_ is string
//sRépertoire_ = fSelectDir("", "")
//SAI_DIRETORIO=sRépertoire_

PROCEDURE prd_VerificaPasta(PastaVerifica is string)
ADirectory is string
ListaArquivos is Structure
caminho is string
END
Listagem is ListaArquivos
arrListaArquivos is array of ListaArquivos
ADirectory = ""
ADirectory = fListDirectory(PastaVerifica)
ArrayDeleteAll(arrListaArquivos)
FOR EACH STRING Listagem.caminho OF ADirectory SEPARATED BY CR
ArrayAdd(arrListaArquivos,Listagem)
END

RESULT arrListaArquivos
//--------------------------------------------------------------------------
PROCEDURE prd_VerificaArquivo(_Caminhoarquivo is string)

sTipoArquivo is string = fExtractPath(_Caminhoarquivo,fExtension);
_Caminho is string = fExtractPath(_Caminhoarquivo,fDrive+fDirectory);
nomedoArquivo is string = fExtractPath(_Caminhoarquivo,fFileName);

LOOP
IF fFileExist(_Caminhoarquivo) = True THEN
BREAK;
ELSE
Info("Atenção","O Arquivo "+nomedoArquivo+" com a extensão "+Upper(sTipoArquivo)+" não foi localizado!","O Arquivo: "+nomedoArquivo+" deve está no seguinte local: "+_Caminho,"Deixe esta mensagem na tela e coloque-a na referida pasta");
END
END

TableDeleteAll(TABLE_lista_arquivos)

s_arquivos_todos is string=fListFile(SAI_DIRETORIO+"*.*")
s_arquivo_individual is string=""
FOR EACH STRING s_arquivo_individual OF s_arquivos_todos SEPARATED BY CR
    s_nome_arquivo is string=fExtractPath(s_arquivo_individual,fFileName+fExtension)
    s_tamanho_arquivo is string=fSize(SAI_DIRETORIO+s_nome_arquivo)    dS_data_arquivo is Date=fDate(SAI_DIRETORIO+s_nome_arquivo)
    hS_hora_arquivo is Time=fTime(SAI_DIRETORIO+s_nome_arquivo)        TableAddLine(TABLE_lista_arquivos,s_nome_arquivo,s_tamanho_arquivo,dS_data_arquivo,hS_hora_arquivo)
END
TableSort(TABLE_lista_arquivos,"-TABLE_lista_arquivos.COL_Data","-TABLE_lista_arquivos.COL_Hora")

//em frances
TableSupprimeTout(TABLE_lista_arquivos)
s_arquivos_todos_f est chaîne=fListeFichier(SAI_DIRETORIO+"*.*")
s_arquivo_individual_f est chaîne=""
POUR EACH CHAÎNE s_arquivo_individual_f DE s_arquivos_todos_f SEPAREE PAR RC
    s_nome_arquivo est chaîne=fExtraitChemin(s_arquivo_individual_f,fFichier+fExtension)
    s_tamanho_arquivo est chaîne=fTaille(SAI_DIRETORIO+s_nome_arquivo)
    dS_data_arquivo est une Date=fDate(SAI_DIRETORIO+s_nome_arquivo)
    hS_hora_arquivo est une Heure=fHeure(SAI_DIRETORIO+s_nome_arquivo)
    TableAjouteLigne(TABLE_lista_arquivos,s_nome_arquivo,s_tamanho_arquivo,dS_data_arquivo,hS_hora_arquivo)
FIN
TableTrie(TABLE_lista_arquivos,"-TABLE_lista_arquivos.COL_Data","-TABLE_lista_arquivos.COL_Hora")

fListFile - Mostrar Arquivos - DICAS 1741 - PUBLICA - WINDEV ARQUIVOS 25 -

fSelectDir - SELECIONA DIRETORIO - DICAS 1742 - PUBLICA - WINDEV ARQUIVOS 26 -
fDelete - ELIMINA ARQUIVO - DICAS 1743 - PUBLICA - WINDEV ARQIVOS 27 -
fExtractPath - Extrair dados arquivos - DICAS 1744 - PUBLICA - WINDEV ARQIVOS 28 -

fCopyFile - COPIAR ARQUIVO - DICAS 1745 - PRIVADA - WINDEV ARQUIVOS 29 -
DICAS 2055 - WINDEV WEBDEV MOBILE - ARQUIVOS 30 - FOR EACH/FOR ALl
DICAS 2064 - WINDEV - ARQUIVOS 31 - ARQUIVO TXT IMPORTAR

Curso WinDev - Xml - 001 - Criar Xml - Manifestação De

Video no Youtube

s_xml_cria is string=[
    <?xml version="1.0" encoding="UTF-8" ?>
    <consNFeDest versao="1.01" xmlns="http://www.portalfiscal.inf.br/nfe">
    <tpAmb>@tpAmb@</tpAmb>
    <xServ>@xServ@</xServ>
    </consNFeDest>
]
s_tpAmb is string=NumToString(nfe_parametro_tpamb,"01d") // 1
s_xServ is string="CONSULTAR NFE DEST" // CONSULTAR NFE DEST

s_xml_cria=Replace(s_xml_cria,"@tpAmb@",s_tpAmb)
s_xml_cria=Replace(s_xml_cria,"@xServ@",s_xServ)

EDT_001_xml=s_xml_cria

Nessa aula vou mostrar como criar um arquivo xml

In this lecture I will show how to create an XML file

Dans cette conférence, je vais vous montrer comment créer un fichier XML

WinDev