begin process at 2012 02 13 19:41:01
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Chaînes de caratères

 > GÉNÉRATEUR DE E-MAIL À PARTIR D'UN NOM

GÉNÉRATEUR DE E-MAIL À PARTIR D'UN NOM


 Information sur la source

Note :
Aucune note
Catégorie :Chaînes de caratères Niveau :Débutant Date de création :16/01/2002 Date de mise à jour :09/04/2002 16:19:30 Vu :9 818
Auteur : AIRking

Ecrire un message privé
Commentaire sur cette source (0)
Ajouter un commentaire et/ou une note

 Description

Petite fonction servant à générer un e-mail à partir d'un Nom. Génération du e-mail comme les e-mails (et par le fait même les noms d'usagers) de Windows NT. Gestion des noms composés. C'est de bas niveau, mais j'en suis à mes premiers jours en ASP! Alors...  

Source

  • <html><body>
  • <%language=VBscript%>
  • <%
  • Dim outputmail
  • Dim finfor
  • Public Sub Traitmail(varmail)
  • finfor = 0
  • outputmail = lcase(Mid((varmail),1,1))
  • For i = 2 To Len(varmail)
  • If finfor = 0 Then
  • If (Mid(varmail,i,1)) = "-" Then
  • outputmail = outputmail & Mid(varmail, (i+1), 1)
  • Elseif Mid((varmail),i,1) = " " Then
  • finfor = 1
  • End If
  • Else
  • outputmail = lcase(outputmail & Mid((varmail), i, 1))
  • End If
  • Next
  • outputmail = outputmail & "@domaine.com"
  • Response.Write "<a href=mailto:" & outputmail & ">" & varmail & </a>"
  • End Sub
  • Traitmail("Jean-Pierre Tremblay")
  • %>
  • </body></html> 
<html><body>
<%language=VBscript%>
<%
Dim outputmail
Dim finfor

Public Sub Traitmail(varmail)
	finfor = 0
	outputmail = lcase(Mid((varmail),1,1))
	For i = 2 To Len(varmail)
		If finfor = 0 Then
			If (Mid(varmail,i,1)) = "-" Then
				outputmail = outputmail & Mid(varmail, (i+1), 1)
			Elseif Mid((varmail),i,1) = " " Then
				finfor = 1
			End If
		Else
			outputmail = lcase(outputmail & Mid((varmail), i, 1))
		End If
    Next
	outputmail = outputmail & "@domaine.com"
	Response.Write "<a href=mailto:" & outputmail & ">" & varmail & </a>"
End Sub

Traitmail("Jean-Pierre Tremblay")
%>
</body></html>

 Conclusion

Il y a la gestion des Accent qui n'est pas encore implémenté!


 Sources de la même categorie

FONCTION : REMPLACER LES CARRACTÈRES ACCENTUÉS PAR LEUR ÉQUI... par promeythey
CHERCHER ET REMPLACER UN MOT DANS UN FICHIER TEXTE par roro59650
CONVERSION CARACTÈRES UTF-8 VERS FRANÇAIS par EricDD
FONCTION UCFIRST EN ASP par DesignerCreator
Source .NET (Dotnet) FONCTIONS DE VÉRIFICATION DE LA SYNTAXE D'UNE CHAINE par vladam
Toutes les sources de la catégorie Chaînes de caratères

Commentaires et avis

Aucun commentaire pour le moment.

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Apple iPhone 4 Noir (16 Go)
Entre 0€ et 0€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Green Energy Solutions With Light Bulb Morphed Into LandscapePhoto Renewable Energy is Within Reach
Photo Tropical Location With Palm Tree and Woman Holding Umbrella 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,279 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)