Textdatei im Binärmodus zum Lesen öffnen, bearbeiten und speichern I

Eine Textdatei im Binärmodus zum Lesen öffnen, bearbeiten und speichern:
Open ... For Binary, Close, Get, Put
Dim gFileNum As Integer
Private Sub cmdCreate_Click()
gFileNum = FreeFile
Open "Test.bin" For Binary As gFileNum Datei für binären Zugriff erzeugen. Wird kein Pfad genannt,
Close gFileNum wird die Datei im selben Pfad wie dieses Programm
End Sub angelegt.
Private Sub cmdOpen_Click()
Dim Puffer As String
gFileNum = FreeFile
Open "Test.bin" For Binary As gFileNum Datei für binären Zugriff öffnen.
Puffer = String(100, " ") Puffer-Variable mit 100 Leerstellen vorbelegen.
Get gFileNum, 1, Puffer Liest genau 100 Stellen ab 1. Stelle ein.
Me.txtWrite = Puffer Inhalt der Puffervariable in Textfeld übergeben.
Close gFileNum
End Sub
Private Sub cmdWrite_Click()
Dim Puffer As String
Puffer = InputBox("Bitte Test-String eingeben:")
gFileNum = FreeFile
Open "Test.bin" For Binary As gFileNum
Put #gFileNum, 1, Puffer Schreibt Inhalt der Puffervariable an angegebene
Close gFileNum Byte-Position.
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
.

Mehr Tipps: Textdatei im sequentiellen Modus zum Lesen öffnen und speichern I

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt