Replace Bytes

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

JT - 12 Apr 2007 19:07 GMT

dim br as BinaryReader(stream)
dim buf(5000) as byte
br.Read(buf,0,5000)
closeit..
I have read a binary file into a buffer. This buffer contains many different
chars as well as a few null chars. I want to replace the (NULLS)chr(0)'s
with (SPACES)chr(32)'s. How can I do this. REPLACE does not seem to be an
option, If I converted it to a string I was afraid the string would stop at
the first NULL truncating the remaining chars. Any ideas on how to do
this...
Thanks
JT

Reply to this Message

Dave Kreskowiak - 12 Apr 2007 21:44 GMT

All you have to do is iterate over the byte array and replace the occurances
of 0 with 32. No need to convert it to a string.

But, you might want to keep track of exactly how many bytes you read from
the file and only iterate over that many in the array.

For i As Integer = 0 to buf.Length - 1
If buf(i) = 0 Then
buf(i) = 32
End If
Next

Signature

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming
Gnome

> dim br as BinaryReader(stream)
> dim buf(5000) as byte
[quoted text clipped - 8 lines]
> Thanks
> JT

Reply to this Message

Free Magazines

Get these publications absolutely FREE for up to 12 months. There are no hidden fees and no obligation. Simply choose a title, complete the application form and submit it. Read more ...