MXStudio » Diogo_Romano http://www.mxstudio.com.br Macromedia e Adobe - Artigos, colunas, tutorias e muito mais... Sun, 29 Jan 2012 11:31:48 +0000 en hourly 1 http://wordpress.org/?v=3.1.3 Inserindo lista de e-mails no banco direto de um arquivo .txt http://www.mxstudio.com.br/desenvolvimento/coldfusion/inserindo-lista-de-e-mails-no-banco-direto-de-um-arquivo-txt/ http://www.mxstudio.com.br/desenvolvimento/coldfusion/inserindo-lista-de-e-mails-no-banco-direto-de-um-arquivo-txt/#comments Tue, 13 Jan 2009 10:38:42 +0000 Diogo_Romano http://www.mxstudio.com.br/?p=2094 Prezados,

 

Depois de muito tempo faço um retorno rápido, mas creio ajudar muitos com esse tutorial.

Devemos tirar esse pensamento de linguagem engessada que o coldFusion tem principalmente no mercado brasileiro, mostrar como ele pode ser poderoso e rápido se o aplicativo for bem programado.

 

Vamos lá:

Funcionalidades – Carrega um arquivo txt, valida e grava os resultados no banco diretamente.

Para testar acessem meu sistema de newsletter:

http://www.penseache.com.br/adm/newsfusion/login.cfm

Usuário = teste
senha = teste

Vamos aos problemas:

Não podemos esquecer que se trata de uma linguagem web,  não tentem carregar arquivos com mais de 20 mil e-mails por que vai demorar, ele foi desenvolvido para carregar com tranqüilidade um txt com no máximo 10 mil e-mails, demora em torno de 5 minutos, dependendo da conexão.

A primeira versão  desenvolvi direto em Cold sem nenhum objeto, de forma errada, uma programação ineficiente, com mais calma vi que poderia chamar o objeto  java.io.FileReader, que nesse caso grava o conteúdo na memória antes de inserir no banco.

Próximas versões:

Limitar a qtd de e-mails por arquivo para 10 mil no Max.
Verificar a duplicidade dos e-mails cadastrados no perfil. ( acrescentar mais 3 min no carregamento)

Ele carrega arquivos da seguinte forma:

email@provedor.com.br
email@provedor.com.br
.
.
email@provedor.com.br

Um sob o outro, sem espaços, fiz desta forma pois a maioria dos programas que constroem essas listas o fazem desta forma.

Código:

——————teste_carrega2.cfm ———————–

<cfif isDefined(‘form.envia’)>

<!— teste inicio, efetua o upload do txt —>

<cffile action=”Upload” filefield=”arquivo” destination=”#getDirectoryFromPath(getTemplatePath())#” nameconflict=”overwrite”>

<!———— Seta o arquivo ————>

<cfset arquivo = #cffile.serverFile#>

<!—— função que verifica a integridade do e-mail,  não foi desenvolvida por mim –à
<cfscript>

 function IsEmail(str) {

         if (REFindNoCase(“^['_a-z0-9-]+(.['_a-z0-9-]+)*@[a-z0-9-]+(.[a-z0-9-]+)*.(([a-z]{2,3})|(aero|coop|info|museum|name))$”,str)) return TRUE;

        else return FALSE;

               

                }

</cfscript>

<cfscript>              

fr = createobject(“java”,”java.io.FileReader”);

