Reading binary data from a file and writing it

Expand Post »

In Visual Basic 6 I have written a program to read and write to a file. It works fine. Now I have to do the same for binary data since the information I write to the file has end-of-line and return characters. For instance, when I write to the file, the data looks like this:

"3
34"

Because there is a break in the data. In debug mode, the text data has two boxes where the end-of-line and return characters go.

Anyway, does anyone have any example code of binary level reading and writing to and from a file?

Similar Threads

problems with reading random access line from a file in C++
Get data out of excel file stored as an image in MS SQL
writing students data to a text file in Assembly
Listview Data to XML or file in VB.NET
Binary data in app.config in C#

complete

Reputation Points: 17

Solved Threads: 0

Junior Poster

Offline

147 posts
since Dec 2005

Permalink

Jan 4th, 2006

Re: Reading binary data from a file and writing it

The character codes for that are vbcr and vblf (also vbcrlf) which translate to chr(13) and chr(10) (those are carriage return and line feed). So, if it would be easier for you to merely check for an occurance of either of those in a string using instr, and replacing the offending character with the replace function, that might be an easier solution for you. However, if you want to leave the file completely unchanged, and merely write the file as it is with binary:

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Dim B() As Byte
Dim srcFile as string
dim destFile as string
 
' /* Change This To your File */
srcFile = "c:\somefile.exe"
destFile = "c:\destination.exe"
 
Open srcFile For Binary Access Read As #1
     ReDim B(LOF(1) - 1) 
     Get #1, , B
Close #1
 
open destfile for binary access write as #1
     put #1, , B
close #1
Dim B() As Byte
Dim srcFile as string
dim destFile as string

' /* Change This To your File */
srcFile = "c:\somefile.exe"
destFile = "c:\destination.exe"

Open srcFile For Binary Access Read As #1
     ReDim B(LOF(1) - 1) 
     Get #1, , B
Close #1

open destfile for binary access write as #1
     put #1, , B
close #1

Let me know what you come up with.

Comatose

Team Colleague

Reputation Points: 361

Solved Threads: 214

Taboo Programmer

Offline

2,413 posts
since Dec 2004

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: using the clipboard

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: RmDir and MsChart Have Problems in XP -Pls Help

DaniWeb Message

Cancel Changes

User Name
Password