Wie kann ich Paketversionsinformationen aus DTSX-Dateien extrahieren?

Paketinformationsextraktion aus DTsx-Dateien

Um Paketversionen für mehrere in einem Verzeichnis gespeicherte .DTsx-Dateien zu ermitteln, beachten Sie Folgendes Techniken:

• Verwendung von VBA mit Regex oder XmlParser:
  
  Diese Methode beinhaltet das Lesen und Parsen von .DTsx-Dateien, um bestimmte zu extrahieren Immobilien, einschließlich PackageFormatVersion.


• Verwenden von T-SQL-Abfragen:
  
  Wenn die.DTsx-Dateien in der msdb-Datenbank von SQL Server gespeichert sind, können Sie Paketversionen abrufen Verwendung dedizierter Abfragen. Diese Methode erfordert jedoch eine manuelle Navigation zum spezifischen Datenbankspeicherort der .DTsx-Dateien.

Allerdings müssen Paketversionsinformationen für Dateien extrahiert werden, die nicht in SQL Server gespeichert sind erfordert programmatische Ansätze. Hier ist eine detaillierte Perspektive auf jede Methode:

Programmgesteuerter Zugriff auf Paketversionsinformationen

Um den Abruf von Paketversionen zu automatisieren, finden Sie hier zwei Programmieransätze mit:

1. VBA mit Regex:

Diese Methode nutzt reguläre Ausdrücke, um.DTsx-Dateien zu analysieren und die PackageFormatVersion und andere Paketeigenschaften zu extrahieren. Zur Darstellung dieser Informationen wird eine benutzerdefinierte Klasse definiert. Hier ist ein Codeausschnitt, der diesen Ansatz veranschaulicht:

<br>Regex.Match(strContent, "(?<=<=""PackageFormatVersion"">)(.*)(? =</DTS:Property>)", RegexOptions.Singleline).Value<br>

2. VBA mit XML-Parser:

Diese Methode verwendet einen XML-Parser, um auf den Inhalt der .DTsx-Datei zuzugreifen und die relevanten Eigenschaften zu extrahieren. Der Code analysiert das XML-Dokument und ruft PackageFormatVersion mithilfe von Namespaces und Attributen ab. Hier ist ein Codeausschnitt, der diese Technik veranschaulicht:

<br>Dim ns As XNamespace = "www.microsoft.com/SqlServer/Dts"<br>Dim man As XmlNamespaceManager = New XmlNamespaceManager(New NameTable ())<br>man.AddNamespace("DTS", "www.microsoft.com/SqlServer/Dts")<br>Wenn nicht, ist xml.Root Nothing AndAlso Not xml.Root.Descendants(ns "Property").Attributes(ns "Name") Is Nothing AndAlso xml.Root. Descendants(ns „Property“).Attributes(ns „Name“).Where(Function(x) x.Value = „PackageFormatVersion“).Count > 0 Dann</p>
<div class="code" style="position:relative; padding:0px; margin:0px;"><pre class="brush:php;toolbar:false">strPackageFormatVersion = xml.Root.Descendants(ns + "Property").Attributes(ns + "Name").Where(Function(x) x.Value = "PackageFormatVersion").FirstOrDefault.Parent.Value