webForumDet fria alternativet

Ersätta tecken

ASP

10 svar · 299 visningar · startad av annesophie

Medlem sedan juni 20012 236 inlägg
Frågan#1

Hej,

Jag har drabbats av värmeslag och kan inte få nedan lilla ynkliga kodsnutt att fungera. Jag försöker ersätta " tecknet med ordet inch.

dim texten
texten = replace(replace(objRst("EditExt"), vbCrLf, "<br>"),[b]"[/b],"inch")
response.write texten

Men det vill sig inte! Vad gör jag för fel?

*suck*

/A

Medlem sedan dec. 19998 577 inlägg
#2

Re: Ersätta tecken

Du måste escapa det tecket eftersom det är en strängavgränsare i VBScript. :)

dim texten
texten = replace(replace(objRst("EditExt"), vbCrLf, "<br>"),[b]""""[/b],"inch")
response.write texten
Medlem sedan dec. 200012 464 inlägg
#3
dim texten
texten = replace(replace(objRst("EditExt"), vbCrLf, "<br>"),"""","inch")
response.write texten
Medlem sedan juni 20012 236 inlägg
#4

OK, jag testade din kod. Då får jag följande:

Microsoft VBScript compilation error '800a03ee'

Expected ')'

/order/showOrp.asp, line 662

texten = replace(replace(objRst("EditExt"), vbCrLf, "<br>"),""","inch")
-----------------------------------------------------------------^

Medlem sedan dec. 19998 577 inlägg
#5

En till " (4st) skall in där... ;)

Medlem sedan juni 20012 236 inlägg
#6

:f TACK VIDE! Du är en klippa!

Men varför krävs det fyra " ? Jag kan förstå tre....

Medlem sedan dec. 19998 577 inlägg
#7

Första blir strängavgränsare, andra escapar den tredje och den fjärde blir den avslutande avgränsaren. :)

Medlem sedan feb. 200112 078 inlägg
#8

Men varför krävs det fyra " ? Jag kan förstå tre....

Som Vide sa innan, det är en strängavgränsare i VB/VBScript. Två stycken "" blir en ", en ensam blir en strängavslutare.

Medlem sedan juni 20012 236 inlägg
#9

Ah, vad ni är kloka! :) Stort tack för både hjälp och förklaring! :bire

Medlem sedan dec. 20003 887 inlägg
#10

Det första " är ett vanligt citationstecken medan de två följande "" är ett escapat(?) citationstecken, som är inneslutet i strängen.

Det är kanske lite mer lättbegripligt att använda

Replace(Replace(objRst("EditText"), vbCrLf, "<br>"), Chr(34), "inch")
Medlem sedan dec. 19998 577 inlägg
#11

Varsågod, alltid kul att kunna hjälpa till! :D

268 ms totalt · 4 externa anrop · v20260731065814-full.2f471f9e
121 ms — deklarationer (db)
0 ms — hämta statistik (cache)
135 ms — hämta tråd, inlägg och bilagor (db)
129 ms — ändringar (db)