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

qaaq Nybegynder

14. december 2006 - 17:21 Der er 7 kommentarer og
1 løsning

replace kode tager for lang tid

Hej, jeg har nedenstående kode som erstter de danske tegn til html-formatering. (fordi at de skal vises på en ssl krypteret side som ikke understøtter de danske teng).
Men det tager UFATTELIGT lang tid for koden at køre igennem, hvad kan jeg gøre for at speede det up?

---------------------------kode-------------
Session_Kasse_Email = Replace(Session_Kasse_Email,"Æ","Æ")
Session_Kasse_Email = Replace(Session_Kasse_Email,"Ø","Ø")
Session_Kasse_Email = Replace(Session_Kasse_Email,"Å","Å")
Session_Kasse_Email = Replace(Session_Kasse_Email,"æ","æ")
Session_Kasse_Email = Replace(Session_Kasse_Email,"ø","ø")
Session_Kasse_Email = Replace(Session_Kasse_Email,"å","å")

Session_Kasse_Navn = Replace(Session_Kasse_Navn,"Æ","Æ")
Session_Kasse_Navn = Replace(Session_Kasse_Navn,"Ø","Ø")
Session_Kasse_Navn = Replace(Session_Kasse_Navn,"Å","Å")
Session_Kasse_Navn = Replace(Session_Kasse_Navn,"æ","æ")
Session_Kasse_Navn = Replace(Session_Kasse_Navn,"ø","ø")
Session_Kasse_Navn = Replace(Session_Kasse_Navn,"å","å")

Session_Kasse_Adresse = Replace(Session_Kasse_Adresse,"Æ","Æ")
Session_Kasse_Adresse = Replace(Session_Kasse_Adresse,"Ø","Ø")
Session_Kasse_Adresse = Replace(Session_Kasse_Adresse,"Å","Å")
Session_Kasse_Adresse = Replace(Session_Kasse_Adresse,"æ","æ")
Session_Kasse_Adresse = Replace(Session_Kasse_Adresse,"ø","ø")
Session_Kasse_Adresse = Replace(Session_Kasse_Adresse,"å","å")

Session_Kasse_Adresse2 = Replace(Session_Kasse_Adresse2,"Æ","Æ")
Session_Kasse_Adresse2 = Replace(Session_Kasse_Adresse2,"Ø","Ø")
Session_Kasse_Adresse2 = Replace(Session_Kasse_Adresse2,"Å","Å")
Session_Kasse_Adresse2 = Replace(Session_Kasse_Adresse2,"æ","æ")
Session_Kasse_Adresse2 = Replace(Session_Kasse_Adresse2,"ø","ø")
Session_Kasse_Adresse2 = Replace(Session_Kasse_Adresse2,"å","å")

Session_Kasse_By = Replace(Session_Kasse_By,"Æ","Æ")
Session_Kasse_By = Replace(Session_Kasse_By,"Ø","Ø")
Session_Kasse_By = Replace(Session_Kasse_By,"Å","Å")
Session_Kasse_By = Replace(Session_Kasse_By,"æ","æ")
Session_Kasse_By = Replace(Session_Kasse_By,"ø","ø")
Session_Kasse_By = Replace(Session_Kasse_By,"å","å")

Session_Kurv = Replace(Session_Kurv,"Æ","Æ")
Session_Kurv = Replace(Session_Kurv,"Ø","Ø")
Session_Kurv = Replace(Session_Kurv,"Å","Å")
Session_Kurv = Replace(Session_Kurv,"æ","æ")
Session_Kurv = Replace(Session_Kurv,"ø","ø")
Session_Kurv = Replace(Session_Kurv,"å","å")

Session_Kasse_LevNavn = Replace(Session_Kasse_LevNavn,"Æ","Æ")
Session_Kasse_LevNavn = Replace(Session_Kasse_LevNavn,"Ø","Ø")
Session_Kasse_LevNavn = Replace(Session_Kasse_LevNavn,"Å","Å")
Session_Kasse_LevNavn = Replace(Session_Kasse_LevNavn,"æ","æ")
Session_Kasse_LevNavn = Replace(Session_Kasse_LevNavn,"ø","ø")
Session_Kasse_LevNavn = Replace(Session_Kasse_LevNavn,"å","å")

