Frage zu Visual Basic und binärem Dateizugriff

Seite 1 von 1 - Forum: Coding Stuff auf overclockers.at

URL: https://www.overclockers.at/coding-stuff/frage_zu_visual_basic_und_binaerem_dateizugriff_83314/page_1 - zur Vollversion wechseln!

COLOSSUS schrieb am 23.06.2003 um 17:50

Also, es geht darum, dem Anfang einer binären Datei Daten voranzustellen, bzw. allen Bytes einer Datei einen gewissen Wert modulo 255 hinzuzuaddieren. Wie aber lese ich eine ganze Datei in einen String respektive in eine (Rich)Textbox (sollte ja die gleiche Operation bedingen). Mit Open [datei] for binary as FreeFile sollte die Datei im richtigen Modus geöffnet werden, aber wie lese ich ihren ganzen Inhalt, so wie in PHP z.B. mit readfile()?

Wäre wirklich supertoll, wenn mir wer helfen könnte.

COLOSSUS schrieb am 23.06.2003 um 20:56

Niemand eine Idee?

that schrieb am 23.06.2003 um 21:06

Binaries würde ich nicht in Textboxen bearbeiten (geht vermutlich auch gar nicht), aber zu VB kann ich dir leider nix sagen.

atrox schrieb am 23.06.2003 um 21:32

http://www.codeguru.com/forum/showt...8834#post709268

http://www.codeguru.com/forum/showt...threadid=220439

atrox schrieb am 23.06.2003 um 21:34

Zitat von that
Binaries würde ich nicht in Textboxen bearbeiten (geht vermutlich auch gar nicht), aber zu VB kann ich dir leider nix sagen.

ack, wenn es wirklich eine binärdatei ist, eignet sie sich wohl auch schlecht für die anzeige.
was willst du durchs byteweise addieren ohne überlauf erreichen ?

COLOSSUS schrieb am 24.06.2003 um 11:16

Keine der dort aufgezählten Methoden funktioniert wirklich

Entweder kriege ich einen String der Länge 0 zurück, oder lediglich die erste Zeile der Datei. Mit dem FileSystemObject habe ich es mittlerweile geschafft, eine Datei vollständig einzulesen, allerdings sieht mir der Rückgabewert der Methode nicht nach dem wirklichen Inhalt der Datei aus. O_o

Ich will eigentlich nur einen kleinen Verschlüsselungsalgorithmus schreiben, mehr nicht.

JC schrieb am 24.06.2003 um 15:26

@COLOSSUS

Code:

[i]Neues Projekt, Textbox und Commandbutton zeichnen, folgenden Code einfügen:[/i]

    Dim intFreeFileNum As Integer
    Dim strBuffer As String

    intFreeFileNum = FreeFile
    Open "C:\test.dat" For Binary Access Read As #intFreeFileNum
    strBuffer = Space(LOF(intFreeFileNum))
    Get #intFreeFileNum, , strBuffer
    Close #intFreeFileNum
    Text1.Text = strBuffer

So bekommst du den Inhalt in eine Textbox. Für jedwede weitere Information rate ich die Get-Anweisung in der MSDN-Library näher zu studieren.

//edit
Hier findet sich ein nettes Beispiel, wo eine Datei Byte für Byte eingelesen und verschlüsselt wird.

COLOSSUS schrieb am 28.06.2003 um 14:20

Zitat von JC
@COLOSSUS
Code:
[i]Neues Projekt, Textbox und Commandbutton zeichnen, folgenden Code einfügen:[/i]

    Dim intFreeFileNum As Integer
    Dim strBuffer As String

    intFreeFileNum = FreeFile
    Open "C:\test.dat" For Binary Access Read As #intFreeFileNum
    strBuffer = Space(LOF(intFreeFileNum))
    Get #intFreeFileNum, , strBuffer
    Close #intFreeFileNum
    Text1.Text = strBuffer
So bekommst du den Inhalt in eine Textbox. Für jedwede weitere Information rate ich die Get-Anweisung in der MSDN-Library näher zu studieren.

//edit
Hier findet sich ein nettes Beispiel, wo eine Datei Byte für Byte eingelesen und verschlüsselt wird.

Danke! Endlich eine Methode die funktioniert