Hi to everyone,
i disperately need some help. i need to read a binary encoded file using Visual Bawsic 6. First of all I know that this file has a "text" header of 3200 bytes (40 rows x 80 columns. How can I read it and translate in ASCII code. I used the get instruction but I was not able to read anything with a sense. Thank you very much for you support...
Hi,
Can you post sample data of few lines over here..?
.....
dim fh as integer: fh = freefile
open "c:\myfile.ext" for binary access read as #fh
dim b() as byte
redim b(3199)
get #fh, , b
dim s as string
s= strconv(b, vbunicode)
dbug.print s
.....
close #fh
.....This is what I get when I use the code you provided me. It seems it has not been properly decoded!
I attach a pdf reporting the coding of the file
Ãðñ@ÃÓÉÅÕã@z@ÇÄÆ@@@@@@@@@åÅââÅÓz@äÕÉåÅÙâÉãÁãÉâ@@@@@@@@@âÖäÙÃÅ@â×ÁÙÒÅÙ@@@@@@@@@@@Ãðò@ÓÉÕÅ@@z@×Áõ÷Á@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Ãðó@ÄÁãÅ@@z@òððù@@@@@ÁÙÅÁz@ãÙÉãÖÕ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Ãðô@ÆÖÙÔÁã@z@âÅÇÄ@ÃÖÕåÅÙãÅÄ@ÉÕ@ÆÓÖÁãÉÕÇ@×ÖÉÕã@ÉÕãÅÙÕÁÓ@ÆÖÙÔÁã@@@@@@@@@@@@@@@@@@@Ãðõ@ÙÅÃÖÙÄ@ÓÅÕÇãÈz@óùö@Ôâ@ÃÁÂÓÅ@ÄÅ×ãÈ@ðKõ@ÇäÕ@ÄÅ×ãÈ@ðKõ@Ô@@âÁÔ×ÓÅ@ÙÁãÅ@z@ðKñòõ@ÔÃðö@âãÙÅÁÔÅÙ@z@ÕÅÁÙ@ÖÆÆâÅãz@ñõKõ@Ô@ÕÖK@ÃÈÁÕÕÅÓâ@z@òô@@@@@@@@@@@@@@@@@@@@@@@@@@@@Ãð÷@ÇÙÖä×@ÉÕãÅÙåÁÓz@óKñòõ@Ô@@ÃÄ×@ÉÕãÅÙåÁÓ@z@ñKõöòõ@Ô@@@â×@ÉÕãÅÙåÁÓ@z@óKñòõ@Ô@@@@Ãðø@×ÙÖÃÅââÅÄ@Âè@ÆäÇÙÖ@ÖÃÅÁÕâÉâÔÉÃÁk@ÙÖÔÅk@ÉãÁÓè@@@@ÄÁãÅz@ÔÁÙÃÈ@òððù@@@@@@@@@@@@Ãðù@×ÙÖÃÅââÉÕÇ@ÄÁãÁ@ÓÅÕÇãÈz@óùö@Ôâ@ÑÖÂ@ÕÖz@ö÷ø@âÁÔ×ÓÅ@ÙÁãÅz@ðKñòõ@Ôâ@@@@@@@@@@@@Ãñð@\\\\\@âãÁÃÒÅÄ@âÅÃãÉÖÕk@ÔÉÕÉÔäÔ@×ÈÁâÅk@ãÙäÅmÁÔ×Ó@k@âÅÇ@âãÁÕÄÁÙÄ@×ÖÓÁÙÉãè@\\\\Ãññ@ã`âØäÁÙÅÄ@ÇÁÉÕ@ÃÖÔ×ÅÕâÁãÉÖÕ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Ãñò@ÂäããÅÙæK@éÅÙÖ×ÈÁâÅ@Â×@ÆÉÓãÅÙ@õððÈézñøÄÂaâ@óòððÈézõóÄÂaâ@@@@@@@@@@@@@@@@@@@@@Ãñó@ÉÕâãÙäÔÅÕãÁÓ@âãÁãÉÃ@ÃÖÔ×ÅÕâÁãÉÖÕ@`øKõ@Ôâ^@ÇäÕ@ÁÕÄ@ÃÁÂÓÅ@ÃÖÔ
×ÅÕâÁãÉÖÕ@ðKöööööÃñô@ÆÒ@ÆÉÓãÅÙ@z×ÁââÂÁÕÄz@Na`@òKõ@ÔâaãÙ@zÙÅÔÖåÁÓ@ÖÆ@ãò@ÁÕÄ@Á××ÓÉÃÁãÉÖÕ@ÖÆ@ãåò@ÇÁÉÃñõ@×ÙÅÄÉÃãÉåÅ@ÄÅÃÖÕ@z@ò@ãÉÔÅ@æÉÕÄÖæz@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Ãñö@æÉÕ@ñzãÙKñzñðð`ñòð@Ôâ^ãÙKòôzñóð`ñ÷ð@Ôâ^Ö×ÅÙzõÔâ^ÓÁÇzðKõ@Ôâ^@Á××ÓÉÃKzøð`ñóðÔâÃñ÷@æÉÕ@òzãÙKñzñóð`ñ÷ð@Ôâ^ãÙKòôzñôð`ñøð@Ôâ^Ö×ÅÙzõÔâ^ÓÁÇzñKð@Ôâ^@Á××ÓÉÃKzñóð`óððÔÃñø@ÙÅÁ××Óè@ÖÆ@Â×@ÆÉÓãÅÙ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Ãñù@âÖÙãÅÄ@ãÖ@ÃÄ×@ÇÁãÈÅÙ@ñò@ÆÖÓÄ@ÁÕÄ@ÕÁåÉÇÁãÉÖÕ@ÔÅÙÇÅÄ@æÉãÈ@ÃÄ×@×ÖâÉãÉÖÕ@×ñùð@@@Ãòð@åÅÓÖÃÉãè@ÁÕÁÓèâÉâ@ðKõ@ÒÔ@ÉÕã@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Ãòñ@ÕÔÖ@ÃÖÙÙÅÃãÉÖÕ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Ãòò@ÖäãÅÙ@ÔäãÅ@ãÙÁÃÅ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Ãòó@âãÁÃÒz@ñaÕ@ÃÖÔ×ÅÕâÁãÉÖÕ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Ãòô@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Ãòõ@ÆÒ@ÆÉÓãÅÙ@z@ÂÁÕÄ@×Áââ@ÆÉÓãÅÙ@Na`ðKñ@ÔâaãÙ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Ãòö@ÄÅÃÖÕåÖÓäãÉÖÕ@ÁÆãÅÙ@âãÁÃÒz@Mòð@Ôâ@ÖåÅÙÓÁ××
ÉÕÇ@ÂÅãæÅÅÕ@ãæÖ@Á××ÓÉÃÁãÉÖÕ@æÉÕÄÖæÃò÷@æÉÕñ@@øð`ñðõ@Ôâ@Ö×ÅÙzõ@Ôâ^@ÓÁÇzñKððð@Ôâ^@Á××ÓÉÃKzøð`ñðõ@Ôâ@@@@@@@@@@@@@@@@@@Ãòø@æÉÕñ@ñðõ`ñòð@Ôâ@Ö×ÅÙzõ@Ôâ^@ÓÁÇzñKððð@Ôâ^@Á××ÓÉÃzñðõ`ñõð@Ôâ@@@@@@@@@@@@@@@@@@Ãòù@æÉÕñ@@øð`ñðõ@Ôâ@Ö×ÅÙzò@Ôâ^@ÓÁÇzðKñòõ@Ôâ^@Á××ÓÉÃzñõð`ÅÕÄ@Ôâ@@@@@@@@@@@@@@@@@@Ãóð@Æç@ÆÉÓãÅÙ@ÂÁÕÄ@×Áââ@ÆÉÓãÅÙ@Na`ðKñ@ÔâaãÙ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Ãóñ@ãÉÔÅ@åÁÙÉÁÕã@ÂäããÅÙæÖÙãÈ@ÆÉÓãÅÙ@MâÓÖ×Å@ÓÃzöÄÂaÖÃã@ÈÃzòôÄÂaÖÃã]@@@@@@@@@@@@@@Ãóò@ð`ñðð@Ôâ~@õðð@`@òððð@Èé@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Ãóó@ñðð`ñóð@Ôâ~@öðð@`@ñöðð@Èé@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Ãóô@ñóð`ñöð@Ôâ~@ö÷ð@`@ñôðð@Èé@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Ãóõ@ñöð`ÅÕÄ@Ôâ~@÷õð@`@ñòðð@Èé@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Ãóö@ÃÖÕåÅÙâÉÖÕ@ãÖ@âÅÇè@ÆÉÓÅ@MÉÂÔ@ÆÖÙÔÁã]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Ãó÷@``````````````````@ÕÁåÉÇÁãÉÖÕ@`````````````````````````````@@@@@@@@@@@@@@@@@Ãóø@ÕÁåÉÇÁãÉÖÕ@ÙÅÆÅÙÅÕÃÅÄ@ãÖ@ÃÄ×@×ÖâÉãÉÖÕkÃÅÕãÙÁÓ@ÔÅÙÉÄÉÁÕ@@@@@@@@@@@@@@@@@@@@@@Ãóù@ÆÉÙâã@@ÃÄ×@ñ@ÓÁâã@@@ÃÄ×@ò
÷øð@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Ãôð@âÈÖã×ÖÉÕãâ@ñððð@ãÖ@òó÷ø@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
..... dim fh as integer: fh = freefile open "c:\myfile.ext" for binary access read as #fh dim b() as byte redim b(3199) get #fh, , b dim s as string s= strconv(b, vbunicode) dbug.print s ..... close #fh .....
Well, code above *works* for ASCII and compatible encoding. Have a look at your file in a hex viewer and check if it is really ASCII coded text
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.