13. april 2001 - 19:15Der er
7 kommentarer og 1 løsning
RegExp.Pattern= \"fjern alle tegn på nær a-z + A-Z +0-9\"
Jeg prøver en function som kan udskifte alle tegn på nær a-z + A-Z + 0-9 men jeg kan ikke lige få Regexp til at virke, jeg ved at det er med RegExp.Pattern man sætter strengen, men hvordan ??
Function FjernTegn(Input) Set Regexp=New RegExp RegExp.Pattern= \"alle tegn på nær a-z + A-Z +0-9\" RegExp.Replace(, \"\") Output = RegExp.Replace(Input, \"\") FjernTegn=Output end function
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Public Function Replacex(sourceStr as String, oldStr as _ String, newStr as String, optional ignoreCase as _ Boolean = False,optional isGlobal as Boolean = True) Dim re As New RegExp re.Pattern = oldStr re.Global = isGlobal re.IgnoreCase = ignoreCase Replacex = re.Replace(sourceStr, newStr) End Function
hæ hæ .. erikjacobsen, du bruger da vist VB lidt for meget ? *G*
ASP/VBScript tillader ikke brugen af scope keywords (Private/Public/Friend), at DIMme AS [noget] eller Optional keyword\'et. Desuden skal man ikke sætte ; efter kodelinier..
Sådan her skal den se ud til ASP/VBScript :
Function Replacex(sourceStr, oldStr, newStr) Set re = New RegExp re.Pattern = oldStr re.Global = True re.IgnoreCase = False Replacex = re.Replace(sourceStr, newStr) End Function
Beklager det med semikolon. Det er vist noget genetisk hos mig ... Det andet mener jeg nu nok ville virke. Har selv egenhændigt tyvstjålet det fra Microsoft :)
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.