CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

ppncpn Nybegynder

03. maj 2004 - 14:56 Der er 23 kommentarer og
2 løsninger

replace i ASP

hej ..
Hvordan kan jeg (i min tagwall) få f.eks en tekst som "hej" lavet om til "dav" .. og ":P" om til en smiley ??

Synes godt om

medions Nybegynder

03. maj 2004 - 14:57 #1

Replace(strStreng, "hej", "dav")

//>Rune

Synes godt om

medions Nybegynder

03. maj 2004 - 14:59 #2

Hvis du fx. har:

strTxt = "hej med dig du er da en skæg en :p"
strTxt = Replace(strTxt, "hej", "dav")
strTxt = Replace(strTxt, ":p", "<img src='sti/til/smiley.gif'>")

//>Rune

Synes godt om

fennec Nybegynder

03. maj 2004 - 14:59 #3

brug replace funktionen.

DinTekst = replace(DinTekst,"hej","Dav")
DinTekst = replace(DinTekst,":P","<img src=""smily.gif"">")
response.write DinTekst

Synes godt om

medions Nybegynder

03. maj 2004 - 14:59 #4

Og så selvf.:

strTxt = "hej med dig du er da en skæg en :p"
strTxt = Replace(strTxt, "hej", "dav")
strTxt = Replace(strTxt, ":p", "<img src='sti/til/smiley.gif'>")

Response.Write(strTxt)

//>Rune

Synes godt om

trumf Nybegynder

03. maj 2004 - 14:59 #5

tekst = Replace(tekst, "hej", "dav")
tekst = Replace(tekst, "erstat dette", "med dette")
tekst = Replace(tekst, ":P", "<IMG SRC='smiley.gif'>")

Synes godt om

fennec Nybegynder

03. maj 2004 - 14:59 #6

der var jeg for langsom :o(

Synes godt om

trumf Nybegynder

03. maj 2004 - 15:01 #7

Øj det gik godt nok hurtigt :-) Man kommer godt nok langt med mere end 100 point...

Synes godt om

ppncpn Nybegynder

03. maj 2004 - 15:06 #8

tak .. jeg vender tilbage senere .. skal lige teste det ;) .. Den hvis kode der virker får self. point ;)

Synes godt om

fennec Nybegynder

03. maj 2004 - 15:10 #9

Alle koderne skulle gerne virke, da det er den samme funktion. Du skal bare være opmærksom på at replace er casesentisive. Så replace(DinTekst,"hej","dav") bytter kun ud på "hej" og ikke "Hej". Det samme gælder selvfølgelig også ":p" og ":P".

Synes godt om

ppncpn Nybegynder

03. maj 2004 - 15:13 #10

dvs. koden skal være sådan her ?
<%
DinTekst = replace(DinTekst,":P","<img src=""smily.gif"">")
%>
Hvordan får jeg det så ind i tagwall'en ? :)

Synes godt om

trumf Nybegynder

03. maj 2004 - 15:14 #11

Så bruger han jo bare denne i stedet

tekst = Replace(lCase(tekst), "hej", "dav")
tekst = Replace(lCase(tekst), "erstat dette", "med dette")
tekst = Replace(lCase(tekst), ":p", "<IMG SRC='smiley.gif'>")

Synes godt om

ppncpn Nybegynder

03. maj 2004 - 15:16 #12

ok vent lidt .. laver lige min kode .. den er så simpel så det tager kun få minutter .. så kan i lige se den ;D

Synes godt om

trumf Nybegynder

03. maj 2004 - 15:16 #13

Hvordan ser din kode ud der hvor du ellers skriver teksten ud ?

Synes godt om

fennec Nybegynder

03. maj 2004 - 15:18 #14

>> trumf
Det skulle jeg også lige til at skrive, da jeg så jeg havde glemt det i kommentaren :o)

Synes godt om

ppncpn Nybegynder

03. maj 2004 - 15:19 #15

<%@LANGUAGE="VBSCRIPT"%>



<%
set personer = Server.Createobject("ADODB.Recordset")
personer.Open "Select * FROM tagwall", database
%>

<html>

<head>
<meta http-equiv="Content-Language" content="da">

<title>New Page 1</title>
</head>

