ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Чтение случайной записи из текстового файла
8 сообщений из 8, страница 1 из 1
Чтение случайной записи из текстового файла
    #32809092
Xsan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Xsan
Гость
Прочитал наверное все темы про работу с тектовым файлом, но ответа на вопрос как прочитать n-ную запись из файла не нашел.

Есть текстовый файл надо прочитать 12 строку

Dim text As String

Open strFileName For Random As #2 len=len(text)

For iCount = Nom + 1 To LOF(2)
Get #2, iCount, text

Ругается BAD RECORD LENGTH

Помогите, как лучше поступить
...
Рейтинг: 0 / 0
02.12.2004, 11:23:58
| Ответить | Цитировать | Написать  
Чтение случайной записи из текстового файла
    #32809108
Bagin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Bagin
Участник
Что значит Nom
Может необходимо?

For iCount = Nom + 1 To Nom + LOF(2)
Get #2, iCount, text
...
Рейтинг: 0 / 0
02.12.2004, 11:29:36
| Ответить | Цитировать | Написать  
Чтение случайной записи из текстового файла
    #32809116
Xsan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Xsan
Гость
простите забыл написать
Dim nom as long
- это и есть номер случайной записи с которой нужно читать файл
...
Рейтинг: 0 / 0
02.12.2004, 11:32:26
| Ответить | Цитировать | Написать  
Чтение случайной записи из текстового файла
    #32809176
Xsan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Xsan
Гость
Ну может кто нибудь знает?

структура файла

HEADER
F00: 420200411221000450001
F32: 1
F38: ТВЕРСКАЯ,10
F40: RUR
F41: РОССИЙСКИЙ РУБЛЬ
F42: -143354,36
F43: 92068,25
F44: 4
F45: 6
F46: 93593,85
F48: 22.11.2004
F49: 19.11.2004

КАК ПРОЧИТАТЬ допустим 12 строку?
...
Рейтинг: 0 / 0
02.12.2004, 11:50:16
| Ответить | Цитировать | Написать  
Чтение случайной записи из текстового файла
    #32809311
Фотография Программист-Любитель
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программист-Любитель
Участник
Эх плоховато я на VB работу с файлами знаю... Кабы C или C++...

Может VB читать всю строку до chr(10) chr(13) ? Тогда легко прочитать до нужной строки в цикле, а потом загруженную строку разбивать на запчпасти.

Может прицепить текстовый файл как таблицу через ODBC ? Если поля фиксированной длины или разделены табуляцией то можно. На худой конец опять таки всю строку целиком как длинное поле до 255 символов, а потом разбивать разрезать 12 запись.

В общем помог как говориться...
...
Рейтинг: 0 / 0
02.12.2004, 12:26:38
| Ответить | Цитировать | Написать  
Чтение случайной записи из текстового файла
    #32809316
Bagin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Bagin
Участник
А вот так?
Код: plaintext
1.
2.
3.
4.
5.
6.
Dim InputData
Dim position
position= 12  ' или 11, надо проверить
Open "MYFILE" For Input As # 1     ' Open file for input.
Seek # 1 , position
Line Input # 1 , InputData    ' Read line of data.
Close # 1     ' Close file.
...
Рейтинг: 0 / 0
02.12.2004, 12:28:39
| Ответить | Цитировать | Написать  
Чтение случайной записи из текстового файла
    #32809324
Bagin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Bagin
Участник
Программист-ЛюбительМожет VB читать всю строку до chr(10) chr(13) ? Тогда легко прочитать до нужной строки в цикле, а потом загруженную строку разбивать на запчпасти. Вот с хелпа взял, но точно перевсти не могу:
The Line Input # statement reads from a file one character at a time until it encounters a carriage return (Chr(13)) or carriage return–linefeed (Chr(13) + Chr(10)) sequence. Carriage return–linefeed sequences are skipped rather than appended to the character string.
...
Рейтинг: 0 / 0
02.12.2004, 12:32:23
| Ответить | Цитировать | Написать  
Чтение случайной записи из текстового файла
    #32809467
Фотография Программист-Любитель
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программист-Любитель
Участник
Вот и суксесс! :)
...
Рейтинг: 0 / 0
02.12.2004, 13:14:35
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Чтение случайной записи из текстового файла
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&gotonew=1&tid=1669994]:
 0ms
get settings:
 8ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 43ms
get topic data:
 6ms
get first new msg:
 4ms
get forum data:
 2ms
get page messages:
 35ms
get tp. blocked users:
 1ms
others: 232ms
total:  348ms
созд. / загр.: 348ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]