Erstat ulovlige tegn

ASP ?-)

-- er det VBScript ?o]

dim reg as RegExp 'er det rigtigt ?

txt = "Et filnavn, som er ulovligt"
reg.Pattern = "[^\w+-]"
nytxt = reg.Replace(txt,"+")

-- måske skal du også have Global sat på regexpen !-)

Hov, det skal jo nok være: "[^\\w+-]"

Den erstatter kun den første karakter med + (selvom den ikke er ulovlig) ?

Jeg har indsat:
Set reg = New RegExp

istedet for:
dim reg as RegExp

- og ja, det er i VBscript :o)

/Goose

Så skal

reg.Global = True
reg.IgnoreCase = True

-- også med ...

-- og hvis du har problemer med \w kan du jo prøve at skrive det 'langsomt':

[^a-z0-9_+-]

Det hjalp med den "langsomme" udgave.
Kan det laves således, at den ser bort fra de sidste 4 karakterer i "txt" - den erstatter nemlig også til +jpg :o/

/Goose

Jeg kender ingen måde at begrænse en global funktion til en del af strengen, så den ville jeg erstatte baglæns bagefter, da du kender et fast mønster for den, f.eks.

Dim reg2
Set reg2 = New RegExp
reg2.Pattern = "+([a-z]{2,3})$" '2 eller 3 karakterer i slutningen af strengen
reg2.IgnoreCase = True
nytxt = reg2.replace(txt,".$1") ' Jeg er en anelse usikker på parameter-referencen $1 ...

Jeg løste det på en anden måde idet ASPUpload kan vise fileext.

Smid et svar roenving, du har fortjent dine point :o)

/Goose

Løsningen med regexp, hvor den ser bort fra de sidste karakterer:
reg.Pattern = "[^\w+-](?!.{0,3}$)"

\\w skal være \w i vbscript, da \ ikke er escape karakter

-- så var det jo, at jeg gerne ville kende udbredelsen af den notation, for jeg har set den i M$-dokumentationen, men ikke andre steder ...

Men velbekomme, goose '-)

-- og ranglen har jo i hvert fald fortjent noget for sit input også !-)

Jamen ranglen skal dælme da også tage del i denne pointfest, så smid et svar ranglen :o)

/Goose

ranglen >> Smider du lige et svar så jeg kan få lukket ?

/Goose

ok

Jamen så er der lukket og tak for hjælpen til jer begge.

/Goose

-- og jeg takker for point ;~}