Windev21 Aulas,Estudos e Desenvolvimento

quarta-feira, 16 de março de 2016

WinDev - Arquivos - 001/... Listar Arquivos de um Diretório e Mostrar Tabela
WinDev - Arquivos - 002/... Diretório - Verificar Se Existe - fDirectoryExist
WinDev - Arquivos - 003/... Diretorio - Criar - FmakeDir
WinDev - Arquivos - 004/... Arquivos - Extrair Dados - Fextractpath
WinDev - Arquivos - 005/... Renomear Arquivos - FRename
WinDev - Arquivos - 006/... Diretório - Verificar Se Existe - FDirExist
WinDev - Arquivos - 007/... Ver Se Arquivo Existe - FFileExist
WinDev - Arquivos - 008/... FcopyFile - > Copiar Arquivos

Nessa aula vou mostrar como extair dados do arquivo

This lesson will show you how extair file data

Cette leçon va vous montrer les données de fichier comment extair

SAI_Arquivo=SAI_DIRETORIO+TABLE_lista_arquivos.COL_Nome_arquivo
sNomearquivo is string
sNomearquivo = fExtractPath(SAI_Arquivo,fDirectory)
SAI_resposta="fddire:"+sNomearquivo+CR
sNomearquivo = fExtractPath(SAI_Arquivo,fDrive)
SAI_resposta+="Drive:"+sNomearquivo+CR
sNomearquivo = fExtractPath(SAI_Arquivo,fExtension)
SAI_resposta+="extensao:"+sNomearquivo+CR
sNomearquivo = fExtractPath(SAI_Arquivo,fFileName)
SAI_resposta+="filenam:"+sNomearquivo+CR

terça-feira, 15 de março de 2016

LISTAGEM DO FÓRUM OFICIAL WinDev

Menu Forum wxinformatica.blogspot.com.br/p/indice.html

Wx - Exemplo de como ler um site de html

Forum.pcsoft.fr/fr-FR/pcsoft.br.windev/1056-exemplo-como-ler-site-html-1058/read.awp

Posté le 15 mars 2016 - 18:55

Prezados,

Segue exemplo de como ler um site de html

Procedure Importar()

//ChangeCharset(charsetDefault)

Existe is boolean = False

Aspas, Inicial is int

Texto, NovoTexto, sArquivo is string = ""

HDeleteAll(T003_LinksForum)

TableDisplay(TABLE_T003_LinksForum,taReExecuteQuery)

TableDisplay(TABLE_T003_LinksForum,taInit)

IF sFile <> "" THEN

sBuffer = fLoadBuffer(sFile)

//Leitura
HourGlass(True)

Multitask(1)

nPosAtual, nPosIni, nPosFim are int = 0

nTotal is int = Length(sBuffer)

LOOP (nTotal)

nPosAtual += 1

Multitask(1)

IF Middle(sBuffer,nPosAtual,8) = "<a href="
nPosIni = nPosAtual
END

IF Middle(sBuffer,nPosAtual,4) = "</a>"
nPosFim = nPosAtual + 4
END

IF nPosIni > 0 AND nPosFim > 0 AND nPosFim >= nPosIni THEN

Texto = Middle(sBuffer,nPosIni,nPosFim-nPosIni)

T003_LinksForum.T003_Extraido = Texto

Aspas = PositionOccurrence(Texto,Charact(34),firstRank,FromBeginning)

Aspas = PositionOccurrence(Texto,Charact(34),nextRank,FromBeginning) - 10

T003_LinksForum.T003_Link = Middle(Texto,10,Aspas)

Inicial = PositionOccurrence(Texto,">",firstRank,FromBeginning) + 1

NovoTexto = Middle(Texto,Inicial,1024)

NovoTexto = Replace(NovoTexto,"</a>","")

T003_LinksForum.T003_Titulo = NoAccent( UTF8ToString( NovoTexto ) )

T003_LinksForum.T003_NovoArquivo = "<a href="+Charact(34)+T003_LinksForum.T003_Link+Charact(34)+">"+T003_LinksForum.T003_Titulo+"</a>" 

IF PositionOccurrence(NovoTexto,"[",firstRank,FromBeginning) > 0 AND...
PositionOccurrence(NovoTexto,"]",firstRank,FromBeginning) > 0
Existe = True
ELSE
Existe = False 
END

IF NovoTexto <> "Annuler l'abonnement" AND Existe = True
HAdd(T003_LinksForum)
END

Multitask(1)

nPosIni = 0

nPosFim = 0

END

END 

//Elimina o que nao é necessário
FOR EACH T003_LinksForum 
IF T003_LinksForum.T003_Titulo = "" THEN
HDelete(T003_LinksForum)
END 
END

ELSE
Info("Informe o arquivo html ou txt a ser importado") 
END

TableDisplay(TABLE_T003_LinksForum,taReExecuteQuery)

TableDisplay(TABLE_T003_LinksForum,taInit)

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.blogspot.com.br/

Vous devez être connecté pour évaluer ce message

adrianoboller

Membre enregistré
1 545 messages
Popularité : +89 (91 votes)

Posté le 15 mars 2016 - 18:56

Para remover a acentuação na importação use:

NovoTexto = NoAccent( UTF8ToString( NovoTexto ) )

adrianoboller

Membre enregistré
1 545 messages
Popularité : +89 (91 votes)

Posté le 15 mars 2016 - 19:04

Prezados

E para gerar o txt do resultado obtido da lista de links de um site:

Procedure GerarTXT()

ok is boolean

Texto is string = "<html><head></head><body><br><br><br>"

FOR EACH T003_LinksForum 

Texto += T003_LinksForum.T003_NovoArquivo + "<br>"

END

Texto += "</body></html>"

ok = fSaveText("c:\temp\links.txt",Texto)

ok = fSaveText("c:\temp\links.html",Texto)

IF ok = True THEN
Info("Arquivos gerados com sucesso!")
ELSE 
Info("Ocorreu um erro: "+ ErrorInfo())
END

Bons estudos!!!!

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller

Páginas

quarta-feira, 16 de março de 2016

Curso WinDev - Arquivos - 004 - Arquivos - Extrair Dados - FextractPath

Video Youtube

terça-feira, 15 de março de 2016

LISTAGEM DO FÓRUM OFICIAL WinDev

Wx - Exemplo de como ler um site de html

Teste

Marcadores