Refactor for name change

joyfullservice · Nov 2, 2023 · c2ffccf · c2ffccf
1 parent 47c6506
commit c2ffccf
Show file tree

Hide file tree

Showing 4 changed files with 10 additions and 10 deletions.
diff --git a/Version Control.accda.src/modules/clsDbTableData.cls b/Version Control.accda.src/modules/clsDbTableData.cls
@@ -70,7 +70,7 @@ Private Sub IDbComponent_Export(Optional strAlternatePath As String)
                         Application.ExportXML acExportTable, m_Table.Name, strFile
                     End If
                     Perf.OperationEnd
-                    With New clsSanitize
+                    With New clsSourceParser
                         .LoadSourceFile strFile
                         WriteFile .Sanitize(ectXML), strFile
                     End With

diff --git a/Version Control.accda.src/modules/clsDbTableDef.cls b/Version Control.accda.src/modules/clsDbTableDef.cls
@@ -59,7 +59,7 @@ Private Sub IDbComponent_Export(Optional strAlternatePath As String)
         Perf.OperationEnd
 
         ' Rewrite sanitized XML as formatted UTF-8 content
-        With New clsSanitize
+        With New clsSourceParser
             .LoadSourceFile strFile
             DeleteFile strFile
             WriteFile .Sanitize(ectXML), strFile

diff --git a/Version Control.accda.src/modules/clsSourceParser.cls b/Version Control.accda.src/modules/clsSourceParser.cls
@@ -8,7 +8,7 @@ Attribute VB_Creatable = False
 Attribute VB_PredeclaredId = False
 Attribute VB_Exposed = False
 '---------------------------------------------------------------------------------------
-' Module    : modSanitize
+' Module    : clsSourceParser
 ' Author    : Adam Waller
 ' Date      : 12/4/2020
 ' Purpose   : Functions to sanitize files to remove non-essential metadata
@@ -417,7 +417,7 @@ Private Function SanitizeObject() As String 'strPath As String, blnReturnHash As
     ' Prepare VBA output (if used)
     If Not cVBA Is Nothing Then
         ' Build sanitized VBA string
-        With New clsSanitize
+        With New clsSourceParser
             .LoadString cVBA.GetStr
             this.strVBA = .Sanitize(ectVBA)
         End With

diff --git a/Version Control.accda.src/modules/modVCSUtility.bas b/Version Control.accda.src/modules/modVCSUtility.bas
@@ -413,7 +413,7 @@ Public Function SaveComponentAsText(intType As AcObjectType, _
     Dim strPrefix As String
     Dim strPrintSettingsFile As String
     Dim strHash As String
-    Dim cSanitize As clsSanitize
+    Dim cParser As clsSourceParser
 
     On Error GoTo ErrHandler
 
@@ -428,7 +428,7 @@ Public Function SaveComponentAsText(intType As AcObjectType, _
     If FSO.FileExists(strFile) Then DeleteFile strFile
 
     ' Sanitize certain object types
-    Set cSanitize = New clsSanitize
+    Set cParser = New clsSourceParser
     Select Case intType
         Case acForm, acReport
             With New clsDevMode
@@ -454,7 +454,7 @@ Public Function SaveComponentAsText(intType As AcObjectType, _
             End With
 
             ' Sanitizing converts to UTF-8
-            With cSanitize
+            With cParser
                 .LoadSourceFile strTempFile
                 .ObjectName = FSO.GetBaseName(strFile)
                 WriteFile .Sanitize(ectObjectDefinition), strFile
@@ -473,7 +473,7 @@ Public Function SaveComponentAsText(intType As AcObjectType, _
 
         Case acQuery, acMacro
             ' Sanitizing converts to UTF-8
-            With cSanitize
+            With cParser
                 .LoadSourceFile strTempFile
                 WriteFile .Sanitize(ectObjectDefinition), strFile
                 strHash = .Hash
@@ -485,7 +485,7 @@ Public Function SaveComponentAsText(intType As AcObjectType, _
             ' Table data macros are stored in XML format
             ' The file may not exist if no TD Macro was found
             If FSO.FileExists(strTempFile) Then
-                With cSanitize
+                With cParser
                     .LoadSourceFile strTempFile
                     WriteFile .Sanitize(ectXML), strFile
                     strHash = .Hash
@@ -622,7 +622,7 @@ Public Sub ExportCodeModule(strName As String, strFile As String)
     CurrentVBProject.VBComponents(strName).Export strTempFile
 
     ' Sanitize the VBA code while reading the temp file
-    With New clsSanitize
+    With New clsSourceParser
         .LoadString ReadFile(strTempFile, GetSystemEncoding)
         strContent = .Sanitize(ectVBA)
     End With