Fonction pour lien hypertexte

Le
Pat
Bonjour,

J'ai un champ [Net] pour mes adresses de sites internet et pour mes adresses
courriel.

1ère problématique : patrice.morelbzh@tiscali.fr affichera
patrice.morelbzh@sncf.fr#http://patrice.morelbzh@tiscali.fr#

Pour afficher seulement l'adresse j'ai trouvé :
Contact: VraiFaux(EstNull([NumAppel]);
Gauche([Net];DansChaîne(2;[Net];"#")-1);
[NumAppel])

2ème problématique : http:\patcatnats.free.fr affichera
#http:\patcatnats.free.fr#

Pour afficher seulement l'adresse du site j'ai trouvé :
Contact : VraiFaux(Gauche([Net];1)="#";
ExtracChaîne(Gauche([Net];DansChaîne(2;[Net];"#")-1);2);
[Net])

Pour règler la totalité du problème d'affichage j'ai fait et çà fonctionne :
Contact: VraiFaux(DansChaîne([Net];"@")>0;
Gauche([Net];DansChaîne(2;[Net];"#")-1);
ExtracChaîne(Gauche([Net];DansChaîne(2;[Net];"#")-1);2))

J'aurais bien voulu en faire une fonction dans un module, mais je ne sais
pas faire (çà plante !) :

Function Hypertxt(ByVal Adresse As String)
If Mid([Adresse], "@") > 0 Then
Adresse = Left([Adresse], Mid(2, [Adresse], "#") - 1)
Else
Adresse = Mid(Left([Adresse], Mid(2, [Adresse], "#") - 1), 2)
End If
End Function

Merci de bien vouloir m'aider

Patrice
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jessy Sempere
Le #6193661
Bonjour

Essais plutôt une fonction dans ce style :

Function Hypertxt(strAdresse As String) As String
If InStr(strAdresse, "@") > 0 Then
Hypertxt = left(strAdresse, InStr(strAdresse, "#") - 1)
Else
Hypertxt = Mid(strAdresse, 2, Len(strAdresse) - 2)
End If
End Function

@+
Jessy Sempere
------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l''''efficacité de tous :
http://www.mpfa.info/
------------------------------------



Bonjour,

J'ai un champ [Net] pour mes adresses de sites internet et pour mes adresses
courriel.

1ère problématique : affichera
#http://#

Pour afficher seulement l'adresse j'ai trouvé :
Contact: VraiFaux(EstNull([NumAppel]);
Gauche([Net];DansChaîne(2;[Net];"#")-1);
[NumAppel])

2ème problématique : http:\patcatnats.free.fr affichera
#http:\patcatnats.free.fr#

Pour afficher seulement l'adresse du site j'ai trouvé :
Contact : VraiFaux(Gauche([Net];1)="#";
ExtracChaîne(Gauche([Net];DansChaîne(2;[Net];"#")-1);2);
[Net])

Pour règler la totalité du problème d'affichage j'ai fait et çà fonctionne :
Contact: VraiFaux(DansChaîne([Net];"@")>0;
Gauche([Net];DansChaîne(2;[Net];"#")-1);
ExtracChaîne(Gauche([Net];DansChaîne(2;[Net];"#")-1);2))

J'aurais bien voulu en faire une fonction dans un module, mais je ne sais
pas faire (çà plante !) :

Function Hypertxt(ByVal Adresse As String)
If Mid([Adresse], "@") > 0 Then
Adresse = Left([Adresse], Mid(2, [Adresse], "#") - 1)
Else
Adresse = Mid(Left([Adresse], Mid(2, [Adresse], "#") - 1), 2)
End If
End Function

Merci de bien vouloir m'aider

Patrice





Pat
Le #6193641
Nickel chrome.
Merci Jessy de ton aide précieuse

@+
Patrice

"Jessy Sempere"
Bonjour

Essais plutôt une fonction dans ce style :

Function Hypertxt(strAdresse As String) As String
If InStr(strAdresse, "@") > 0 Then
Hypertxt = left(strAdresse, InStr(strAdresse, "#") - 1)
Else
Hypertxt = Mid(strAdresse, 2, Len(strAdresse) - 2)
End If
End Function

@+
Jessy Sempere
------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l''''efficacité de tous :
http://www.mpfa.info/
------------------------------------



Bonjour,

J'ai un champ [Net] pour mes adresses de sites internet et pour mes
adresses
courriel.

1ère problématique : affichera
#http://#

Pour afficher seulement l'adresse j'ai trouvé :
Contact: VraiFaux(EstNull([NumAppel]);
Gauche([Net];DansChaîne(2;[Net];"#")-1);
[NumAppel])

2ème problématique : http:\patcatnats.free.fr affichera
#http:\patcatnats.free.fr#

Pour afficher seulement l'adresse du site j'ai trouvé :
Contact : VraiFaux(Gauche([Net];1)="#";

ExtracChaîne(Gauche([Net];DansChaîne(2;[Net];"#")-1);2);
[Net])

Pour règler la totalité du problème d'affichage j'ai fait et çà
fonctionne :
Contact: VraiFaux(DansChaîne([Net];"@")>0;
Gauche([Net];DansChaîne(2;[Net];"#")-1);

ExtracChaîne(Gauche([Net];DansChaîne(2;[Net];"#")-1);2))

J'aurais bien voulu en faire une fonction dans un module, mais je ne sais
pas faire (çà plante !) :

Function Hypertxt(ByVal Adresse As String)
If Mid([Adresse], "@") > 0 Then
Adresse = Left([Adresse], Mid(2, [Adresse], "#") - 1)
Else
Adresse = Mid(Left([Adresse], Mid(2, [Adresse], "#") - 1), 2)
End If
End Function

Merci de bien vouloir m'aider

Patrice







Publicité
Poster une réponse
Anonyme