fr.init(“#getDirectoryFromPath(getTemplatePath())#\#arquivo#”);

br = createobject(“java”,”java.io.BufferedReader”);

br.init(fr);

email_errado =0;

 email_inserido =0;

 queryvirt = queryNew(“NEW_EMAIL”);

 while (br.ready()) {

                 linha = br.readLine();

                 if(IsEmail(#linha#) EQ “true”){

                                email_inserido = email_inserido + 1;

                                QueryAddRow(queryvirt);

                                QuerySetCell(queryvirt, “NEW_EMAIL” , “#linha#” );

                   

                 }

                 else

                 {

                                email_errado = email_errado + 1;

                 }

 }

br.close();

</cfscript>

 

<cfquery name=”queryvirt” dbtype=”query”>

SELECT NEW_EMAIL FROM

queryvirt

</cfquery>

 

   <cfloop query=”queryvirt”>

                   <cfquery datasource=”#dsn#”>

                        INSERT INTO T_NEWSLATER

                        (NEW_EMAIL, NEW_CATEGORIA, email)

                        VALUES

                        (‘#NEW_EMAIL#’,'#form.categoria#’,'#session.email#’)

                    </cfquery>

                </cfloop>

</cfif>

————————————————–

Explicando os pontos importantes:

Crio o objeto JAVA java.io.FileReader
fr = createobject(“java”,”java.io.FileReader”);

Carrego o mesmo
fr.init(“#getDirectoryFromPath(getTemplatePath())#\#arquivo#”);

Crio uma query virtual para armazenar os valores antes dos mesmos serem validados

queryvirt = queryNew(“NEW_EMAIL”);

 

Se o retorno da função for “true” incrementa as variáveis

if(IsEmail(#linha#) EQ “true”){

                                email_inserido = email_inserido + 1;

 

Aqui vem o pulo do gato:

1 Faço um select na no e-mail

2 Faço um loop inserindo os e-mails no banco

<cfquery name=”queryvirt” dbtype=”query”>

SELECT NEW_EMAIL FROM

queryvirt

</cfquery>

   <cfloop query=”queryvirt”>

                   <cfquery datasource=”#dsn#”>

                        INSERT INTO T_NEWSLATER

                        (NEW_EMAIL, NEW_CATEGORIA, email)

                        VALUES

                        (‘#NEW_EMAIL#’,'#form.categoria#’,'#session.email#’)

                    </cfquery>

                </cfloop>

 

Ai vem o código completo:

O mesmo foi escrito bem rápido, desculpe pela identação, não tive muito tempo, estou programando para o Governo.

<cfif not isDefined(“session.admin”) or not isDefined(“session.usuario”)>

<cflocation url=”login.cfm”>

</cfif>

<cfif isDefined(‘form.envia’)>

<!— teste inicio —>

<cffile action=”Upload” filefield=”arquivo” destination=”#getDirectoryFromPath(getTemplatePath())#” nameconflict=”overwrite”>

<!———— Seta o arquivo ————>

<cfset arquivo = #cffile.serverFile#>

<cfscript>

 function IsEmail(str) {

         if (REFindNoCase(“^['_a-z0-9-]+(.['_a-z0-9-]+)*@[a-z0-9-]+(.[a-z0-9-]+)*.(([a-z]{2,3})|(aero|coop|info|museum|name))$”,str)) return TRUE;

        else return FALSE;

                  }

</cfscript>

<cfscript>              

fr = createobject(“java”,”java.io.FileReader”);

fr.init(“#getDirectoryFromPath(getTemplatePath())#\#arquivo#”);

br = createobject(“java”,”java.io.BufferedReader”);

br.init(fr);

email_errado =0;

 email_inserido =0;

 queryvirt = queryNew(“NEW_EMAIL”);

 while (br.ready()) {

                 linha = br.readLine();

                 if(IsEmail(#linha#) EQ “true”){

                                email_inserido = email_inserido + 1;

                                QueryAddRow(queryvirt);

                                QuerySetCell(queryvirt, “NEW_EMAIL” , “#linha#” );

                   

                 }

                 else

                 {

                                email_errado = email_errado + 1;

                 }

 }

br.close();

</cfscript>

<cfquery name=”queryvirt” dbtype=”query”>

SELECT NEW_EMAIL FROM

queryvirt

</cfquery>

   <cfloop query=”queryvirt”>

                   <cfquery datasource=”#dsn#”>

                        INSERT INTO T_NEWSLATER

                        (NEW_EMAIL, NEW_CATEGORIA, email)

                        VALUES

                        (‘#NEW_EMAIL#’,'#form.categoria#’,'#session.email#’)

                    </cfquery>

                </cfloop>

</cfif>

<style type=”text/css”>

<!–

.style1 {

                font-family: Verdana, Arial, Helvetica, sans-serif;

                font-size: 10px;

                font-weight: bold;

}

.style2 {color: #FF0000}

#apDiv1 {

                position:absolute;

                left:0px;

                top:0px;

                width:277px;

                height:93px;

                z-index:1;

}

–>

</style>

<body topmargin=”0″ leftmargin=”0″>

<form action=”teste_carrega2.cfm” method=”post” enctype=”multipart/form-data”>
<table width=”274″ border=”0″ cellspacing=”0″ cellpadding=”0″>
<tr>

    <td colspan=”2″> <span class=”style1″>Carregar arquivo de lista (texto)</span></td>

  </tr>

  <tr>

    <td colspan=”2″><cfif isDefined(‘form.envia’)><table width=”276″ border=”0″ cellpadding=”0″ cellspacing=”0″ class=”style1″>

      <tr>

        <td width=”84″ bgcolor=”#CCFF33″>Inseridos</td>

        <td width=”192″ bgcolor=”#CCFF33″><cfoutput><span class=”style2″>#email_inserido#</span></cfoutput></td>

      </tr>

      <tr>

        <td bgcolor=”#CCFF33″>Errados</td>

        <td bgcolor=”#CCFF33″><cfoutput><span class=”style2″>#email_errado#</span></cfoutput></td>

      </TR>

    </table>

    </cfif></td>

    </tr>

  <tr>

    <td width=”56″ class=”style1″>Arquivo</td>

    <td width=”218″><input name=”arquivo” type=”file” class=”style1″ id=”arquivo”></td>

  </tr>

  <tr>

    <td class=”style1″>Categoria</td>

    <td><input name=”categoria” type=”text” class=”style1″ id=”categoria”></td>

  </tr>

  <tr>

    <td>&nbsp;</td>

    <td><div align=”right”>

      <input name=”envia” type=”submit” class=”style1″ id=”envia” value=”Carregar lista” />

    </div></td>

  </tr>

</table>

</form>

 

O algoritmo acima está funcional, basta criar o CFM e se divertir…

O programa pode ser muito otimizado ainda, vocês tem inteira liberdade para tal.

Grande abraço e bom 2009 !

Diogo Romano Souza

MSN vibeair@hotmail.com

]]> http://www.mxstudio.com.br/desenvolvimento/coldfusion/inserindo-lista-de-e-mails-no-banco-direto-de-um-arquivo-txt/feed/ 0 Vitrine Virtual http://www.mxstudio.com.br/desenvolvimento/coldfusion/vitrine_virtual/ http://www.mxstudio.com.br/desenvolvimento/coldfusion/vitrine_virtual/#comments Sun, 07 May 2006 00:00:00 +0000 Diogo_Romano

Introdução

Meu nome é Diogo Romano Souza, essa minha primeira coluna no MXstudio, certa vez entrei em uma loja virtual, notando que cada vez que atualizava a página, os produtos mudavam, bom até ai não é mistério para ninguém.

Ai pensei, por que não fazer uma vitrine dinâmica de exibição onde de forma aleatória os produtos fossem escolhidos e exibidos.

Pré-requisito

Macromedia ColdFusion MX 7

Objetivo

Mostrar 10 produtos de forma simples, auto-suficiente e versátil.

Conceitos

- Muda de 30 em 30 segundos.
- Também muda quando é atualizado.
- Nunca mostra uma categoria com menos de 6 itens.
- Pode randomizar quantos itens você quiser.
- Facilmente customizavel.

Arquivos do exemplo:

Vitrine.cfm
red_prods.cfm

Conteúdo

Vamos ao trabalho:

Vamos construir o vitrine.cfm.

Esse sistema é muito simples e podem ser usadas várias formas para fazê-lo.

Escolhi o <CFIF> , mas pode ser usado o <CFCASE> também.

<!— INICIANDO COM UM EFEITO BLEND, SÓ PARA EFEITO ESTÉTICO, ESSE EFEITO SÓ FUNCIONA NO IE 5.1+ —>
<meta http-equiv=”Page-Enter” content=”blendTrans(Duration=0.5)”>

<!— VAMOS INICIAR RANDOMIZANDO E ESCOLHENDO 1 ITEM ENTRE 5 —>

<cfset destaque = RandRange(1,5)>

<!— SE O DESTAQUE FOR 1 EXECUTA A QUERY —>

<cfif #destaque# EQ 1>

<cfquery datasource=”#DSN#” name=”mproduto”>

Select * from categoria

where categoria = ‘Contabilidade’

order by nome

</cfquery>

<!— MAS SE O A VARIAVEL #DESTAQUE# IGUAL A 2 EXECUTE A QUERY 2 —>

<cfelseif #destaque# EQ 2>

<cfquery datasource=”#DSN#” name=”mproduto”>

Select * from categoria

where categoria = ‘Apostila’

order by nome

</cfquery>

<!— MAS SE O A VARIAVEL #DESTAQUE# IGUAL A 3 EXECUTE A QUERY 3 —>

<cfelseif #destaque# EQ 3>

<cfquery datasource=”#DSN#” name=”mproduto”>

Select * from categoria

where categoria = ‘Matematica’

order by nome

</cfquery>

<!— MAS SE O A VARIAVEL #DESTAQUE# IGUAL A 4 EXECUTE A QUERY 4 —>

<cfelseif #destaque# EQ 4>

<cfquery datasource=”#DSN#” name=”mproduto”>

Select * from categoria

where categoria = ‘LOGICA’

order by nome

</cfquery>

<!— MAS SE O A VARIAVEL #DESTAQUE# IGUAL A 5 EXECUTE A QUERY 5 —>

<cfelseif #destaque# EQ 5>

<cfquery datasource=”#DSN#” name=”mproduto”>

Select * from categoria

where categoria = ‘Portugues’

order by nome

</cfquery>

</cfif>

<!— PARA DAR UM EFEITO ONMOUSEOVER VAMOS ESCOLHER UMA COR —>

<cfset bgcolor=”F1F1F1″>

<!— VAMOS CRIAR UM REFRESH DE 30 EM 30 SEGUNDOS —>

<META HTTP-EQUIV=”REFRESH” CONTENT=”30; URL=red_prods.cfm”>

<table class=”style1″> <tr>

<!— SE A QUERY MPRODUTO RESULTAR EM MENOS DE 6 ITENS —>

<cfif mproduto.recordcount LT 6>

<!— VAI PARA O SITE DE REFRESH —>

<cflocation url=”red_prods.cfm”>

<cfelse>

<!— SENÃO EXIBE OS 10 PRIMEIROS RESULTADOS ORDENADOS POR NOME LADO A LADO—>

<cfoutput query=”Mproduto” maxrows=”10″>

<td>

<br>

<!— AQUI EXECUTAMOS O EFEITO ONMOUSEOVER – à

<table width=”303″ border=”0″ cellpadding=”0″ cellspacing=”0″ bgcolor=”##F1F1F1″ onMouseOut=”this.bgColor=’###bgcolor#’” onMouseOver=”this.bgColor=’##BBBBBB’”>

<tr>

<td width=”113″ rowspan=”3″ ><div align=”center”><img src=”Administrador/adm_cat_padrao/# fotos#” width=”90″ height=”80″></div></td>

<td width=”180″><font size=”1″ face=”Verdana, Arial, Helvetica, sans-serif”># nome#</font></td>

</tr>

<tr>

<td></td>

</tr>

<tr>

<td><strong><font color=”red” size=”1″ face=”Verdana, Arial, Helvetica, sans-serif”>#Dollarformat(preco)#</font></strong></td>

</tr>

</table>

</td>

<!— SE O RESTO DA DIVISÃO POR 2 FOR 0 —>

<cfif Mproduto.CurrentRow MOD 2 IS 0>

</tr>

<tr>

</tr></cfif>

</cfoutput>

</cfif>

</table>

Agora vamos dar início ao red_prods.cfm .

Tudo que ele faz é montar um caminho que recarrega automaticamente a pag vitrine.cfm, mesmo que o visitante não clique em nada.

<html xmlns=”http://www.w3.org/1999/xhtml “>

<head>

<meta http-equiv=”Content-Type” content=”text/html; charset=iso-8859-1″ />

<title> red_prods </title>

<style type=”text/css”>

<!–

body {

background-color: #CAEEFF;

}

–>

</style>

</head>

<body>

<p align=”center” class=”style26″>Escolhendo mais produtos, arguarde 3 segundos, por favor.</p>

<p align=”center” class=”style26″><img src=”loading.gif ” width=”78″ height=”7″ /></p>

<META HTTP-EQUIV=”REFRESH” CONTENT=”3; URL= vitrine.cfm”>

</body>

</html>

Lembro que recebi muitos e-mails perguntando como eu fazia esse efeito, perguntavam se era AJAX, quando eu falei que era um truque com IFRAME e Random ficaram surpresos.

Pode-se utilizar o próprio vitrine.cfm ou como eu recomendo o iframe desta forma:

Crie um arquivo HTM ou CFM e cole esse iframe, pode ser executado remotamente de um servidor para outro também, basta mudar o “src”.

<iframe width=”640″ height=”550″ src=”vitrine.cfm ” scrolling=”auto” frameborder=”0″></iframe>

Para ver o exemplo funcionando:

www.casadosconcursos-rj.com.br

Grande abraço!

–
Diogo Romano Souza

]]> http://www.mxstudio.com.br/desenvolvimento/coldfusion/vitrine_virtual/feed/ 0