Toon posts:

hoe deze functie aan te roepen??

Pagina: 1

Acties:

43 views sinds 30-01-2008

zaterdag 13 september 2003 13:00

Acties:

Verwijderd

Topicstarter

Hoi ,

ik heb een vraagje ik had een script nodig om email adressen uit een tekst te filteren. nou heb ik deze functie gevonden op het net. Nu heb ik alleen geen idee hoe ik deze moet aanroepen.

heeft iemand een idee?

Alvast bedankt

[asp]
Function LinkURLs(ByRef asContent)
Dim loRegExp
If asContent = "" Then Exit Function
Set loRegExp = New RegExp
loRegExp.Global = True
loRegExp.IgnoreCase = True
loRegExp.Pattern = "(\S+@\S+.\.\S\S\S?)"
LinkURLs = loRegExp.Replace(LinkURLs, "<A href=""mailto:$1"">$1</A>")
Set oRegExp = Nothing
End Function
[/asp]

[ Voor 9% gewijzigd door Verwijderd op 13-09-2003 13:13 ]

zaterdag 13 september 2003 13:01

Acties:

gorgi_19

Kruimeltjes zijn weer op :9

Door middel van LinkUrls(HierWatContentMetEmailadressen)

En de rest kan je zelf wel beredeneren met wat uitproberen.

[ Voor 75% gewijzigd door gorgi_19 op 13-09-2003 13:03 ]

Digitaal onderwijsmateriaal, leermateriaal voor hbo

zaterdag 13 september 2003 13:02

Acties:

djluc

Zet het even tussen de juiste tags, [ asp ]? Verder even de quickstart in de faq lezen, je bent namelijk wat kleine dingen vergeten

zaterdag 13 september 2003 13:04

Acties:

faabman

Wat is de taal vbscipt...

en normaal gesproken roep je een functie gewoon aan door

ASP:

1	LinkURLs(string)

[ Voor 29% gewijzigd door faabman op 13-09-2003 13:05 . Reden: zal wel vbscript zijn, zie geen datatypes ]

Op zoek naar een baan als Coldfusion webdeveloper? Mail me!

zaterdag 13 september 2003 13:04

Acties:

_the_crow_

Rare vogel

Zie eruit als VBscript.

Hoe je het gebruikt: Zie posts boven mij. Dat wilde ik dus nog kwijt.

[ Voor 60% gewijzigd door _the_crow_ op 13-09-2003 13:05 ]

Schrödingers cat: In this case there are three determinate states the cat could be in: these being Alive, Dead, and Bloody Furious.

zaterdag 13 september 2003 13:04

Acties:

Verwijderd

gorgi_19 schreef op 13 September 2003 @ 13:01:
Door middel van LinkUrls(HierWatContentMetEmailadressen)

En de rest kan je zelf wel beredeneren met wat uitproberen.

Als je nu Document.Write (LinkUrls(HierWatContentMetEmailadressen))
van maakt krijg je het lijstje met email adressen ook nog te zien.

ik zie nu dat hij helemaal niet klopt. asContent is het gene wat aan de functie wordt meegegeven dus moet het worden

code:

1	LinkURLs = loRegExp.Replace(asContent , "<A href=""mailto:$1"">$1</A>")

[cor]
Correctie Moet natuurlijk zijn Response.Write is nog vroeg
[/cor]

[ Voor 34% gewijzigd door Verwijderd op 13-09-2003 13:08 ]

zaterdag 13 september 2003 13:05

Acties:

gorgi_19

Kruimeltjes zijn weer op :9

_the_crow_ schreef op 13 September 2003 @ 13:04:
Zie eruit als VBscript. Correct me, if I'm wrong?!

Je kan er vrij zeker van zijn dat het VBScript is, waarschijn icm ASP.

Digitaal onderwijsmateriaal, leermateriaal voor hbo

zaterdag 13 september 2003 13:05

Acties:

gorgi_19

Kruimeltjes zijn weer op :9

Verwijderd schreef op 13 September 2003 @ 13:04:
[...]

Als je nu Document.Write (LinkUrls(HierWatContentMetEmailadressen))
van maakt krijg je het lijstje met email adressen ook nog te zien.

Ik mag hopen dat dat niet gaat werken / de bedoeling is; anders zit je vast aan Internet Explorer.

[ Voor 3% gewijzigd door gorgi_19 op 13-09-2003 13:07 ]

Digitaal onderwijsmateriaal, leermateriaal voor hbo

zaterdag 13 september 2003 13:12

Acties:

Verwijderd

Topicstarter

oke thnx voor al jullie reacties!
maar nog 1 vraagje klinkt misschien dom maar kan

HierWatContentMetEmailadressen bijv zijn: request.form("blaat")

het is trouwens vb sorry da ik da nie vermeld heb

zaterdag 13 september 2003 13:12

Acties:

gorgi_19

Kruimeltjes zijn weer op :9

Verwijderd schreef op 13 September 2003 @ 13:12:
oke thnx voor al jullie reacties!
maar nog 1 vraagje klinkt misschien dom maar kan

HierWatContentMetEmailadressen bijv zijn: request.form("blaat")

het is trouwens vb sorry da ik da nie vermeld heb

Nee, het is geen vb, want dan kan je geen Request.Form gebruiken.
En probeer het uit, zou ik zeggen.

Digitaal onderwijsmateriaal, leermateriaal voor hbo

zaterdag 13 september 2003 13:15

Acties:

Verwijderd

Topicstarter

ja heb ik dus uitgeprobeerd maar werkt dan helaas niet

dit is mijn hele code:

[asp]
<%
if request.querystring("submit") = "true" then

Function LinkURLs(ByRef asContent)
Dim loRegExp
If asContent = "" Then Exit Function
Set loRegExp = New RegExp
loRegExp.Global = True
loRegExp.IgnoreCase = True
loRegExp.Pattern = "(\S+@\S+.\.\S\S\S?)"
LinkURLs = loRegExp.Replace(LinkURLs, "<A href=""mailto:$1"">$1</A>")
Set oRegExp = Nothing
End Function

response.write linkurls(request.form("email"))
else
%>

<HTML>
<HEAD>
<TITLE>GET EMAIL ADRESSES</TITLE>
</HEAD>
<BODY>

<FORM ACTION=insert.asp?submit=true METHOD=post>

<textarea rows="21" name="email" cols="48"></textarea><br>
<input type="submit" value="Insert" name="Insert">

</FORM>

</BODY>
</HTML>
<%
end if
%>
[/asp]

zaterdag 13 september 2003 13:17

Acties:

gorgi_19

Kruimeltjes zijn weer op :9

En wat werkt er niet? En zie een eerdere post, de functie klopt niet.

[ Voor 54% gewijzigd door gorgi_19 op 13-09-2003 13:17 ]

Digitaal onderwijsmateriaal, leermateriaal voor hbo

zaterdag 13 september 2003 13:18

Acties:

Verwijderd

http://gathering.tweakers...message/18737434#18737434

zaterdag 13 september 2003 13:19

Acties:

whoami

Tja, leuk.
Het werkt niet....

Dit is hier geen helpdesk. In p&w wordt er van jou -als topicstarter- zelfwerkzaamheid verwacht. Dwz dat je zelf eerst een en ander gaat gaan uitproberen ipv je probleem zomaar hier te dumpen en anderen het voor jou laten oplossen.
Lees misschien eerst even de P&W FAQ en Quickstart.

https://fgheysels.github.io/

Pagina: 1

Dit topic is gesloten.