' 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
- [RAP] ODATA V4 Service und Fiori Elements App implementieren
- [ABAP] Übernahme von Dokumenteninfosätzen beim Anlegen von Einkaufsbelegen unterdrücken
- [ABAP] OpenSQL: Stringfunktionen
- [ABAP] OpenSQL: NULL-Indicator zum Anzeigen von leeren Rückgabemengen
- [ABAP] OpenSQL: Set-Indicator für das Aktualisieren von Spalten
- [ABAP] Repository-Infosystem: Views zu Objekten
- [ABAP] SALV-Table – Gruppen für Spaltenvorrat im SALV-Layout
- [ABAP] Retourenumlagerungsbestellungen lesen
- [SAP] Fabrikkalender / Feiertagskalender einrichten
- [ABAP] ABAP2XLSX: CSV-Datei schreiben