Spatny zapis – Visual Basic – Fórum – Programujte.com

zdarte, mam takovej problem, napsal sem si script kterej by mel zapsat do souboru C:\asd.txt znak kterej ma ascii hodnotu 50 ale kdyz ten script pustim tak mi to do toho asd.txt vypise znaky 08 00 01 00 50(v ascii). Nevite nekdo co tam delaji ty 08 00 01 00?
Tady je kod:

Private Sub Form_Load()

Dim fp2 As String

fp2 = FreeFile

Open "C:\asd.txt" For Binary As #fp2

Put #fp2, , Chr(50)

Close #fp2

End

End Sub

protože
Open "C:\asd.txt" For Binary As #fp2

zapisovat textově do texťáku se dělá trošku jinak

Při Open For Binary (toto není klasický textový soubor) je vhodné zadávat délku věty, která bude zapisována. Pokud tato délka není zadána, aspoň je dobré zadat délku proměnné, pomocí které budeme zapisovat.

Pokud mírně upravím příspěvek na např.

Dim fp2 As String, T As String
T = String(1, " ")
fp2 = FreeFile
Open "C:\asd.txt" For Binary As #fp2
T = Chr(50)
Put #fp2, , T
Close #fp2
End

pak výsledná délka souboru je 1 byte s požadovaným obsahem.

Je možné (nenašel jsem to), že Open For Binary má předdefinovanou délku věty, která se uplatní, pokud není zadána.

a este jedna otazka, kolik znaku jde ze souboru vybrat naraz a kdyztak sem napiste nejakej priklad :)

Počet znaků pro zápis resp. čtení pro soubor typu Binary je omezen samotným Visual Basicem, např.

- proměnné deklarujeme v modulu, ten smí mít max 64KB
- pro práci se souborem typu Binary nelze ve standardním režimu (čtení a zápis - Put a Get) použít proměnné větší jak cca 2,4GB, pokud používám větší, je nutné přistupovat k souboru jiným způsobem (API)

Já osobně soubory typu Binary využívám pouze tehdy, pokud potřebuju sám překopírovat nějaký menší soubor a nechci použít systémových prostředků. Pro ukládání dat využívám spíše Open For Random.

mohl bys uvist nejakej priklad s tim winapi?

Na eDisk.cz jsem umístil zabalený program (stažený z Internetu) pro kopírování souborů větších jak 2GB (podle pravidel eDisku.cz bude soubor z eDisku automaticky smazán, pokud doba od posledního stažení přesáhne 30 dní). Ten prográmek jsem nezkoušel.

Odkaz ke stažení:
http://www.edisk.cz/stahnout-soubor/80696/Copy_API__Over_2GB_limit_.zip_5.51KB.html

dik