Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
7 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 7 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
» USAR WEBSERVICE NO VFP9
Ontem à(s) 09:50 por AJC

» BANIMENTO DE USUARIO
17/11/2016, 08:31 por FAF

» Impressora Ticket
15/11/2016, 09:20 por clima238

» Gráfico
9/11/2016, 10:43 por hidroluz

» TRANSPOR TABELA
9/11/2016, 10:34 por hidroluz

» MUDANÇA DO .DBF PARA POTSGREE
9/11/2016, 09:12 por AJC

» Website com videoaulas sobre linguagens de programação
8/11/2016, 09:56 por JLDR

» Parceria para desenvolvimento de template em Wordpress
7/11/2016, 19:15 por mindix

» Data fica invertida na planilha que é gerada via programa.
27/10/2016, 11:00 por Linghston

» Maximizar report direto do menu
21/10/2016, 20:48 por Rosangela Pires

» Fechar form com tempo
21/10/2016, 10:15 por Rosangela Pires

» URGENTE: Ajuda com impressora ELGIN-L42
14/10/2016, 09:53 por megasoft

» Opções para gerar NF-e
10/10/2016, 09:07 por mavsinfo

» Google Maps
8/10/2016, 15:08 por Rosangela Pires

» Mysql
5/10/2016, 11:22 por Marcos Guedes

» Acessando Banco em MYSQL de um projeto WORDPRESS
3/10/2016, 10:58 por Marcos Guedes

» OPTION SELECT MOSTRAR CAMPOS QUASE PRONTO
26/9/2016, 21:09 por BobKuspe

» Pesquisa em grid
14/9/2016, 09:24 por AJC

» Total Code Generator
9/9/2016, 17:43 por robsonpassos

» Envio de e-mail por PHP
30/8/2016, 10:19 por Gilberto

USAR WEBSERVICE NO VFP9

2/12/2016, 09:50 por AJC

Pessoal, preciso de um material ou livro que me traga instruções como
usar a consumação de …

Comentários: 0

BANIMENTO DE USUARIO

13/11/2016, 16:21 por FAF

A usuária ROSANGELA PIRES ao tentar acessar o Forum obtem sempre a mensagem de BANIMENTO.
A mesma …

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: 0

TRANSPOR TABELA

9/11/2016, 10:34 por hidroluz

Bom dia a todos, gostaria de saber como consigo fazer a transposição de uma tabela no VFP.



Comentários: 0

MUDANÇA DO .DBF PARA POTSGREE

7/10/2016, 14:59 por AJC

Pessoal boa tarde,
Já uso meus sistemas utilizando banco de dados do visual foxpro
há muito …

Comentários: 2

Estatísticas
Temos 6957 usuários registrados
O último usuário registrado atende pelo nome de STENIO SILVA

Os nossos membros postaram um total de 17116 mensagens em 2574 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

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

Mensagem por Conteúdo patrocinado Hoje à(s) 08:32


Conteúdo patrocinado


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