dotNETportal.cz

Potrebujem načítať binárne súboru z doby MS-Dos. Program bol urobený v pascale alebo turbopascale, ale už na win Vista a 7 nefunguje. Nepoznám ani presnú štruktúru súboru ale nemali by tam byť žiadne obrázky databázy iba technické údaje pravdepodobne v textovom tvare.

Začal som takto:

Dim fs As New FileStream("d:\test.xxx", FileMode.Open)
Dim b(fs.Length - 1) As Byte
fs.Read(b, 0, b.Length - 1)
fs.Close()
fs = Nothing

Neviem ako súbor rozdeliť na jednotlivé záznamy-riadky a previesť údaje do čitateľnej podoby napr. do textového poľa aby som ich mohol prečítať ako bežný text. Za rady vopred Ďakujem

Zjistíte kódování, pole bajtů převedete na řetězec, naučíte se něco o příkazech pro práci s řetězci a máte to doma.

Kódovanie je Kamenických

Skúšal som to cez System.Text.Encoding.... ale stále som nepokročil.

Napriek snahe a googlovaniu sa mi podarilo ten súbor načítať iba rovnako ako keď si ho pozriem v editore. Neviem čo ďaľej, nemohol by ma niekto nasmerovať trošku podrobnejšie ?

Možno by pomohlo dať jeden z tých súborov niekde na internet a sem dať link.Potom môžu aj ostatní nazrieť do štruktúry súboru.A pri tom skúmaní pomôže PSPad.

http://www.uloz.to/7613879/test-grf

Je to len 15kb

Počkať keď je to textový súbor v kódovaní Kamenických, tak ani nie skúmať, ale rovno previesť.Už sa tu riešil prevod opačným smerom, toto bude tomu dosť podobné.

http://vbnet.cz/forum-tema--3388-prevod_...

Myslel som, že binárný súbor je niečo zložitejšie, ako napr. .exe, .zip a veľa ďalších formátov.

Nie nejedná sa o žiadne programové súbory, je to dátový súbor starého programu z doby MSDOS, ktorý sa používal cca od r.1992 v dobe superprocesora i286 až do cca r.2004. pracoval ešte na WIN ME, na XP s problémami a na WIN Vista a Win7 už nepracuje vôbec. Chcel by som prekonvertovať tieto údaje do nového programu aby som nemusel ešte raz robiť to čo som už pred niekoľkými rokmi už urobil. K tomu potrebujem prečítať obsah súborov do nejakej pre mňa čitateľnej podoby čo sa mi nedarí. Nepoznám internú štruktúru uložených údajov ale napr. takto sú uložené textové údaje :

Ń„÷˙‚
X  -0.56- „ƒe÷˙Č‚
X  -3.89- ‰%ů˙Ç‚
X  -2.39- 0ˆ)ů˙ß‚
X  -1.83- A‡,ů˙9‚
X  -2.72- Áƒhů˙‚
X  -9.07- †˜ú˙Č‚
X 

Takto sú uložené texty napr. "-0.56-" "-3.89-" "-2.39-" ale môže tam byť napísaný ľubovoľný text. Neviem kde začína a končí záznam a ako "dešifrovať" ten zvyšok. Skúšal som to cez system.text.encoding.... ale niečo robím stále zle

V tom odkaze čo som napísal minule písal p. Linhart o opačnom prevode do u tf-8, že to treba skonvertovať do nejakého tretieho formátu a 31 znakov nahradiť.Prevod do utf-8 resp. iného .netom podporovaného kódovania bude to isté, len opačne.

Možno som sa nevyjadril dosť jednoznačne ja nemám problém z kódovaním Kamenických ako takým, už som to raz urobil vo VB6 rovnako to urobím aj vo VB .NET ja neviem vo VB .net previesť údaje v tom dátovom súbore do podoby v ktorej by som s nimi mohol ďalej pracovať. Neživím sa programovaním vo VB .Net začínam doteraz som všetko čo som potreboval urobil vo VB6 ale nedá sa v tom pokračovať donekonečna život ide ďalej VB6 je už minulosť.

Tu je ukážka textov z toho dátového súboru :

Ś6
@ ;
üt ÷S
d cw y_

„  Ko¨ice | ş_

„  ===Ś¨‡ź‘˜ ˇ‚Ł„“¤=== •} ˝_

„  ===ś›€†’ťŹ‹—Ą=== Ë~ ˝_

„  Franti¨ek ďx T`

„  ’ilina Cz  `

„  B novce + (

Takto sú uložené texty "František", "Žilina", "Košice", "Bánovce", "===ľščťžýáíéúäôň==="

U vlastného textu je jednoznačne vidieť že národné znaky zodpovedajú kódovaniu Kamenických. Čo neviem je ako prečítať ten zvyšok okolo textov.

To musíte najprv vedieť, čo je v tom zvyšku zakódované a ako.Na súbory čiastočne binárne a čiastočne textové môžte použiť aj StreamReader, aj BinaryReader(oba sú z System.IO), podľa toho, čo je jednoduchšie a s tým použiť aj príslušné kódovanie v System.Text.Encoding .

Mysleli ste asi takto ? :

Dim fInfo As New FileInfo("d:\test.xxx")
Dim numBytes As Long = fInfo.Length
Dim fStream As New FileStream("d:\test.xxx", FileMode.Open, FileAccess.Read)
Dim br As New BinaryReader(fStream)
Dim data As Byte() = br.ReadBytes(CInt(numBytes))

Dim myData As String = System.Text.Encoding.Default.GetString(data)

Vyskúšal som utf 7-8-32, unicode, default, ascii......

Stále nijaký použiteľný výsledok.

Skúste ho spustiť pod Dos-box -om.

Pod Dosboxom sa dá spustiť ale z neznámeho dôvodu nepracuje korektne. Program sa prepína do nejakého VESA modu a rýchlosť je doslova tragická. Prekreslovanie obrazovky pripomína premietanie diapozitívov...