Åpne binær-filer, får det ikke til!

[Jonas]

Heisann

 

I programmet legger jeg til i filer, binært, "C-Start, whopsi dupsi!!" etterfulgt av masse random tegn.

 

Jeg vil åpne den filen igjen, og se på teksten.

 

Slik lagrer jeg det:

    Open Text1.Text For Binary As #1
       Put #1, LOF(1) + 1, RandomString(HScroll1.Value)
   Close #1

Og jeg åpner slik:

    Dim Tekst As String
   
   Open Text2.Text For Binary Access Read As #1
       Tekst = String(LOF(1), "C-Start, whopsi dupsi!!")
       Get #1, , Tekst
   Close #1

Det jeg får opp da er "ÿØÿà". Åpner jeg ikke filen riktig?

Filen er tross alt 291kb stor, så det der er IKKE det eneste inni.

 

Jonas

[GeirGrusom]

To ting:

Du trenger ikke si LOF(1), bruk heller Seek

Skal du lagre en string, må du åpne filen som Random, og ikke binary

 

i Binary må du i såfall selv fortelle den hvordan den skal lese stringen, ellers leser den bare så lang som variablen er, f.eks. setter du a = Space(24) så leser den 24 byte.

Random skriver en integer foran som forteller hvor lang stringen er.

[Richard87]

du laster inn asci karakterer, når du hiver den inn i stringen, tror VB at det er unicode, og prøver og converter til asci...

 

dvs(hex):

ascii "A": 41

unicode "A": 0041

last inn annen her byte inn i stringen...

 

Dim X as Long
for X = lbound(barray) to ubound(bArray) step 2
  str = str & asc(barray(x)
next X