Data Conversion

[Dillon Mantle]

HI All

Does any one know how to convert a binary file into a readable (by human)
file? Its from a bin file, has addresses and stuff which I can work out...
but how do you do the actual conversion?

--
Regards
Dillon Mantle
Different Angle Solutions
072 300 0206

[Larry Serflaten]

> Does any one know how to convert a binary file into a readable (by human)

file? Its from a bin file, has addresses and stuff which I can work out...
but how do you do the actual conversion?

Thats like asking how to convert a book into something human readable.
The book is already human readable, unless the text it contains is not words,
but a bunch of random characters.

If the file is text, no conversion is necessary. If the file is not text, then
it will not be readable unless you know how to decypher its contents.
For example, how do you make a picture file, human readable? It does not
contain text, so you'll never get meaningful text from it.

If the file is encrypted text, then you need to know the decryption algorithm
to get the text back. No one here can tell you which algorithm to use, you need
to find out what needs to be done.

LFS


-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com - The #1 Newsgroup Service in the World!
-----== Over 100,000 Newsgroups - 19 Different Servers! =-----

[Dillon Mantle]

Okay, let me be a little more specific.

The binary data is pulled from a piece of sporting equipment. The memory
extends from 0 to 1A6F, which is 564 data points at 12 bytes each. It is all
numbers, set format as below

interval type 1 byte 0 = distance, 1 = time, 2 =
stroke
time (1/64 sec interval) 3 bytes (72 hours)
distance 3 bytes (1.6+ million m by 1/16)
null byte 1 byte
avg stroke rate 2 bytes (0-255 by 1/256)
number of strokes 2 bytes (65000)

I can work out the memory bits, its just how do you convert "00000001" into
"1"

--
Regards
Dillon Mantle
Different Angle Solutions
072 300 0206
"Larry Serflaten" <Ab***@SpamBust ers.com> wrote in message
news:3f******** @corp.newsgroup s.com...

Does any one know how to convert a binary file into a readable (by human) file? Its from a bin file, has addresses and stuff which I can work out... but how do you do the actual conversion?

Thats like asking how to convert a book into something human readable.
The book is already human readable, unless the text it contains is not

words, but a bunch of random characters.

If the file is text, no conversion is necessary. If the file is not text, then it will not be readable unless you know how to decypher its contents.
For example, how do you make a picture file, human readable? It does not
contain text, so you'll never get meaningful text from it.

If the file is encrypted text, then you need to know the decryption algorithm to get the text back. No one here can tell you which algorithm to use, you need to find out what needs to be done.

LFS


-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com - The #1 Newsgroup Service in the World!
-----== Over 100,000 Newsgroups - 19 Different Servers! =-----

