1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

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

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

  1. yurk84

    yurk84 Гость

    Репутация:
    0
    Здравствуйте уважаемые форумчане!

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

    Код:
    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)
    Заранее спасибо за помощь. Буду ждать ваши ответы
     
Загрузка...

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