<pedrocorreia.net ⁄>
corner
<mySearch ⁄> <mySearch ⁄>

corner
 
corner
<mySnippets order="rand" ⁄> <mySnippets order="rand" ⁄>

corner
 
corner
<myContacts ⁄> <myContacts ⁄>

<email ⁄>


pc@pedrocorreia.net

<windows live messenger ⁄>


pedrojacorreia@hotmail.com

<myCurriculum type="pdf" ⁄>


Download
corner
 
corner
<myBlog show="last" ⁄> <myBlog show="last" ⁄>

corner
 
corner
<myNews show="rand" ⁄> <myNews show="rand" ⁄>

corner
 
corner
<myNews type="cat" ⁄> <myNews type="cat" ⁄>

corner
 
corner
<myQuote order="random" ⁄> <myQuote order="random" ⁄>

corner
 
corner
<myPhoto order="random" ⁄> <myPhoto order="random" ⁄>

<pedrocorreia.net ⁄>
corner
 
corner
<myAdSense ⁄> <myAdSense ⁄>

corner
 
corner
<myVisitorsMap ⁄> <myVisitorsMap ⁄>

corner
 
 

<Ler dados de um ficheiro TXT ou MDB ⁄ >




clicks: 12123 12123 2006-10-09 2006-10-09 goto mySnippets mySnippets asp  Download  Bookmark This Bookmark This



Para que serve guardar dados se não os analisarmos posteriormente? Sejam eles de que tipo forem, texto, numéricos, etc, etc. Num snippet anterior tinha exemplificado uma possivel forma para de Guardar dados num ficheiro TXT ou MDB, agora irei tentar exemplificar uma possivel maneira de mostrar os dados inseridos pelo cliente (que tanto poderá servir para nós como poderá eventualmente ser mostrado ao cliente, caso assim seja necessário).

Comecemos então por ver a leitura do ficheiro em MDB (terei como base a informação do outro snippet, como tal poderão dar uma vista de olhos e ver como estava estruturada a base de dados).
  1. <%
  2.  
  3. sub showMDB(file)
  4. Dim adoCon 'conecção à base de dados
  5. Dim rsComentarios 'recorset
  6. Dim strSQL
  7. Dim str 'vai armazenar o conteúdo do ficheiro para posteriormente ser enviado para o output
  8.  
  9. Set adoCon = Server.CreateObject("ADODB.Connection") 'criar a ligação do tipo ADODB
  10. adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(file)
  11. Set rsComentarios = Server.CreateObject("ADODB.Recordset") 'criar o recordset
  12. strSQL = "SELECT nome, opiniao,aspectos,pontos FROM dados_comentarios;" 'instrução sql
  13. rsComentarios.Open strSQL, adoCon
  14. Do While not rsComentarios.EOF 'enquanto não chegarmos ao fim da tabela ...
  15. str = str & "<p align='left'>"
  16. str = str & "<br>Nome: " & rsComentarios("nome")
  17. str = str & "<br>Opinião: " & rsComentarios("opiniao")
  18. str = str & "<br>Aspectos Positivos: " & rsComentarios("aspectos")
  19. str = str & "<br>Pontos a Melhorar: " & rsComentarios("pontos")
  20. str = str & "</p>"
  21. rsComentarios.MoveNext 'já temos a informação deste registo, vamos passar ao próximo
  22. Loop
  23.  
  24. Response.Write(str) 'enviar para o output a informação
  25.  
  26. rsComentarios.Close
  27. Set rsComentarios = Nothing
  28. Set adoCon = Nothing
  29. end sub
  30.  
  31. %>



A leitura do ficheiro em TXT será mais fácil e não tão extensa como a leitura no formato MDB, de salientar apenas uma diferença, se repararam no método de ler do MDB, é adicionada informação para que o cliente saiba a que responde a campo (Nome, Aspectos Positivos, etc); ao passo que no TXT (criado no outro snippet) guardavamos logo a descrição da informação, como tal neste método só teremos que nos preocupar com o envio do conteúdo do ficheiro para o output, tal funcionamento poderá nem sempre funcionar correctamente, daí que por vezes teremos de usar uma maneira diferente de ler o conteúdo do ficheiro e enviá-lo para o ecrã.
  1. <%
  2.  
  3. sub showTXT(file)
  4. Dim str 'vai armazenar o conteúdo do ficheiro para posteriormente ser enviado para o output
  5.  
  6. Set fs=Server.CreateObject("Scripting.FileSystemObject")
  7. if not fs.FileExists(Server.MapPath(file)) then
  8. str= "ainda não existem comentários"
  9. else
  10. Set f=fs.OpenTextFile(Server.MapPath(file), 1)
  11. str = str & (replace(f.ReadAll,VbCrLf,"<br>")) 'substituir \n\r por <br> (sensivelmente igual ao nl2br do php)
  12. f.Close
  13. end if
  14.  
  15. Response.Write (str) 'enviar para o output a informação
  16.  
  17. Set f=Nothing
  18. Set fs=Nothing
  19. end sub
  20.  
  21. %>



O html neste snippet será extremamente simples visto não ser este o objectivo do snippet, mas posso recomendar que por exemplo utilizem CSS em vez de estarem a definir os atributos das tags como poderão ver facilmente no meu exemplo, basicamente, sempre que possivel recorram ao uso de css.
  1. <html>
  2. <head>
  3. <title>Questionário - Comentários</title>
  4. </head>
  5. <body bgcolor="white" text="black">
  6. <font face="Tahoma" size="2">
  7. <p align="center"><b>Respostas ao nosso Questionário</b></p>
  8. <%
  9. showMDB "pathToFile/file.mdb"
  10. showTXT "pathToFile/file.txt"
  11. %>
  12. </font>
  13. </body>
  14. </html>



Qualquer erro/ dúvida é só dizer!









clicks: 12123 12123 2006-10-09 2006-10-09 goto mySnippets mySnippets asp  Download  Bookmark This Bookmark This