Notifikationer

Markér alle som læst Log ud

12tri Nybegynder

29. juni 2001 - 00:06 Der er 18 kommentarer og
2 løsninger

Finde navn på link udfra URL via Replace

Hej eksperter.

Jeg har en form som sender en række links (URL) videre til en anden side, som så opretter en lille textfil med oplysningerne. Mit problem er at jeg gerne vil oprette en linje i tetxfilen med navnet på linket ud fra url’en. Jeg havde tænkt mig noget lignende:

Tage oplysningerne fra formen, fjerne enten http:// eller http://www. , og fjerne de almindelige ”.” endelser så som .dk .com .net. nu og så videre.

Jeg har prøvet at benytte Repalce men kan ikke få det til at virke.

Kode til form:
<form ACTION=\"side3.asp\" METHOD=\"post\">
<INPUT TYPE=\"text\" VALUE=\"http://\" NAME=\"link1\">
<INPUT TYPE=\"submit\" VALUE=\"VIDERE\">
</form>

Kode til fil om opretter textfilen.
Dim fso, f, filespec
Set fso = CreateObject(\"Scripting.FileSystemObject\")
filespec = Server.Mappath(\"txt\" & Request.Cookies(\"mugge\")(\"id\") & \".txt\")
Set f = fso.OpenTextFile(filespec,2)
If Request.Form(\"link1\") <> \"http://\" Then
f.WriteLine (\"\" & Request.Form(\"link1\"))
Det er her jeg gerne vil skrive en linje med navnet !

Håber der en en som kan hjælpe.

Morten
morten@12tri.dk

Synes godt om

food4u.dk Nybegynder

29. juni 2001 - 00:10 #1

link1 = Replace(Request.Form (\"link1\"),\"http://\",\"\")
link1 = Replace(link1,\"www.\",\"\")
link1 = Replace(link1,\".com\",\"\")
link1 = Replace(link1,\".dk\",\"\")
link1 = Replace(link1,\".net\",\"\")

Nok en halv dårlig løsning, men det virker :o)

Synes godt om

12tri Nybegynder

29. juni 2001 - 00:14 #2

Prøver lige, har du evt en måske ikke så \"halv dårlig løsning\"

Synes godt om

orca Nybegynder

29. juni 2001 - 00:17 #3

halv dårlig løsning? jeg kan ikke finden nogen anden bedre måde. Du kan ikke lave Replace til een enkelt linie hvis det er det du mener.

Mvh Mark

Synes godt om

12tri Nybegynder

29. juni 2001 - 00:19 #4

Orca, det var det jeg var i tvivl om, men findes der ikke bedre løsning, så må jeg jo bruge den

Synes godt om

moroax Nybegynder

29. juni 2001 - 00:25 #5

>> ORCA >>

du kan GODT lave replace på en linie
link1 = Request(\"link1\")
link1 = Replace(Replace(Replace(Replace(Replace(link1, \"http://\", \"\"), \"www.\", \"\"), \".dk\", \"\"), \".com\", \"\"), \".net\", \"\")

Vers\'go..

* MoRoax...

Synes godt om

food4u.dk Nybegynder

29. juni 2001 - 00:26 #6

hmm, er vidst taget meget fra en anden kode der :o)

Synes godt om

12tri Nybegynder

29. juni 2001 - 00:28 #7

Ok replacen virker nu, men jeg kan ikke få den linje med de erstattede værdier skrevet i txtfilen, hvorfor, kan i ikke skrive den præcise kode til at erstatte og indsætte linjen

Synes godt om

moroax Nybegynder

29. juni 2001 - 00:35 #8

Hmm...

Sådan?:

Kode til form:
<form ACTION=\"side3.asp\" METHOD=\"post\">
<INPUT TYPE=\"text\" VALUE=\"http://\" NAME=\"link1\">
<INPUT TYPE=\"submit\" VALUE=\"VIDERE\">
</form>

Kode til fil om opretter textfilen.
link1 = Request(\"link1\")
link1 = Replace(Replace(Replace(Replace(Replace(link1, \"http://\", \"\"), \"www.\", \"\"), \".dk\", \"\"), \".com\", \"\"), \".net\", \"\")
Dim fso, f, filespec
Set fso = CreateObject(\"Scripting.FileSystemObject\")
filespec = Server.Mappath(\"txt\" & Request.Cookies(\"mugge\")(\"id\") & \".txt\")
Set f = fso.OpenTextFile(filespec,2)
If Request.Form(\"link1\") <> \"http://\" Then
f.WriteLine (link1)

Prøv det...

* MoRoax...

Synes godt om

moroax Nybegynder

29. juni 2001 - 00:48 #9

>> Food4you >>
\"hmm, er vidst taget meget fra en anden kode der :o) \"

er det
\"link1 = Request(\"link1\")
link1 = Replace(Replace(Replace(Replace(Replace(link1, \"http://\", \"\"), \"www.\", \"\"), \".dk\", \"\"), \".com\", \"\"), \".net\", \"\")\"
du mener ???...

for den er håndskrevet på ca. 1 min.
*GG*

* MoRoax...

Synes godt om

food4u.dk Nybegynder

29. juni 2001 - 00:48 #10

Kode til form:
<form ACTION=\"side3.asp\" METHOD=\"post\">
<INPUT TYPE=\"text\" VALUE=\"http://\" NAME=\"link1\">
<INPUT TYPE=\"submit\" VALUE=\"VIDERE\">
</form>

Kode til fil om opretter textfilen.
link1 = Request(\"link1\")
link1 = Replace(Replace(Replace(Replace(Replace(link1, \"http://\", \"\"), \"www.\", \"\"), \".dk\", \"\"), \".com\", \"\"), \".net\", \"\")
Dim fso, f, filespec
Set fso = CreateObject(\"Scripting.FileSystemObject\")
filespec = Server.Mappath(\"txt\" & Request.Cookies(\"mugge\")(\"id\") & \".txt\")
Set f = fso.OpenTextFile(filespec,2)
If Request.Form(\"link1\") <> \"http://\" Then
f.WriteLine (link1)
.WriteLine (\"\" & Request.Form(\"link1\"))
else
end if

Filnavnet skal vel også med?

Synes godt om

food4u.dk Nybegynder

29. juni 2001 - 00:50 #11

moroax > joke, ligner da lidt hinanden :o)

Synes godt om

moroax Nybegynder

29. juni 2001 - 00:59 #12

>> Food4U.da >>

Citat \" Nok en halv dårlig løsning, men det virker :o) \"

Jeg gav bare løsningen på den halvdårlige løsning så den blev til en god løsning,
(du er VELKOMMEN til at bruge MIN rigtige version af \"Replace\")

*GG*

>> og jeg skrev den KUN fordi Orca skrev
- Citat
\"halv dårlig løsning? jeg kan ikke finden nogen anden bedre måde. Du kan ikke lave Replace til een enkelt linie hvis det er det du mener.

Mvh Mark \"

og det er jo DIREKTE at lyve folk lige op i deres åbne ansigt, og det kan vi jo ikke have - VEL !!!...

* MoRoax...

Synes godt om

food4u.dk Nybegynder

29. juni 2001 - 01:03 #13

hmm, det jeg mente med dårlig løsning var, at man skulle skrive aller topdomains ind:
.dk
.com
.net

der er mange, det var ikke fordi den var i flere linier den var dårlig

Synes godt om

moroax Nybegynder

29. juni 2001 - 01:10 #14

Jamen så er den jo faktisk endnu dårligere,
for hvad hvis den ser sådan her ud:
http://www.eksperten.dk/spm/85518
så kommer den til at se sådan ud efter Replace\'erne: eksperten/spm/85518 !!..
Der er jo INGENTIGN som fjerner \"/spm/85518\"

* MoRoax...

Synes godt om

12tri Nybegynder

29. juni 2001 - 01:14 #15

Funktionen er udemærket til mit behov da der ikke skal linkes i dybden.

Synes godt om

12tri Nybegynder

29. juni 2001 - 01:16 #16

Hvis i har tid så se lige her:

Hvorfor kan jeg ikke bruge en Session i et link som dette:

<a HREF=\"side4.asp?id=<%Session(\"id\")%>\"> videre </a>

Synes godt om

food4u.dk Nybegynder

29. juni 2001 - 01:17 #17

hmm, det havde jeg ikke lige tænkt på :o)

Synes godt om

food4u.dk Nybegynder

29. juni 2001 - 01:18 #18

<a HREF=\"side4.asp?id=<%=Session(\"id\")%>\"> videre </a>

Synes godt om

food4u.dk Nybegynder

29. juni 2001 - 01:18 #19

moroax > faktisk stod der jo:
Tage oplysningerne fra formen, fjerne enten http:// eller http://www. , og fjerne de almindelige ”.” endelser så som .dk .com .net. nu og så videre.

Der var IKKE noget med at evt. \"/spm/85518\" skulle væk :o)

Synes godt om

food4u.dk Nybegynder

29. juni 2001 - 01:22 #20

12tri > http://www.eksperten.dk/spm/85533

Var mit svar ikke godt nok? :o)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP	7	31/10/202610:20	01/11/202620:28
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS