Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
18 usuários online :: 1 usuário cadastrado, Nenhum Invisível e 17 Visitantes :: 2 Motores de busca

Douglas Pascini

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
» Conexão Sql Server
Hoje à(s) 12:18 por Douglas Pascini

» como fazer essa imagem clicavel
Ontem à(s) 13:56 por flavio dos reis

» USAR REPORT FORM
20/1/2017, 15:00 por ImRicoh

» Impressora Ticket
20/1/2017, 08:25 por ImRicoh

» Visite meu canal no Youtube
20/1/2017, 00:45 por ImRicoh

» Protocolo de comunicação porta serial
19/1/2017, 16:48 por rodiney

» Bloquear edição do ListBox
17/1/2017, 23:38 por Dipaula

» Ajuda em Script VBS
16/1/2017, 11:22 por carlosdantasf

» automação do mozilla e chrome
15/1/2017, 12:16 por Handerson Mildroz

» Aplicação Android algoritmos de aprendizagem pseudocódigo
4/1/2017, 01:09 por diegoveloper

» COMO ESTÃO DESENVOLVENDO EM WEB?
3/1/2017, 10:21 por felipe.palucoski

»  Um For não enxerga outro no DataGrid! (VIsual Basic)
2/1/2017, 12:44 por Ana Waldila

» C# criar checkBox Transparente
28/12/2016, 12:26 por flavio dos reis

» Menu lateral exemplo em VFP
28/12/2016, 11:55 por mxavier

» dll pertocheck
23/12/2016, 13:47 por FERNANDOMATRELLA

» Rota de um arquivo
23/12/2016, 09:01 por Julio

» BANIMENTO DE USUARIO
22/12/2016, 12:48 por Marcos Guedes

» USAR WEBSERVICE NO VFP9
20/12/2016, 18:33 por FAF

» CALCULO
19/12/2016, 18:48 por David Valerio

» Erro programa compartilhado em rede
16/12/2016, 11:45 por FERNANDOMATRELLA

Conexão Sql Server

23/1/2017, 12:18 por Douglas Pascini

Estou mudando meu servidor, para uma máquina remota. Até ai perfeito, o problema acontece que …

Comentários: 0

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 3

Impressora Ticket

15/11/2016, 09:20 por clima238

Bom dia,
Por favor alguém me explique porque o código abaixo imprime no ecrã em vez do printer: …

Comentários: 2

Visite meu canal no Youtube

20/1/2017, 00:45 por ImRicoh

VFP Unlimited


Comentários: 0

Bloquear edição do ListBox

17/6/2010, 15:13 por Julio

Pessoal

Boa Tarde!

Tnho uma listbox apenas para exibir o resultado.
Preciso bloquear a listbox …

Comentários: 17

Estatísticas
Temos 6992 usuários registrados
O último usuário registrado atende pelo nome de BrenoTayne

Os nossos membros postaram um total de 11 mensagens em 5 assuntos

[Tópico Único] - Funções úteis

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

[Tópico Único] - Funções úteis

Mensagem por Marcos Guedes em 15/4/2009, 11:14

Função que tira todos os acentos das palavras
Código:
function TiraAcento(StrAcento)

 for i = 1 to len(StrAcento)

  Letra = mid(StrAcento, i, 1)

  Select Case Letra

  Case "á","Á","à","À","ã","Ã","â","Â","â","ä","Ä"

  Letra = "A"

  Case "é","É","ê","Ê","Ë","ë","È","è"

  Letra = "E"

  Case "í","Í","ï","Ï","Ì","ì"

  Letra = "I"

  Case "ó","Ó","ô","Ô","õ","Õ","ö","Ö","ò","Ò"

  Letra = "O"

  Case "ú","Ú","Ù","ù","ú","û","ü","Ü","Û"

  Letra = "U"

  Case "ç","Ç"

  Letra = "C"

  Case "ñ"

  Letra = "N"

  End Select

  texto = texto & Letra

 next

 TiraAcento = texto

end function
Clique aqui para acessar a fonte.


Última edição por Marcos Guedes em 8/1/2010, 14:32, editado 2 vez(es)

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Re: [Tópico Único] - Funções úteis

Mensagem por Marcos Guedes em 2/6/2009, 14:43

