Text und Clipboard #

Funktionen zum Laden, Speichern und Austauschen von Texten und Binärdaten.

SaveString #

SaveString(Text: String, Filename: String)

Speichert einen Text in eine Datei.

Dim inhalt
inhalt = "Zeile 1" & vbCrLf & "Zeile 2" & vbCrLf & "Zeile 3"
ellib.SaveString inhalt, "C:\Temp\ausgabe.txt"

LoadString(Filename: String): String

Lädt den Inhalt einer Textdatei als String.

Dim inhalt
inhalt = ellib.LoadString("C:\Temp\eingabe.txt")
MsgBox "Dateiinhalt: " & vbCrLf & inhalt

SaveBinary(ByteArray: Variant, Filename: String)

Speichert ein Byte-Array als Binärdatei.

LoadBinary(Filename: String): Variant

Lädt eine Datei als Byte-Array. Nützlich für Bilder, PDFs und andere Binärdaten.

Dim bytes
bytes = ellib.LoadBinary("C:\Bilder\logo.jpg")
' bytes kann z.B. in ein Datenbankfeld geschrieben werden

ClipboardHasText: Boolean

Prüft, ob die Windows-Zwischenablage Text enthält.

ClipboardText: String

Liest den Text aus der Windows-Zwischenablage.

If ellib.ClipboardHasText Then
  MsgBox "Inhalt der Zwischenablage: " & ellib.ClipboardText
End If

ClipboardSetText(Value: String)

Schreibt einen Text in die Windows-Zwischenablage.

ellib.ClipboardSetText "Dieser Text wurde von EULANDA in die Zwischenablage kopiert"