Notifikationer

Markér alle som læst Log ud

loukas Mester

09. juni 2003 - 20:55 Der er 9 kommentarer og
1 løsning

Function - Fjern Ø Æ Å

Jeg har lavet denne lille funtion til at fjerne æøå.

Function Clean(strHtml)
strHtml = Replace(strHtml,"'","''")
strHtml = Replace(strHtml," "," ")
strHtml = Replace(strHtml,"æ","æ") 'æ
strHtml = Replace(strHtml,"Æ","Æ") 'Æ
strHtml = Replace(strHtml,"ø","ø")'ø
strHtml = Replace(strHtml,"Ø","Ø")'Ø
strHtml = Replace(strHtml,"å","å")'å
strHtml = Replace(strHtml,"Å","Å")'Å
strHtml = strHtml
End Function

Her bruger jeg den så:

strKategori = Clean(Request.Form("kategori"))

meeen der kommer ligesom ikke noget ud af det ;-) ?!?!

Synes godt om

ellebaek Nybegynder

09. juni 2003 - 21:01 #1

Funktionen fjerner ikke æ, ø og å, den erstatter dem bare med deres tilsvarende koder... Derfor hvis du udskriver teksten på en hjemmeside vil disse tegn stadig findes på din side...

Synes godt om

loukas Mester

09. juni 2003 - 21:06 #2

Ja ok det er rigtigt.
Det var også meningen at de skal erstattes med deres koder.

Synes godt om

ellebaek Nybegynder

09. juni 2003 - 21:07 #3

Hvad er problemet så ??

Får du slet ikke noget af teksten skrevet eller ?

Synes godt om

loukas Mester

09. juni 2003 - 21:09 #4

strKategori bliver ikke til noget

Synes godt om

ellebaek Nybegynder

09. juni 2003 - 21:10 #5

Function Clean(strHtml)
strHtml = Trim(strHtml)
strHtml = Replace(strHtml,"'","''")
strHtml = Replace(strHtml," "," ")
strHtml = Replace(strHtml,"æ","æ") 'æ
strHtml = Replace(strHtml,"Æ","Æ") 'Æ
strHtml = Replace(strHtml,"ø","ø")'ø
strHtml = Replace(strHtml,"Ø","Ø")'Ø
strHtml = Replace(strHtml,"å","å")'å
strHtml = Replace(strHtml,"Å","Å")'Å
strHtml = strHtml
End Function

Ved ikke om det gør nogen forskel, men prøv dette...

Synes godt om

Slettet bruger

09. juni 2003 - 21:12 #6

Skal det ikek være:
Function Clean(strHtml)
strHtml = Trim(strHtml)
strHtml = Replace(strHtml,"'","''")
strHtml = Replace(strHtml," "," ")
strHtml = Replace(strHtml,"æ","æ") 'æ
strHtml = Replace(strHtml,"Æ","Æ") 'Æ
strHtml = Replace(strHtml,"ø","ø")'ø
strHtml = Replace(strHtml,"Ø","Ø")'Ø
strHtml = Replace(strHtml,"å","å")'å
strHtml = Replace(strHtml,"Å","Å")'Å
Clean = strHtml
End Function

Synes godt om

Slettet bruger

09. juni 2003 - 21:13 #7

ikek=ikke

Synes godt om

loukas Mester

09. juni 2003 - 21:14 #8

jeg prøver lige med TRIM

Synes godt om

ellebaek Nybegynder

09. juni 2003 - 21:15 #9

Function Clean(strHtml)
strHtml = Trim(strHtml)
strHtml = Replace(strHtml,"'","''")
strHtml = Replace(strHtml," "," ")
strHtml = Replace(strHtml,"æ","æ") 'æ
strHtml = Replace(strHtml,"Æ","Æ") 'Æ
strHtml = Replace(strHtml,"ø","ø")'ø
strHtml = Replace(strHtml,"Ø","Ø")'Ø
strHtml = Replace(strHtml,"å","å")'å
strHtml = Replace(strHtml,"Å","Å")'Å
Clean = strHTML
End Function

Jeg testede lige dit script, og du skal selvfølgelig lade funktionen få værdien til sidst. Så den skal se sådan her ud i stedet!

Synes godt om

loukas Mester

10. juni 2003 - 12:10 #10

Jeg siger tak for hjælpen.
bertie var først med løsningen så points går til ham.

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
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
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

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