okänt antal mellanslag

3 svar · 220 visningar · startad av Emil RT 17 mars 2004

Emil RTMedlem sedan feb. 2004200 inlägg

Frågan17 mars 2004 14:34#1

Hej!

kan man ta bort mellanslag ur en sträng som är längre än 1?

t ex

"detta är en       cp-skadad sträng      jomenvisst hej hopp"

ska bli

"detta är en cp-skadad sträng jomenvisst hej hopp"

replace tar ju bort rubbet.

yohpopsMedlem sedan feb. 20011 198 inlägg

17 mars 2004 14:37#2

replace

Du kan skriva

strstring = "jag är  en sträng   med några space   i."
do until instr(1,strstring,"  ")=0
strstring = replace(strstring,"  "," ")
loop

Emil RTMedlem sedan feb. 2004200 inlägg

17 mars 2004 14:46#3

det kan jag absolut!

danke!

Engine^Medlem sedan dec. 20003 887 inlägg

17 mars 2004 14:47#4

Eller med Regular Expression.

Function RemoveExtraSpaces(strSource)
  Dim objRX

  Set objRX = New RegExp

  objRX.Global = True
  objRX.Pattern = "\x20{2,}"

  ReplaceExtraSpaces = objRX.Replace(strSource, " ")
End Function

Response.Write RemoveExtraSpaces("hej hopp  blabl     agj   haah.")