Replace() og Trim() er ikke løsningen på blanke felter

http://www.eksperten.dk/spm/506519

Tak for buddet, men det er ikke løsningen. Resultatet bliver til "Skraber44UnikA" :-(.

Det er derfor jeg benytter:
Replace([Varetekst1];"  ";" ")

Og ikke:
Replace([Varetekst1];"  ";" "),

Det er vel nødvendigt at køre loop x30 på Replace([Varetekst1];"  ";" ") for at nå ønskede resultat. Måske lave første Replace med 10 mellemrum til 1 mellemrum, så 5 mellemrum til 1 mellemrum, så 2 mellemrum til 1....

Rolig nu. Du får lige en rutine, der klarer det hele:

Function Replace2(v As Variant) As String
  Dim p As Integer
  Dim s As String
 
  If IsNull(v) Then
    Replace2 = ""
  Else
    s = v
    p = InStr(1, s, "  ")
    Do Until p = 0
      s = Left(s, p - 1) & Mid(s, p + 1)
      p = InStr(1, s, "  ")
    Loop
    Replace2 = s
  End If
End Function

Smid den ind i et valgfrit modul og kald den med f.eks.
  Replace2([Varetekst1])

SÅDAN fdata, dejligt, det eneste er bare at sidste tegn kan være " " et mellemrum. Kan der laves en tilføjelse på funktionen?

rasmus 1234> 'Og bruger jeg Replace([Varetekst1];"  ";" "), så sker erstatningen kun én gang.'

Nej!

At erstatte forekomster med 2 mellemrum med et mellemrum er ikke det samme som at fjerne mellemrum.

Ltrim fjerner et venstrestillet mellemrum
Rtrim et højrestillet
Trim fjerner begge

Iøvrigt fungerer fdata's kode upåklageligt (som sædvanligt)

Ja da. Så retter du bare sidste linie i funktionen fra
  Replace2 = s
til
  Replace2 = trim(s)

>>> mugs ;o]

Takker for point ;o)