endast A-Ö

alt = "alla tecken du vill ha med"
string = "din textsträng som du vill 'rena'"

For i = 0 To Len(string)

If Instr(alt, Mid(string,i,1)) > 0 then

tmpstr = tmpstr & Mid(string,i,1)

End If

Next

string = tmpstr

Nu ligger din sträng i string

Vore det inte bättre att göra en regExp funktion? Det är ju som gjort för sådana här funktioner!

Kolla in VBScripts Refrensen (Kolla asp FAQ:en för URL) för mer info. Jag har nämligen inte använt mig av regExp själv ännu. Men det borde finnas någon artikel på http://www.4guysfromrolla.com

Ska kanske ta och kolla upp det där själv. Skriver jag något så kan jag ju posta det här.

Ok, men det verkar för mig vara så att det första programet inte fungerar så bra för mig... Gäller det bara mig?

Vilket program???

Program och program, menar väll snarare koden du bidog med här:

Får följande fel:

Körningsfel i Microsoft VBScript error '800a01f5'

Otillåten tilldelning: 'string'

content/test.asp, line 30

Och byter jag utt "string" till "text" får jag följande fel:

Körningsfel i Microsoft VBScript error '800a0005'

Ogiltigt proceduranrop eller argument.: 'Mid'

/content/test.asp, line 33

Klantigt av mig, man måste ju börja på bokstav 1, byt detta:

For i = [b]1[/b] To Len(string)