From 1d866f82dfefb38ba95e8c5a0cf9e77b8fd6b92a Mon Sep 17 00:00:00 2001 From: Lukas Ziegler Date: Mon, 8 Mar 2021 10:14:24 +0100 Subject: [PATCH] remove echos --- compose.vbs | 26 +++++++++++++------------- decompose.vbs | 28 ++++++++++++++-------------- 2 files changed, 27 insertions(+), 27 deletions(-) diff --git a/compose.vbs b/compose.vbs index 9aa8a66..80b54e1 100644 --- a/compose.vbs +++ b/compose.vbs @@ -68,10 +68,10 @@ Function importModulesTxt(ACCDBFilename, sImportpath) End If End If - Wscript.Echo "starting Access..." + 'Wscript.Echo "starting Access..." Dim oApplication Set oApplication = CreateObject("Access.Application") - Wscript.Echo "Opening " & ACCDBFilename + 'Wscript.Echo "Opening " & ACCDBFilename If (Right(ACCDBFilename, 4) = ".adp") Then oApplication.CreateAccessProject ACCDBFilename Else @@ -91,31 +91,31 @@ Function importModulesTxt(ACCDBFilename, sImportpath) Select Case objecttype Case "form" - Wscript.Echo "Importing FORM from file " & myFile.Name + 'Wscript.Echo "Importing FORM from file " & myFile.Name oApplication.LoadFromText acForm, objectname, myFile.Path Case "module" - Wscript.Echo "Importing MODULE from file " & myFile.Name + 'Wscript.Echo "Importing MODULE from file " & myFile.Name oApplication.LoadFromText acModule, objectname, myFile.Path Case "macro" - Wscript.Echo "Importing MACRO from file " & myFile.Name + 'Wscript.Echo "Importing MACRO from file " & myFile.Name oApplication.LoadFromText acMacro, objectname, myFile.Path Case "report" - Wscript.Echo "Importing REPORT from file " & myFile.Name + ' Wscript.Echo "Importing REPORT from file " & myFile.Name oApplication.LoadFromText acReport, objectname, myFile.Path Case "query" - Wscript.Echo "Importing QUERY from file " & myFile.Name + 'Wscript.Echo "Importing QUERY from file " & myFile.Name oApplication.LoadFromText acQuery, objectname, myFile.Path Case "table" - Wscript.Echo "Importing TABLE from file " & myFile.Name + 'Wscript.Echo "Importing TABLE from file " & myFile.Name oApplication.ImportXml myFile.Path, acStructureOnly Case "rel" - Wscript.Echo "Found RELATIONSHIPS file " & myFile.Name & " ... opening, it will be processed after everything else has been imported" + 'Wscript.Echo "Found RELATIONSHIPS file " & myFile.Name & " ... opening, it will be processed after everything else has been imported" relDoc.Load (myFile.Path) End Select Next If relDoc.readyState Then - Wscript.Echo "Preparing to build table dependencies..." + ' Wscript.Echo "Preparing to build table dependencies..." Dim xmlRel, xmlField, accessRel, relTable, relName, relFTable, relAttr, i For Each xmlRel In relDoc.SelectNodes("/Relations/Relation") 'loop through every Relation node inside .xml file relName = xmlRel.SelectSingleNode("Name").Text @@ -130,17 +130,17 @@ Function importModulesTxt(ACCDBFilename, sImportpath) oApplication.CurrentDb.TableDefs(relFTable).Indexes.Delete (relName) On Error GoTo 0 - Wscript.Echo "Creating relation " & relName & " between tables " & relTable & " -> " & relFTable + 'Wscript.Echo "Creating relation " & relName & " between tables " & relTable & " -> " & relFTable Set accessRel = oApplication.CurrentDb.CreateRelation(relName, relTable, relFTable, relAttr) 'create the relationship object For Each xmlField In xmlRel.SelectNodes("Field") 'in case the relationship works with more fields accessRel.Fields.Append accessRel.CreateField(xmlField.SelectSingleNode("Name").Text) accessRel.Fields(xmlField.SelectSingleNode("Name").Text).ForeignName = xmlField.SelectSingleNode("ForeignName").Text - Wscript.Echo " Involving fields " & xmlField.SelectSingleNode("Name").Text & " -> " & xmlField.SelectSingleNode("ForeignName").Text + 'Wscript.Echo " Involving fields " & xmlField.SelectSingleNode("Name").Text & " -> " & xmlField.SelectSingleNode("ForeignName").Text Next oApplication.CurrentDb.Relations.Append accessRel 'append the newly created relationship to the database - Wscript.Echo " Relationship added" + ' Wscript.Echo " Relationship added" Next End If diff --git a/decompose.vbs b/decompose.vbs index f7b6c89..7c1ba2f 100644 --- a/decompose.vbs +++ b/decompose.vbs @@ -48,15 +48,15 @@ Function exportModulesTxt(ACCDBFilename, sExportpath) If (sExportpath = "") Then sExportpath = myPath & "\Source" End If - 'On Error Resume Next + On Error Resume Next fso.DeleteFolder (sExportpath) fso.CreateFolder (sExportpath) On Error GoTo 0 - Wscript.Echo "starting Access..." + 'Wscript.Echo "starting Access..." Dim oApplication Set oApplication = CreateObject("Access.Application") - Wscript.Echo "Opening " & ACCDBFilename & " ..." + 'Wscript.Echo "Opening " & ACCDBFilename & " ..." If (Right(ACCDBFilename, 4) = ".adp") Then oApplication.OpenAccessProject ACCDBFilename Else @@ -64,33 +64,33 @@ Function exportModulesTxt(ACCDBFilename, sExportpath) End If oApplication.Visible = False - Wscript.Echo "exporting..." + ' Wscript.Echo "exporting..." Dim myObj For Each myObj In oApplication.CurrentProject.AllForms - Wscript.Echo "Exporting FORM " & myObj.FullName + 'Wscript.Echo "Exporting FORM " & myObj.FullName oApplication.SaveAsText acForm, myObj.FullName, sExportpath & "\" & myObj.FullName & ".form.txt" oApplication.DoCmd.Close acForm, myObj.FullName Next For Each myObj In oApplication.CurrentProject.AllModules - Wscript.Echo "Exporting MODULE " & myObj.FullName + 'Wscript.Echo "Exporting MODULE " & myObj.FullName oApplication.SaveAsText acModule, myObj.FullName, sExportpath & "\" & myObj.FullName & ".module.txt" Next For Each myObj In oApplication.CurrentProject.AllMacros - Wscript.Echo "Exporting MACRO " & myObj.FullName + 'Wscript.Echo "Exporting MACRO " & myObj.FullName oApplication.SaveAsText acMacro, myObj.FullName, sExportpath & "\" & myObj.FullName & ".macro.txt" Next For Each myObj In oApplication.CurrentProject.AllReports - Wscript.Echo "Exporting REPORT " & myObj.FullName + 'Wscript.Echo "Exporting REPORT " & myObj.FullName oApplication.SaveAsText acReport, myObj.FullName, sExportpath & "\" & myObj.FullName & ".report.txt" Next For Each myObj In oApplication.CurrentDb.QueryDefs - Wscript.Echo "Exporting QUERY " & myObj.Name + 'Wscript.Echo "Exporting QUERY " & myObj.Name oApplication.SaveAsText acQuery, myObj.Name, sExportpath & "\" & myObj.Name & ".query.txt" Next For Each myObj In oApplication.CurrentDb.TableDefs If Not Left(myObj.Name, 4) = "MSys" Then - Wscript.Echo "Exporting TABLE " & myObj.Name - oApplication.ExportXml acExportTable, myObj.Name, , sExportpath & "\" & myObj.Name & ".table.txt" + 'Wscript.Echo "Exporting TABLE " & myObj.Name + oApplication.ExportXml acExportTable, myObj.Name, sExportpath & "\" & myObj.Name & ".table.txt" 'put the file path as a second parameter if you want to export the table data as well, instead of ommiting it and passing it into a third parameter for structure only End If Next @@ -119,7 +119,7 @@ Function exportModulesTxt(ACCDBFilename, sExportpath) relFoTable.Text = myObj.ForeignTable relDoc.ChildNodes(0).LastChild.appendChild relFoTable - Wscript.Echo "Exporting relation " & myObj.Name & " between tables " & myObj.Table & " -> " & myObj.ForeignTable + 'Wscript.Echo "Exporting relation " & myObj.Name & " between tables " & myObj.Table & " -> " & myObj.ForeignTable For Each fld In myObj.Fields 'in case the relationship works with more fields Dim lf, ff @@ -133,14 +133,14 @@ Function exportModulesTxt(ACCDBFilename, sExportpath) ff.Text = fld.ForeignName relDoc.ChildNodes(0).LastChild.LastChild.appendChild ff - Wscript.Echo " Involving fields " & fld.Name & " -> " & fld.ForeignName + 'Wscript.Echo " Involving fields " & fld.Name & " -> " & fld.ForeignName Next End If Next If hasRelations Then relDoc.InsertBefore relDoc.createProcessingInstruction("xml", "version='1.0'"), relDoc.ChildNodes(0) relDoc.Save sExportpath & "\relations.rel.txt" - Wscript.Echo "Relations successfuly saved in file relations.rel.txt" + 'Wscript.Echo "Relations successfuly saved in file relations.rel.txt" End If oApplication.CloseCurrentDatabase