6 svar · 254 visningar · startad av Skarre
Hjärnan går inte på full effekt så här på nattkvisten och jag undrar om någon nattuggla kan berätta hur jag ska göra för att följande kod även ska acceptera versaler.
strText = Replace(Replace(strText,"[.b]","<strong>"), "[/b]","</strong>")
Den ska alltså acceptera både "" och "".****
Hrm... jag tror jag hittade lösningen i VBScript-dokumentationen. Jag återkommer när jag fått det att fungera.
Här kommer det:
strText = Replace(Replace(strText,"[.b]","<strong>",1,-1,1), "[/b]","</strong>",1,-1,1)
Det alltså en parameter som avgör om jämförelsen är binär eller inte.
strText = Replace(Replace(LCase(strText),"[.b]","<strong>"), "[/b]","</strong>")
gör att allt i strängen blir lowercase
om du vill ha det mer avancerat använd RegExp,
för om det är vanlig text så fungerar ju inte LCase() för då
blir ju alla bokstäver små
Nickemannen skrev:
strText = Replace(Replace(LCase(strText),"[.b]","<strong>"), "[/b]","</strong>")gör att allt i strängen blir lowercase [..] om det är vanlig text så fungerar ju inte LCase() för då
blir ju alla bokstäver små
Jag förstår inte riktigt vad du menar. Du ger exempel på kod som gör all text till gemener, men sedan säger du att LCase inte fungerar för att det gör texten till gemener!? :) Hursomhelst så löste jag det som du ser ovan genom att ange att jämförelsen ej ska vara binär.
Om man vill kan man använda vbTextCompare (1) som extra argument till Replace() för att få en case-insensitive (väsk-okänslig) matchning.
strText = Replace(Replace(strText,"[.b]","<strong>"[b], 1[/b]), "[/b]","</strong>"[b], 1[/b])
Mvh,
snabelbire
Nu blir jag nästan rädd. Är det inte precis det jag gjort i min andra post? :D
Skarre, jag missade ditt inlägg helt.
Ber om ursäkt, skall icke upprepas. ;)
(det var alltså jag som råkade vara inloggad som Bire tidigare. :) )
Mvh,
