pb pour faire un prog

Question

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.

taillecrayon · Answer

Bonjour,il y avait un autre pb mais maintenant ça a l'air de marcher:
après: listeadresses.add(adresse) il y a :
                adresse=""
                end if
                next
                ha=listeadresses.count-1
                if ha>=1 then
                avelien=txtann.text
                for j=0 to ha
                lien="[& "&listeadresses(j)&"]"
                avelien=replace(avelien,listeadresses(j),lien)
                next
                else
                avelien=txtann.text
                end if
                label1.text=avelien
Salut.

taillecrayon · Answer

oups: c'est ha>=0

Pb pour faire un prog

2 réponses

Votre réponse

Discussions similaires