' https://stackoverflow.com/questions/660312/how-can-i-read-a-binary-file-using-vba Sub BtnReadBinaryClick() ' Dateipfad + Dateiname Dim sFile As String sFile = "c:\\temp\\test.bin" ' Array für Binärdaten Dim byaFileData() As Byte ' Dateizeiger Dim fd As Integer ' nächsten freien Dateizeiger holen fd = FreeFile ' Datei zum binären Lesen öffnen Open sFile For Binary Access Read As #fd ' Array an Dateigröße anpassen ReDim byaFileData(0 To LOF(fd) - 1) ' Datei in Array einlesen Get #fd, , byaFileData ' hier byaFileData bearbeiten ... ' Datei schließen Close #fd End Sub
Kategorien
-
Neueste Beiträge
- [ABAP] Prüfen, ob ein bestimmer Festwert in einer Domäne vorhanden ist
- [SAP] Drucker für Benutzer festlegen
- [SAP Fiori] Fiori Launchpad erweitern, Systeminformationen im Launchpad anzeigen
- [SAP Gateway] ODATA V4 Service für anonymen Zugriff einrichten
- [ABAP] Varianten eines Reports lesen
- Warum Krebspatienten so viel Gewicht verlieren
- [SAP Fiori] ABAP RESTful Application Programming Model (RAP)
- [SAP] Events und Typkoppelungen
- [SAP Gateway] Daten versenden über einen eventbasierten Aufruf einer OData-Funktion
- [ABAP] SE80: Tricks für den ABAP-Editor