Tässä on yksinkertainen koodi kuinka QBasicillä voi tallentaa binaryä.
'Tallennus CLS LINE INPUT "Kirjoita mitä haluat tallentaa : "; A$ OPEN "bin.txt" FOR BINARY AS #1 A = LEN(A$) PUT #1, 1, A FOR I = 1 TO A AA = ASC(MID$(A$, I, 1)) PUT #1, , AA NEXT CLOSE
'Lataus CLS OPEN "bin.txt" FOR BINARY AS #1 A = LEN(A$) GET #1, 1, A FOR I = 1 TO A GET #1, , AA A$ = A$ + CHR$(AA) NEXT CLOSE PRINT A$
Joo, hyvä mutta miten tiedostosta voi hakea?
Jäin kaipailemaan kommentointia...
Tai no sama se. Teen binäärin omalla (mielestäni)"paremmalla" tavalla.
Toihan on hyvä juttu.. :)
Hyvältä näyttää...
Tästä oli minulle hyötyä, kiitos paljon!
Suurkiitokset. Tämän ansiosta merkkigrafiikkapelini profiilisysteemi onnistui!
Milläs QBeen saa tallentamaan tekstiä iliman lainausmerkkejä ku tuos tallennetaan vaan ascii koodi.
Aihe on jo aika vanha, joten et voi enää vastata siihen.