Extraire la sous-chaîne spécifique qui ne précédait pas avec la sous-chaîne spécifiée

Question

J'ai une question relativement simple mais qui m'a amené au mur. Je veux avoir une tâche suivante de regex dans VBA (VBScript_RegExp_5.5).

d'une chaîne comme ceci:

"PrivateFactoryAsclsFactoryPrivateFactoryAsclsFactory" 

Je veux supprimer uniquement les occurrences de "Factory" qui ne sont pas précédés par "cls". Dans ce cas particulier, si tous les matches sont correctement remplacés par "_", le résultat ressemblera à ceci:

"Private_AsclsFactoryPrivate_AsclsFactory" 

Bien sûr, un truc simple d'exclusion comme "clsFactory|(Factory)" ne fonctionne en VBA, ni ne regarde autotractées.

Answer 1

Vous pouvez réellement faire un lookbehind négatif avec un peu d'un hack en utilisant la bibliothèque VBScript Regex. Le modèle suivant correspond à deux caractères ou moins ou trois caractères quelconques qui ne sont pas "cls" (en utilisant une vue d'ensemble négative), suivi de "Factory".

Const strText As String = "PrivateFactoryAsclsFactoryPrivateFactoryAsclsFactory" 

With CreateObject("VBScript.RegExp") 
    .Pattern = "(^.{0,2}|(?!cls).{3})Factory" 
    .Global = True 
    Debug.Print .Replace(strText, "$1_") 
End With 

Sortie:

Private_AsclsFactoryPrivate_AsclsFactory