' 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
- [SAP Gateway] Implementierung einer OData-Services basierend auf CDS-Views (SADL + Annotationen)
- [SAP Fiori] Implementierung einer einfachen SAP-Fiori-Anwendung mit Hilfe von SAP UI5 und OData (CRUD)
- [ABAP] Ermittlung der Anmeldedaten incl. des Rechnernamens
- [ABAP] Doppel-Backslash in String ersetzen
- [ABAP] ABAP-Mathematik Bibliothek (cl_abap_math)
- [ABAP] Prüfen, ob Pfad auf dem Applikationsserver existiert
- [ABAP] DMS: Dokumenteninfosätze lesen (CVAPI_DOC_GETDETAIL)
- [ABAP] DMS: Dokumenteninfosätze löschen (BAPI_DOCUMENT_DELETE_DIRECT)
- [ABAP] DMS: Dateien von Dokumenteninfosätzen lesen (SCMS_DOC_READ)
- [ABAP] DMS: Verknüpfte Dokumenteninfosätze zu einem Objekt lesen (BAPI_DOCUMENT_GETOBJECTDOCS)