Если я правильно понимаю, то я для начала открываю файл, указывая тип Binary
- Код: Выделить всё
Dim iFr As Short
iFr = FreeFile()
FileOpen(iFr, "C:\test.txt", OpenMode.Binary)
Затем, по идеи, я должна произвести запись в открытый файл (при этом указывая адрес, куда то или иное значение будет записано), но вот, к сожалению, не понимаю, как это верно сделать
- Код: Выделить всё
FilePut(iFr, k, Позиция)
Переменная k должна быть типа Byte??? (Сами данные у меня хранятся в строке (длина её 8 – т.е. как раз если правильно перевести, то должно получиться значение 1 бита) в виде нулей и единиц – надо ещё их перевести)
Объясните, пожалуйста…
Мне необходимо понять, как реализовать запись, где в нужную позицию в файле я должна записать то или иное значение (в сам файл буду записывать параметры 4-х генераторов, для записи всех параметров 1-го из генераторов необходимо 40 позиций (у каждого генератора 40 параметров)):
Если я верно понимаю, то структура файла получается такая
0
.
. Параметры 1-го генератора
.
64
.
. Параметры 2-го генератора
.
128
.
. Параметры 3-го генератора
.
192
.
. Параметры 4-го генератора
.
256
Т.е. общая формула вычисления позиции в файле, в которую необходимо записать значение получается такое: Позиция=0+40*(НомерГенератора-1)+(НомерПараметра)
Если запись начинается с 1, то по идеи ещё в конце прибавить единичку нужно…
Как мне это реализовать, подскажите новичку? (Прошу прощение, если все-таки я не совсем доступно объяснила, что мне необходимо)
