Ошибка При Чтении Файла

Тема в разделе "Visual Basic", создана пользователем yurk84, 17 ноя 2012.

  1. yurk84

    yurk84 Гость

    Здравствуйте уважаемые форумчане!

    У меня возникла проблема следующего рода. При применении функции Seek, которая позволяет применить прямой доступ к файлу у меня выбираются странные значения, которые без этой функции (от начала файла) выбираются как положено, В чём может быть проблема. Если другой аналогичный файл работал нормально, а другой почему-то не хочет. Вот необходимый кусок программы:

    Код (Text):
    DIM nummer AS INTEGER
    CONST numstart = 4949850
    CONST NamefileSpins = "D:\BAZA\NUM_RAND"
    OPEN NamefileSpins FOR BINARY ACCESS READ AS #1

    SEEK #1, numstart   // переход в файле к заданному месту

    DO
    xx=xx+1
    randnum=randnum+1
    GET #1, , nummer                // выбора из файла, откуда берутся не те числа первое из них 256, а должно быть от 0 до 36
    mas1(xx) = nummer
    LOOP WHILE (randnum<25)
    Заранее спасибо за помощь. Буду ждать ваши ответы
     
Загрузка...

Поделиться этой страницей