Random чтение файла

[Fridx]

Здрасьте.
Проблема такая, что в начале файла несколько байтов не нужные и их читать ненадо.
Как сделать чтобы чтение начиналось с определённого байта, а дальше шло как обычно??

Открываю файл методом Random.
В модуле пользовательский тип данных, в котором несколько переменных.
Читаю данные циклом:

Private Sub Pokaz()
Dim X As Byte
On Error Resume Next
For X = 0 To 1
Get #2, X + Start, Blok
Text2(X) = RTrim(Blok.xx)
Text3(X) = RTrim(Blok.yy)
Text4(X) = RTrim(Blok.zz)
Next X
On Error GoTo 0
End Sub

Спасибо!

[JWST]

Может быть это не поможет, но я решал подобную проблему так:

Код: Выделить всё

text$ = "1234567890"
MsgBox text$   'выведет 1234567890
text$ = Mid(text$, 2) ' т.е. значение начиная с двух (а начало было ноль! Помни это!)
MsgBox text$   'выведет 34567890


Мне помогло это именно так. Только я таким методом выцыплял уникод и убирал его. Реализацию можешь посмотреть здесь: http://bbs.vbstreets.ru/viewtopic.php?t=22666

[Viper]

Код: Выделить всё

Private Sub Pokaz()
Dim X As Byte
On Error Resume Next
For X = 0 To 1
Get #2, X + Start, Blok
Text2(X) = RTrim(Blok.xx)
Text3(X) = RTrim(Blok.yy)
Text4(X) = RTrim(Blok.zz)
Next X
On Error GoTo 0
End Sub

вдумаемся, что же происходит в данном коде:

1. Объявляется переменная-счетчик X (почему то типа Byte)
2. Дважды из файла нумер 2 читаются записи в переменную Blok (похоже это структура, но какая мы не знаем) с номерами Start и Start+1. Поскольку чему равно Start мы тоже не знаем, то с какой позиции это все читается тоже не понятно

Судя по всему это не помогло решить проблему

Если телепатически предположить, что Start это те самые ненужные байты, то может стоит попользоваться функцией Seek, чтобы поставить туда указатель чтения, а уж потом осуществить чтение нужного количества БАЙТОВ, которые потом преобразовать в нужные структуры

[Fridx]

Private Sub Pokaz()

Get #2, Start, Blok
Text2(X) = RTrim(Blok.xx)
Text3(X) = RTrim(Blok.yy)
Text4(X) = RTrim(Blok.zz)

End Sub
В идеале всё вот так выглядит. Извините за первоначальную

На счёт seek:
указатель перемещается, но не на кол-во байтов, а на кол-во моих секторов.

[Kostyan]

Ты же читаешь блоками, размером с твой тип, поэтому и шаг в цикле должен быть равен не 1, а размеру твоего типа:

Private Sub Pokaz()
Dim X As Integer
On Error Resume Next
For X = 0 To 1
Get #2, X*Len(Твой тип) + Start, Blok
Text2(X) = RTrim(Blok.xx)
Text3(X) = RTrim(Blok.yy)
Text4(X) = RTrim(Blok.zz)
Next X
On Error GoTo 0
End Sub

[Fridx]

А зачем умножать то?? - X*Len(Твой тип)
И есть ли разница X*Len(Твой тип) + Start или Start + X*Len(Твой тип)?

-----------------
Кстати между делом:
Как вывести в текстовое поле (например) путь к файлу, который будет открыт? Просто в поиске искал, но безрезультатно.

[Kostyan]

X*Len(Твой тип) нужен для того чтобы ты шагал по файлу шагами, равными длине твоего типа. А от перемены мест слогаемых сумма не меняется - 1 класс

По поводу второго вопроса: Text1.Text=FileName

[Fridx]

Блин... всё равно непонятно .
Вот небольшой пример прикрепил.
там что-то типа базы - baz.txt создал.
Занёс данные. Всё работает нормально. Но вот если добавить пару байтов в начало этой базы, то ясное дело, что в текстовых полях данные будут отображаться со сдвигом-коряво. Как вот этого избежать?? Может на примере поможете?

[Kostyan]

Держи. Я убрал кое-что лишнее, оставил только перменную x. Другие не нужны. Остальное смотри в коде.