Retornando o endereço absoluto do servidor:
Código:
request.servervariables("APPL_PHYSICAL_PATH")

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Re: [Tópico Único] - Funções úteis

Mensagem por Marcos Guedes em 12/6/2009, 10:05

Escrevendo arquivos:
Código:
dim fs,fname
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fname=fs.CreateTextFile("C:\suaPasta\teste.txt",true)
fname.WriteLine("Hello World!")
fname.Close
set fname=nothing
set fs=nothing

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Re: [Tópico Único] - Funções úteis

Mensagem por Marcos Guedes em 6/7/2009, 16:11

Números randômicos:
Código:
function geraNumeros(menor, maior)
   Dim menor, maior
   RANDOMIZE
   
   geraSenha10Numeros = Int((maior-menor+1)*Rnd+menor)
end function

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Re: [Tópico Único] - Funções úteis

Mensagem por Marcos Guedes em 7/7/2009, 13:42

Email x CDO.Message

Segue um ótimo exemplo para envio de email's com o CDO.Message:
Código:
<% 
Dim Sch : Sch = "www.schemas.microsoft.com/cdo/configuration/" 
Dim TedkConfig, TedkMessage, Erro, Sucesso, Msg_HTML 
    Set TedkConfig = Server.CreateObject("CDO.Configuration") 
 
        ' Dodos principais de envio, coloque os dados de seu dominio aqui! 
        With (TedkConfig) 
            .Fields.Item(Sch & "sendusing") = 2 
            .Fields.Item(Sch & "smtpauthenticate") = 1 
            .Fields.Item(Sch & "smtpserver") = "smtp.dominio.com.br" 
            .Fields.Item(Sch & "sendusername") = "contato=dominio.com.br" 
            .Fields.Item(Sch & "sendpassword") = "contatosenha" 
            .Fields.Update 
        End With 
 
    Set TedkMessage = Server.CreateObject("CDO.Message") 
    Set TedkMessage.Configuration = TedkConfig 
 
    With (TedkMessage) 
        .From = """"&Request.Form("Nome")&""" <"&Request.Form("EMail")&">" ' Quem envio a mensagem, com nome e e-mail 
        .To = "contato@dominio.com.br" ' Quem Vai receber a mensagem 
        .BCC = "administrador@dominio.com.br" ' Caso queira uma cópia oculta 
        .Subject = "Mensagem enviada de Exemplo" ' Assunto da Mensagem 
        .ReplyTo = Request.Form("EMail") ' Retorna mensagem de erro para o e-mail do rementente 
    End With 
 
    ' Enviado o Corpo da Mensagem 
        Msg_HTML = "<table width='279' border='0' cellspacing='2' cellpadding='0'><tr>" 
        Msg_HTML = Msg_HTML& "<td width='87'>Nome:</td><td width='186'>"&Request.Form("Nome")&"</td>" 
        Msg_HTML = Msg_HTML& "</tr><tr><td>E-Mail:</td><td>"&Request.Form("EMail")&"</td></tr><tr><td valign='top'>Mensagem:</td>" 
        Msg_HTML = Msg_HTML& "<td valign='top'>"&Request.Form("Mensagem")&"</td></tr></table>" 
 
    TedkMessage.HTMLBody = Msg_HTML 
 
    ' Caso a mensagem seja diferente de vazio envia como Texto 
    If Msg_HTML <> "" Then 
        TedkMessage.AutoGenerateTextBody = False 
        TedkMessage.TextBody = Msg_HTML 
    End If     
 
    Erro = "" 
    Sucesso = False 
    On Error Resume Next ' Forçando a não aparecer a linha do erro 
 
    TedkMessage.Send 
 
    ' Finalizando os Recordset's 
    Set TedkMessage = Nothing 
    Set TedkConfig = Nothing 
 
    ' Verificando algum erro existente e colocando na página 
    If Err <> 0 Then : Erro = Err.Description : Else : Sucesso = True : End If 
 
' Mensagem de Resposta 
Response.Write("<script>alert('Mensagem Enviada com Sucesso');location='Default.html'</script>") 
%> 

Segue o link de onde encontrei o código fonte:
http://tedk.com.br/blog/index.php/2008/03/17/cdomessage-enviado-e-mail/

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum