Importando um arquivo texto remotamente
Sempre nos perguntam como trabalhar com arquivos remotos, tipo como importar um arquivo num servidor remoto ou hospedado num site. Irei postar de forma simples um exemplo de como buscar um arquivo hospedado na web, baixá-lo e importar para dentro de uma rotina do Protheus.
Para começar, iremos utilizar a função HttpGet
Permite emular um client HTTP – Hypertext Transfer Protocol, através de uma função da linguagem AdvPL, acessando um determinado documento HTML, publicado em um servidor Web, utilizando o método GET, permitindo a passagem de parâmetros via URL e aguardando por um tempo determinado (time-out) pela resposta do servidor solicitado.
Para saber mais acesse http://tdn.totvs.com/display/tec/HTTPGet
Iremos montar uma tela contendo uma caixa de texto, um botão e um grid.
Digitamos na caixa de texto o endereço contendo o arquivo, ao clicar no botão iremos baixá-lo e gravar seu conteudo no grid.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 |
#INCLUDE 'PROTHEUS.CH' #INCLUDE "FWBROWSE.CH" User Function EXPLO002() Local oLista Local oPanel Local oUrl Local cUrl := Space(254) Local oDlg Private aItens := {} Private oBrowse1 DEFINE MSDIALOG oDlg Title "Lista de Produtos" FROM 0,0 TO 300,600 PIXEL oPanel:= tPanel():New(00,00,,oDlg,,,,,,100,26) oUrl:= TGet():New( 003, 005,{|u| if(PCount()>0,cUrl:=u,cUrl)},oPanel,255, 010,Nil,{|| },0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,"",cUrl,,,,,,,"Digite o endereço com o arquivo: ",1 ) oBtnBuscar:= tButton():New(011,265,'Baixar' ,oPanel, {|| Baixar(cUrl) },35,12,,,,.T.) oPanel:Align := CONTROL_ALIGN_TOP //Cria o grid que receberá o conteudo do arquivo DEFINE FWBROWSE oBrowse1 DATA ARRAY ARRAY aItens NO CONFIG NO REPORT NO LOCATE OF oDlg ADD COLUMN oColumn DATA { || aItens[oBrowse1:At(),1] } TITLE "Codigo" SIZE 010 HEADERCLICK { || .T. } DOUBLECLICK { || MsgInfo(aItens[oBrowse1:At(),1]) } OF oBrowse1 ADD COLUMN oColumn DATA { || aItens[oBrowse1:At(),2] } TITLE "Descricao" HEADERCLICK { || .T. } OF oBrowse1 ADD COLUMN oColumn DATA { || aItens[oBrowse1:At(),3] } TITLE "Valor" SIZE 010 TYPE "N" HEADERCLICK { || .T. } OF oBrowse1 ADD COLUMN oColumn DATA { || aItens[oBrowse1:At(),4] } TITLE "Status" SIZE 005 HEADERCLICK { || .T. } OF oBrowse1 oBrowse1:ACOLUMNS[1]:NALIGN := 0 //Alinhamento centralizado oBrowse1:ACOLUMNS[3]:NALIGN := 2 //Alinhamento direita oBrowse1:ACOLUMNS[4]:NALIGN := 0 //Alinhamento centralizado oBrowse1:GetBackColor( 16777215 ) oBrowse1:GetClrAlterRow( 16770250 ) oBrowse1:GetDescription("Lista de Codigos") oBrowse1:SetLineHeight(25) //Altura de cada linha ACTIVATE FWBROWSE oBrowse1 ACTIVATE MSDIALOG oDlg CENTERED Return Static Function Baixar(cUrl) Local cTexto := "" Local cHtml := "" Local nHtml := 0 Local nCont := 0 Local aLinha := {} Local nArquivo := 0 Local cArquivo := "\system\arquivoremoto.csv" Local nHdl if Empty(cUrl) Alert("Digite o endereço!") Return Endif //http://tdn.totvs.com/display/tec/HTTPGet Begin Sequence MsAguarde({|| cTexto:= HttpGet(cUrl) },"Aguarde...") End Sequence if Empty(cTexto) Alert("O arquivo não existe ou está vazio!") Return Endif cTexto := Upper(cTexto) nHtml := At(cHtml, cTexto) If nHtml == 0 nArquivo := FCreate( cArquivo, 0 ) //Criação do arquivo FWrite( nArquivo , cTexto) //Populando o arquivo com o conteudo obtido fClose( nArquivo ) //Fechando o arquivo nHdl := fOpen(cArquivo) //Abertura do arquivo texto If nHdl == -1 IF FERROR()== 516 ALERT("Feche o arquivo, antes de importar.") Return EndIF EndIf FSEEK(nHdl,0,0) //Posiciona no Inicio do Arquivo fClose(nHdl) //Fecha o Arquivo FT_FUse(cArquivo) //abre o arquivo FT_FGOTOP() //posiciona na primeira linha do arquivo aItens:={} While !FT_FEOF() //Percorre o arquivo linha a linha AADD(aItens,Separa(FT_FREADLN(),";",.T.)) //Verifica se existe delimitador //e separa em coluna dentro do array FT_FSKIP() //passa para proxima linha EndDo FT_FUse() //Abre e fecha um arquivo texto para disponibilizar às funções FT_F* fClose(nHdl) //Fecha o arquivo if Len(aItens) > 0 //Se existir informações no array atualiza o grid oBrowse1:SetArray(aItens) oBrowse1:Refresh() Endif Endif Return |