RegExp til at fjerne overflødige mellemrum

Sådan?

Funtion formaterTekst(str)
    re = new RegExp
    re.Patteren = " "
    formaterTekst = re.Replace(str, "")
End Function

Hejsa
Jeg har lavet det til:

Function formaterTekst(str)
    Set re = New RegExp

    re.Pattern = " "
    str = re.Replace(str, " ")
   
    re.Pattern = " "
    str = re.Replace(str, "")
   
    formaterTekst = str
End Function

Men det virker ikke, den er fortsat masser af mellemrum og   i min tekst

Prøv at sætte en Global på:

Function formaterTekst(str)
    Set re = New RegExp
    re.Global = True

    re.Pattern = " "
    str = re.Replace(str, " ")
   
    re.Pattern = " "
    str = re.Replace(str, "")
   
    formaterTekst = str
End Function

Jo det hjalp, men den fjerner alle mellemrum og ikke kun de ekstra?

Og med "ekstra mellemrum" mener du dubletter og sådan noget?

Function formaterTekst(str)
    Set re = New RegExp
    re.Global = True

    re.Pattern = " "
    str = re.Replace(str, " ")
   
    re.Pattern = " +"
    str = re.Replace(str, " ")
   
    formaterTekst = str
End Function

re.Pattern = "( | )+"

prøv om du ikke kan få den til at tage det hele i en replace

nielle: Det hjalp :-)
gammelhat: hvis jeg bruger din forsvinder hele teksten?

nielle: svar bitte :-)

Det lyder temmeligt underligt - det burde ellers virke. Hvordan ser din kode ud?

Forresten skal det hele måske toppes af med en Trim() sådan at mellemrum i start og slut også bliver slagtet.

<ole>

Er det ikke en lang vej over åen for et snapseglas vand?  :)

Function formaterTekst(str)
    formaterTekst = Replace(str, " ", "")
End Function

/mvh
</bole>

Du skal jo ikke tømme hele åen for vand

Argh ... havde overset, den også skulle fjerne '&nbsp;'  :o|
Ja, så er man nødt til at bruge RegExp - hvis man ikke vil bruge to på hinanden følgende Replace  :)

Function formaterTekst(str)
    Dim str2
    str2 = Replace(str, " ", "")
    formaterTekst = Replace(str2, "&nbsp;", "")
End Function

Du tømmer jo stadig hele åen :)

ehhhhh ... er der mon nogen, der kan anbefale en god læsebog, som kan højne en aldrende programmørs sparsomme læseevner? ... sorry!  ;D

kimlarsen1978> Det er da ikke fordi at jeg ikke vil smide et svar, men 20/10-2007 15:49:07 burde faktisk virke. Så hvordan ser din kode ud, den som fejler?

Denne virker ikke (fjerner hele teksten):
****************************
Function formaterTekst(str)
    Set re = New RegExp
    re.Global = True

    re.Pattern = "( |&nbsp;)+"
    str = re.Replace(str, " ")
End Function
******************************

Denne virker som den skal (fjerner alle de OVERFLØDIGE mellemrum):
******************************
Function formaterTekst(str)
    Set re = New RegExp
    re.Global = True

    re.Pattern = "&nbsp;"
    str = re.Replace(str, " ")
   
    re.Pattern = " +"
    str = re.Replace(str, " ")
   
    formaterTekst = str
End Function
********************************

formaterTekst = str

den linje fortæller hvad funktionen skal returnere. Den har du ikke med i den øverste, dvs den returnerer ingenting

Hold da kæft :-)
Hvor blind kan man være *g*

Så virker de begge jo fint :-)

Yep :^)

Jeps!
Kom gerne med et par svar :-)

Svar :^)

gammelhat - svar?

ok

Tak for hjælpen!

Tak for point :^)