Bahnskis Code Archiv - Meine kleines Code Archiv mit Funktionen für MySQL, Oracle, VBS und andere

VBA Access: XML Beautiful

Posted on 3. Januar 20203. Januar 2020 by Christian Bahn | Posted in Programmierung, VBA MS Access, XMLTagged vba, xml, xmlbeautiful

Beschreibung: Erstellt aus einem XML Objekt eine schön lesbaren Text! Code:

Function PrettyPrintXml(ByVal xmldoc, Optional ByVal EmitXMLDeclaration As Boolean) As String
    Dim objReader As SAXXMLReader60
    Set objReader = New SAXXMLReader60
    
    Dim objWriter As MXXMLWriter60
    Set objWriter = New MXXMLWriter60
    
    objWriter.Indent = True
    objWriter.omitXMLDeclaration = Not EmitXMLDeclaration
    Set objReader.contentHandler = objWriter
    objReader.parse (xmldoc)
    PrettyPrintXml = objWriter.output
End Function

1

2

3

4

5

6

7

8

9

10

11

12

13

Function PrettyPrintXml(ByVal xmldoc, Optional ByVal EmitXMLDeclaration As Boolean) As String

Dim objReader As SAXXMLReader60

Set objReader = New SAXXMLReader60

Dim objWriter As MXXMLWriter60

Set objWriter = New MXXMLWriter60

objWriter.Indent = True

objWriter.omitXMLDeclaration = Not EmitXMLDeclaration

Set objReader.contentHandler = objWriter

objReader.parse (xmldoc)

PrettyPrintXml = objWriter.output

End Function

Download: Klick für Download

Powershell: Alle Verzeichnisse in einem Quellverzeichnis in ein ZIP Archiv packen

Posted on 23. November 201723. November 2017 by Christian Bahn | Posted in Powershell, ProgrammierungTagged 7zip, Attributes, Directory, Get-ChildItem, verzeichnis, zip, zippen

Beschreibung: Immer wieder benötigt. Schnell und einfach viele Verzeichnisse in separate ZIP Archive packen. Da ist doch die Powershell wie geschaffen dafür. Also schnell die Variablen befüllt. Die Dateien ermitteln. Prüfen ob es ein Verzeichnis ist und dann mit 7Zip das ganze über cmd in ein Archiv packen. Fertig. Code:

[String] $strSource = "W:\Source"
[String] $strDestination = "D:\Destination"
[String] $strPath7Zip = "C:\Program Files\7-Zip"
[String] $strFullCommand = ""
$objFiles = Get-ChildItem -Path $strSource 

foreach ($objFile in $objFiles){
    if ($objFile.Attributes -eq 'Directory'){
        $strFullCommand = '"' + $strPath7Zip + '\7z.exe" a "' + $strDestination + '\' + $objFile.Name + '.7z" "' + $strSource + '\' + $objFile.Name + '"'
        cmd /c $strFullCommand
    }
}

1

2

3

4

5

6

7

8

9

10

11

12

[String] $strSource = "W:\Source"

[String] $strDestination = "D:\Destination"

[String] $strPath7Zip = "C:\Program Files\7-Zip"

[String] $strFullCommand = ""

$objFiles = Get-ChildItem -Path $strSource

