Bonsoir,j'essaye de faire un prog :on tape un texte avec e-mail(dans le textbox :textann)
le prog rend le texte avec l'e-mail en lien(si on clique dessus outlook s'ouvre).
Avec un e-mail ça fonctionne,sinon rien n'est modifié:
dim i,j,debut,fin,ha as integer
dim adresse,lien,avelien as string
dim listeadresses as arraylist=new arraylist
for i=1 to Len(txtann.text)
if mid(txtann.text,i,1)="@" then
debut=i 'pour encadrer l'adresse
fin=i '
do until mid(txtann.text,fin,1)=" " or fin=Len(txtann.text)+1
fin=fin+1
loop
do until mid(txtann.text,debut,1)=" "
debut=debut-1
if debut=0 then
exit do
end if
loop
for j=debut+1 to fin-1
adresse= adresse & mid(txtann.text,j,1)
next
listeadresses.add(adresse)
end if
next
ha=listeadresses.count-1
for j=0 to ha
lien="
"&listeadresses(j)&""
avelien=replace(txtann.text,listeadresses(j),lien)
next
label1.text=avelien 'pour visualiser la transformation
Il fait nuit,j'esperre que cele m'amportera vos conseils! salut.