From 8e70ad2323cc2ec5e6397c89f1053701d67da9ac Mon Sep 17 00:00:00 2001 From: joyfullservice Date: Wed, 25 Oct 2023 16:20:38 -0500 Subject: [PATCH] Convert Sanitize module to class In some cases sanitizing a source file actually creates two distinct outputs. A layout file and a code file. Rather than making the sanitize function more complicated with byref outputs and non-obvious side effects, I am taking the approach of a more explicit object-oriented route where the code is easier to understand and maintain. (And also allows for future enhancements such as SQL extraction for query definition files.) --- .../modules/{modSanitize.bas => clsSanitize.cls} | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) rename Version Control.accda.src/modules/{modSanitize.bas => clsSanitize.cls} (99%) diff --git a/Version Control.accda.src/modules/modSanitize.bas b/Version Control.accda.src/modules/clsSanitize.cls similarity index 99% rename from Version Control.accda.src/modules/modSanitize.bas rename to Version Control.accda.src/modules/clsSanitize.cls index c13653bb..4cfb4d1c 100644 --- a/Version Control.accda.src/modules/modSanitize.bas +++ b/Version Control.accda.src/modules/clsSanitize.cls @@ -1,4 +1,12 @@ -Attribute VB_Name = "modSanitize" +VERSION 1.0 CLASS +BEGIN + MultiUse = -1 'True +END +Attribute VB_Name = "clsSanitize" +Attribute VB_GlobalNameSpace = False +Attribute VB_Creatable = False +Attribute VB_PredeclaredId = False +Attribute VB_Exposed = False '--------------------------------------------------------------------------------------- ' Module : modSanitize ' Author : Adam Waller @@ -6,7 +14,6 @@ ' Purpose : Functions to sanitize files to remove non-essential metadata '--------------------------------------------------------------------------------------- Option Compare Database -Option Private Module Option Explicit Private Const ModuleName = "modSanitize"