Funktion der indsætter mellemrum

Hvad med
  sed 's/\([^ ]\{60\}\)/\1 /g'

Jeg havde slet ikke overvejet muligheden for at anvende Regexp, men det er da en god idé.
Var det noget i den stil, du mente?

Function MakeSpace(Streng)
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True

regEx.Pattern = "???"
Set Matches = regEx.Execute(Streng)
    For Each Match in Matches
        strMatch = Match.Value
        Streng = Replace(Streng, Match.Value, Left(strMatch, 30) & " " & Right(strMatch, 30)
    Next

MakeSpace = Streng
End Function

Faktisk var det en fejl posting. Jeg var ikke opmærksom på at det var et spørgsmål i ASP kategorien, men hvis du kan bruge det til noget er det jo fint nok.

Haha... sjovt :)

|