Tag Archive for 'access'

Acces et les expressions régulières

Faire un module avec une fonction

Function regexReplace(strBuff As String,pattern As String,strReplace As String) As String 
Dim regEx 
Set regEx = CreateObject("VBScript.RegExp") 
regEx.Pattern = pattern 
regEx.IgnoreCase = True 'Ne pas distinguer les minuscules des majuscules 
regEx.Global = True 'Renvoyer seulement la première occurrence 
strBuff = regEx.Replace(strBuff, strReplace) 'le replacement de chaine 
regexReplace= strBuff 
xit: 
Exit Function 
err: 
strBuff = False 
Resume xit 
 
End Function

Fonction qui peut être utilisée dans requêtes. La fonction pourrait être améliorée pour mettre en paramêtre une chaine de remplacement. Ici une expression régulière pour supprimer des tags HTML.

SELECT 
Table1.ID, regexReplace(Table1.Field1,"(< [^>]*>)","") AS Expr1 
FROM Table1;