foreach ($objFile in $objFiles){

if ($objFile.Attributes -eq 'Directory'){

$strFullCommand = '"' + $strPath7Zip + '\7z.exe" a "' + $strDestination + '\' + $objFile.Name + '.7z" "' + $strSource + '\' + $objFile.Name + '"'

cmd /c $strFullCommand

}

Download: Klick für Download

Powershell: Bildschirmbereich mit GetBufferContents sichern und wieder herstellen

Posted on 22. November 201723. November 2017 by Christian Bahn | Posted in Powershell, ProgrammierungTagged background, GetBufferContents, Powershell, SetBufferContents

Beschreibung: Da ich ein Fan der Konsole bin und gerne mehr mit Powershell erledigen möchte , habe ich mich auf die Suche gemacht, komfortable Werte abzufragen in Form eines Formulars. Klar ich kann mit Tools mit eine GUI zusammenbasteln und auf die Ereignisse reagieren. Aber dann befinde ich mich schon wieder außerhalb der Konsole. Also […]

VBA Access: Klasse mit Treeview um Daten auszuwählen bzw. zu bearbeiten

Posted on 27. September 201723. November 2017 by Christian Bahn | Posted in Klassen, Programmierung, VBA MS AccessTagged Drag & Drop, DragDrop, klasse, ms access, TreeView, vba

Beschreibung: Immer wieder benötige ich in meinen Access Datenbanken ein Treeview. Und jedes Mal muss ich erneut herausfinden wie es funktioniert. Und jedes Mal ärgere ich mich darüber, dass man das Treeview nicht einfach werden kann. Also was machen? Eine Klasse, das wäre nett! Als ein bisschen darüber nachgedacht und losgelegt. Und herausgekommen ist die […]

Powershell: Dateien je nach Bearbeitungsdatum in ZIP Archiv überführen

Posted on 27. September 201727. September 2017 by Christian Bahn | Posted in Powershell, ProgrammierungTagged archive, log, Powershell, verzeichnis, zip

Beschreibung: Ein kleines Script welches in einem angegebenen Verzeichnis alle Dateien, die einem Filter entsprechen, in ein tägliches ZIP Archiv überführen. Berücksichtigt wird das Bearbeitungsdatum. Nach dem erfolgreichen hinzufügen zu einem Archiv wird die Original Datei gelöscht. Entstanden ist das Script, da eine Anwendung die Logdateien von einem Programm meine Festplatte voll geschrieben haben. Parameter: […]

VBS: Alle Dateinamen in einer angegebenen Verzeichnisstruktur in Kleinbuchstaben umwandeln (LowerCase)

Posted on 29. Juni 201723. November 2017 by Christian Bahn | Posted in Dateioperationen, Programmierung, VBSTagged datei, kleinschreibung, lowercase, rekursiv, umwandeln, vbs

Beschreibung: Auf der Suche nach einem Tool (das ich nicht gefunden habe), der mir alle Dateinamen in einer angegebenen Verzeichnisstruktur (rekursiv) in Kleinbuchstaben umwandelt, habe ich diese Script geschrieben.

VBS: Datei verschieben (MoveFile)

Posted on 29. Juni 201729. Juni 2017 by Christian Bahn | Posted in Dateioperationen, Programmierung, VBSTagged datei, movefile, vbs, verschieben

Beschreibung: Eine Funktion zum verschieben einer Datei! Parameter: Parametername Parameterwert strSource Quelldatei inkl. Pfad strDestination Zieldatei inkl. Pfad Code:

function MoveFile(strSource, strDestination)
	Dim objFso
	Set objFso = CreateObject("Scripting.FileSystemObject") 
	objFso.MoveFile strSource, strDestination
end function

1

2

3

4

5

function MoveFile(strSource, strDestination)

Dim objFso

Set objFso = CreateObject("Scripting.FileSystemObject")

objFso.MoveFile strSource, strDestination

end function

Download: Klick für Download

VBA Access: Dateinamen aus Dateinamen inkl. Pfad extrahieren

Posted on 26. April 201726. April 2017 by Christian Bahn | Posted in Dateien, Programmierung, VBA MS AccessTagged Dateiname, ermitteln, ms access, pfad, vba, verzeichnis

Beschreibung: Um den Dateinamen aus dem Dateinamen inkl. Pfad zu extrahieren ist diese kleine Funktion gedacht! Es wird im der Pfad inkl Dateiname übergeben und die Funktion gibt nur den Dateinamen zurück!

VBA Access: Verzeichnis auswählen (FileDialog)

Posted on 20. April 2017 by Christian Bahn | Posted in Dateien, Programmierung, VBA MS AccessTagged filedialog, ms access, msoFileDialogFolderPicker, vba, verzeichnis

Beschreibung: Immer wieder benötigt und immer wieder vergessen! So bei mir, deshalb nun hier! Ein Verzeichnis in VBA auswählen. Es ist ja zum Glück mittlerweile recht Einfach ein Verzeichnis auszuwählen. Auch lässt sich dieses Beispiel recht einfach auf Dateiauswahl, bzw. Dateien Auswahl umwandeln.

VBA Access: Ersetze Platzhalter mit Werten (Vorlagen mit Daten befüllen)

Posted on 5. April 20175. April 2017 by Christian Bahn | Posted in Programmierung, Text, VBA MS AccessTagged befüllen, daten, ersetzen, ms access, replace, text, vba, vorlage, vorlage befüllen

Beschreibung: Vorlagen mit Daten befüllen ist bei mir eine Aufgabe die immer mal wieder benötigt wird. Sei es eine HTML Datei oder Textdateien! Hiermit kein Problem.