Ajout de lien dynamique dans le texte

Commenter

Contenu du snippet

Petite fonction qui permet de transformer http://www.aspfr.com en <a href="http://www.aspfr.com">http://www.aspfr.com</a> et aussi adresse@mail.com vers <a href="mailto:adresse@mail.com">adresse@mail.com</a>

Cette source n'est pas directement de moi, c'est jcq qui me l'as montré : http://www.aspfr.com/forum.v2.aspx?ID=283943

Source / Exemple : 


Public Function ConvertLink(ByVal Texte As String) As String
        Dim _ConvertLink As String = Texte
        
        Dim MyReg As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex("(http://[\w-*]+[. /?%&=]\S*)")
        _ConvertLink = MyReg.Replace(_ConvertLink, "<a href=""$1"">$1</a>")
      
        Dim MyReg2 As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex("([\w\-.]+@[\w\-.]+)")
        _ConvertLink = MyReg2.Replace(_ConvertLink, "<a href=""mailto:$1"">$1</a>")
       
        Return _ConvertLink
        
    End Function

Conclusion :


Il faut surtout remercier jcq pour ce code.

J'espere qu'il vous sera utile, merci de bien vouloir laisser vos commentaires ci dessous.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (jesusonline)