<body>

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="27%"><font face="Verdana" size="1">Af: <a href="<% = personer.fields ("mail")%>"><% = personer.fields ("navn")%></a></font></td>
<td width="73%"><font face="Verdana" size="1">Skrevet den: <% = personer.fields ("dato")%></font></td>
</tr>
<tr>
<td width="100%" colspan="2"><font face="Verdana" size="1">»<% = personer.fields ("indlaeg")%></font></td>
</tr>
</table>

</body>

</html>

noget i den stil .. Hvor skal jeg så ligge diverse koder ind ? :)

Synes godt om

fennec Nybegynder

03. maj 2004 - 15:22 #16

function MyReplace(tekst)
tekst = Replace(lCase(tekst), "hej", "dav")
tekst = Replace(lCase(tekst), "erstat dette", "med dette")
tekst = Replace(lCase(tekst), ":p", "<IMG SRC='smiley.gif'>")
MyReplace = tekst
end function

<% = MyReplace(personer.fields ("indlaeg"))%>

Synes godt om

ppncpn Nybegynder

03. maj 2004 - 15:23 #17

Og hvor skal det så ligge ?

Synes godt om

fennec Nybegynder

03. maj 2004 - 15:26 #18

<%@LANGUAGE="VBSCRIPT"%>



<%

function MyReplace(tekst)
tekst = Replace(lCase(tekst), "hej", "dav")
' tekst = Replace(lCase(tekst), "erstat dette", "med dette") Denne fjerner vi lige
tekst = Replace(lCase(tekst), ":p", "<IMG SRC='smiley.gif'>")
MyReplace = tekst
end function

set personer = Server.Createobject("ADODB.Recordset")
personer.Open "Select * FROM tagwall", database
%>

<html>

<head>
<meta http-equiv="Content-Language" content="da">

<title>New Page 1</title>
</head>

<body>

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="27%"><font face="Verdana" size="1">Af: <a href="<% = personer.fields ("mail")%>"><% = personer.fields ("navn")%></a></font></td>
<td width="73%"><font face="Verdana" size="1">Skrevet den: <% = personer.fields ("dato")%></font></td>
</tr>
<tr>
<td width="100%" colspan="2"><font face="Verdana" size="1">»<% = MyReplace(personer.fields ("indlaeg"))%></font></td>
</tr>
</table>

</body>

</html>

det er bare "trumf" kode i en funktion...

Synes godt om

ppncpn Nybegynder

03. maj 2004 - 15:30 #19

det er fanme iorden det der fennec .. skriver du lige et svar mere til point ;) ?

Synes godt om

fennec Nybegynder

03. maj 2004 - 15:39 #20

Giv mig 20 point. Resten må være til "trumf" da det er hans funktion jeg brugte. Jeg var bare for langsomt til at lave den :o)

En lille bemærkning. Dette er nok ikke et 150 point ?. At du fik hurtige svar skyldes at det var meget simpel. Da du nu udlover 150 point synes jeg godt, jeg kunne tage nogle af dem. "medions" burde måske også have nogle af dem, da han var hurtigst....

Synes godt om

ppncpn Nybegynder

03. maj 2004 - 15:44 #21

75 til hver :P .. Håber det er ok .. du hjalp mig jo med koden og så'n

Synes godt om

trumf Nybegynder

03. maj 2004 - 15:50 #22

Takker for point :-)

Medions> giv lige lyd, så får du nogen af mine hvis du vil have dem.

Synes godt om

fennec Nybegynder

03. maj 2004 - 15:52 #23

også fra mig. (gælder både trumf og Medions)
Jeg skal bare have nok point til at beholde mit Pro medlemskab, og det skulle ikke være noget problem. Specielt da vi alle jo har fået Pro medlemskab i 2 måneder pga. fejl på E :o)

Synes godt om

medions Nybegynder

03. maj 2004 - 16:46 #24

Lyd :)
Syntes da jeg har fortjent lidt eftersom det jo var mig der besvarede først med det egentlig rigtige svar :)

//>Rune

Synes godt om

fennec Nybegynder

04. maj 2004 - 08:10 #25

Der ligger 50 til dig her :o)
http://exp.dk/spm/495579

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
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09

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