Binßrnφ soubory - °et∞zce
Zßpis a Φtenφ °et∞zc∙ je trochu vφce slo₧it∞jÜφ - v tomto p°φpad∞ toti₧ nevφme, jakou dΘlku data majφ. Tak₧e pokud zapφÜeme takov²to v²stup:
Put #nFileNum, 1,
"KrlΘÜ"
musφme
v∞d∞t, ₧e °et∞zec, kter² jsem zapsali, mß dΘlku p∞ti znak∙,
abychom jej mohli sprßvn∞ p°eΦφst. Jak to ale ud∞lat ? Jak °φci VB,
₧e °et∞zec je 5 znak∙ dlouh², kdy₧ zde nenφ parametr Length pro p°φkaz
Get ? To, co m∙₧eme ud∞lat p°ed volßnφm p°φkazu Get, je inicializace
°et∞zcovΘ prom∞nnΘ pomocφ funkce Space$ a nastavenφm poΦtu
mezer:
sString
= Space$(5)
Nynφ,
kdy₧ p°edßme prom∞nnou sString funkci Get, dostaneme zp∞t 5 znak∙.
Nejprve zapφÜeme funkci pro zßpis:
Dim nFileNum As
Integer
nFileNum = FreeFile
Open App.Path & "\example.bin" For Binary Access _
Write Lock Read Write As #nFileNum
Put #nFileNum, 1, "KrlΘÜ"
Close #nFileNum
a funkce pro naΦtenφ:
Dim nFileNum As
Integer, sString As String
nFileNum = FreeFile
Open App.Path & "\example.bin" For Binary Access _
Read Lock Read Write As #nFileNum
sString = Space$(5)
Get #nFileNum, 1, sString
Close #nFileNum
Msgbox sString