Session_Kasse_LevAdresse = Replace(Session_Kasse_LevAdresse,"Æ","Æ")
Session_Kasse_LevAdresse = Replace(Session_Kasse_LevAdresse,"Ø","Ø")
Session_Kasse_LevAdresse = Replace(Session_Kasse_LevAdresse,"Å","Å")
Session_Kasse_LevAdresse = Replace(Session_Kasse_LevAdresse,"æ","æ")
Session_Kasse_LevAdresse = Replace(Session_Kasse_LevAdresse,"ø","ø")
Session_Kasse_LevAdresse = Replace(Session_Kasse_LevAdresse,"å","å")

Session_Kasse_LevAdresse2 = Replace(Session_Kasse_LevAdresse2,"Æ","Æ")
Session_Kasse_LevAdresse2 = Replace(Session_Kasse_LevAdresse2,"Ø","Ø")
Session_Kasse_LevAdresse2 = Replace(Session_Kasse_LevAdresse2,"Å","Å")
Session_Kasse_LevAdresse2 = Replace(Session_Kasse_LevAdresse2,"æ","æ")
Session_Kasse_LevAdresse2 = Replace(Session_Kasse_LevAdresse2,"ø","ø")
Session_Kasse_LevAdresse2 = Replace(Session_Kasse_LevAdresse2,"å","å")

Session_Kasse_LevBy = Replace(Session_Kasse_LevBy,"Æ","Æ")
Session_Kasse_LevBy = Replace(Session_Kasse_LevBy,"Ø","Ø")
Session_Kasse_LevBy = Replace(Session_Kasse_LevBy,"Å","Å")
Session_Kasse_LevBy = Replace(Session_Kasse_LevBy,"æ","æ")
Session_Kasse_LevBy = Replace(Session_Kasse_LevBy,"ø","ø")
Session_Kasse_LevBy = Replace(Session_Kasse_LevBy,"å","å")

Synes godt om

qaaq Nybegynder

14. december 2006 - 17:23 #1

PS: den replacer omvendt i Session_Kasse_Email fordi den bruges til noget andet.. (lang historie)

Synes godt om

kalp Novice

14. december 2006 - 20:46 #2

Dim obj
For Each obj In Session.Contents
Session(obj) = Replace(Session(obj),"Æ","Æ")
Session(obj) = Replace(Session(obj),"Ø","Ø")
Session(obj) = Replace(Session(obj),"Å","Å")
Session(obj) = Replace(Session(obj),"æ","æ")
Session(obj) = Replace(Session(obj),"ø","ø")
Session(obj) = Replace(Session(obj),"å","å")
Next

Synes godt om

kalp Novice

14. december 2006 - 20:48 #3

du skal nok lige lave en if i løkken som tjekker om du har fat i email... for den skulle jo laves lidt anderledes.. så if Session(obj) <> Session_Kasse_Email så skal den køre det i løkken

Synes godt om

tjaz Nybegynder

14. december 2006 - 22:01 #4

hvad er der galt med server.htmlencode() ?

Synes godt om

qaaq Nybegynder

14. december 2006 - 22:26 #5

tjaz: følger der en forklaring med den kommentar?

Synes godt om

qaaq Nybegynder

14. december 2006 - 23:45 #6

kalp, det virkede sgu!

Synes godt om

kalp Novice

15. december 2006 - 09:56 #7

tjaz >> I don't know... har jeg aldrig benyttet=)

gaaq >> Det er jeg glad for;) og tak for point.. man må sige du fik sparet en masse kode linjer!!

Synes godt om

tjaz Nybegynder

16. december 2006 - 13:57 #8

http://msdn2.microsoft.com/en-gb/library/ms525347.aspx

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
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
Vis detaljeret fejlkoder Af poulmadsen i ASP	6	09/03/202418:16	10/03/202417:59
IIS virker ikke på asp sider... Af bsn i ASP	10	15/10/202313:12	18/10/202308:48

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