[CajunCoiler \(http://www.cajuncoiler.tk\)]

Ahh, sounds to me like this person seeks a binary to decimal converter.

"Dillon Mantle" <di*****@dasolu tions.co.za> wrote in message
news:z_CdnQr7Er BoD2CiRVn-

I can work out the memory bits, its just how do you convert "00000001" into "1"

[Rick Rothstein]

> Ahh, sounds to me like this person seeks a binary to decimal converter.

Function Bin2Dec(BinaryS tring As String) As Long
Dim X As Integer
For X = 0 To Len(BinaryStrin g) - 1
Bin2Dec = Bin2Dec + Val(Mid(BinaryS tring, _
Len(BinaryStrin g) - X, 1)) * 2 ^ X
Next
End Function

Rick - MVP

[Bob Butler]

"Rick Rothstein" <ri************ @NOSPAMcomcast. net> wrote in message news:<rd******* *************@c omcast.com>...

Ahh, sounds to me like this person seeks a binary to decimal converter.

Function Bin2Dec(BinaryS tring As String) As Long
Dim X As Integer
For X = 0 To Len(BinaryStrin g) - 1
Bin2Dec = Bin2Dec + Val(Mid(BinaryS tring, _
Len(BinaryStrin g) - X, 1)) * 2 ^ X
Next
End Function

Or one without the extra subtractions and exponentiations ...

Function Bin2Dec(BinaryS tring As String) As Long
Dim x As Long
For x = Len(BinaryStrin g) To 1 Step -1
Bin2Dec = Bin2Dec * 2 + CLng(Mid$(Binar yString, x, 1))
Next
End Function

[Rick Rothstein]

> > > Ahh, sounds to me like this person seeks a binary to decimal
converter.

Function Bin2Dec(BinaryS tring As String) As Long
Dim X As Integer
For X = 0 To Len(BinaryStrin g) - 1
Bin2Dec = Bin2Dec + Val(Mid(BinaryS tring, _
Len(BinaryStrin g) - X, 1)) * 2 ^ X
Next
End Function

Or one without the extra subtractions and exponentiations ...

Function Bin2Dec(BinaryS tring As String) As Long
Dim x As Long
For x = Len(BinaryStrin g) To 1 Step -1
Bin2Dec = Bin2Dec * 2 + CLng(Mid$(Binar yString, x, 1))
Next
End Function

Yes, you could approach it that way too. (Remember, I was a math major in
college... I **like** using lots of the math operations in my
calculations.<g >)

However, you need to change the direction through the For-Next loop to this

Function Bin2Dec(BinaryS tring As String) As Long
Dim x As Long
For x = 1 To Len(BinaryStrin g)
Bin2Dec = Bin2Dec * 2 + CLng(Mid$(Binar yString, x, 1))
Next
End Function

The least significant bit of a binary string is at the right.

Rick - MVP

[Larry Serflaten]

"Bob Butler" <bu*******@eart hlink.net> wrote

Ahh, sounds to me like this person seeks a binary to decimal converter.

Function Bin2Dec(BinaryS tring As String) As Long
Dim X As Integer
For X = 0 To Len(BinaryStrin g) - 1
Bin2Dec = Bin2Dec + Val(Mid(BinaryS tring, _
Len(BinaryStrin g) - X, 1)) * 2 ^ X
Next
End Function

Or one without the extra subtractions and exponentiations ...

Function Bin2Dec(BinaryS tring As String) As Long
Dim x As Long
For x = Len(BinaryStrin g) To 1 Step -1
Bin2Dec = Bin2Dec * 2 + CLng(Mid$(Binar yString, x, 1))
Next
End Function

Or one without multiplications or string lookups...

Function Bin2Dec(BinaryS tring As String) As Long
Dim x As Long
Dim Bin() As Byte
Bin = BinaryString
For x = UBound(Bin) - 1 To 0 Step -2
Bin2Dec = Bin2Dec + Bin2Dec + (Bin(x) And 1)
Next
End Function

LFS


-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com - The #1 Newsgroup Service in the World!
-----== Over 100,000 Newsgroups - 19 Different Servers! =-----

[Rick Rothstein]

> > > > Ahh, sounds to me like this person seeks a binary to decimal
converter.

Function Bin2Dec(BinaryS tring As String) As Long
Dim X As Integer
For X = 0 To Len(BinaryStrin g) - 1
Bin2Dec = Bin2Dec + Val(Mid(BinaryS tring, _
Len(BinaryStrin g) - X, 1)) * 2 ^ X
Next
End Function

Or one without the extra subtractions and exponentiations ...

Function Bin2Dec(BinaryS tring As String) As Long
Dim x As Long
For x = Len(BinaryStrin g) To 1 Step -1
Bin2Dec = Bin2Dec * 2 + CLng(Mid$(Binar yString, x, 1))
Next
End Function

Or one without multiplications or string lookups...

Function Bin2Dec(BinaryS tring As String) As Long
Dim x As Long
Dim Bin() As Byte
Bin = BinaryString
For x = UBound(Bin) - 1 To 0 Step -2
Bin2Dec = Bin2Dec + Bin2Dec + (Bin(x) And 1)
Next
End Function

Am I the one who is remember the binary number system incorrectly? Isn't the
least significant bit written on the right? For example, isn't 8 written as
1000 in binary? Your function has the same flaw as Bob's did... the loop
counter is backwards. I think your function should be...

Function Bin2Dec(BinaryS tring As String) As Long
Dim X As Long
Dim Bin() As Byte
Bin = BinaryString
For X = 0 To UBound(Bin) - 1 Step 2
Bin2Dec = Bin2Dec + Bin2Dec + (Bin(X) And 1)
Next
End Function

If I feed "1000" into your originally posted function, it returns 1. If I
feed it into the above revision, I get 8.

Rick - MVP

[Larry Serflaten]

"Rick Rothstein" <ri************ @NOSPAMcomcast. net> wrote

If I feed "1000" into your originally posted function, it returns 1. If I
feed it into the above revision, I get 8.

Doh!

I tested it with 5! (101)

Thanks for the correction!

LFS


-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com - The #1 Newsgroup Service in the World!
-----== Over 100,000 Newsgroups - 19 Different Servers! =-----