Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Чтение случайной записи из текстового файла / 8 сообщений из 8, страница 1 из 1
02.12.2004, 11:23:58
    #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:29:36
    #32809108
Bagin
Bagin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение случайной записи из текстового файла
Что значит Nom
Может необходимо?

For iCount = Nom + 1 To Nom + LOF(2)
Get #2, iCount, text
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.12.2004, 11:32:26
    #32809116
Xsan
Xsan
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение случайной записи из текстового файла
простите забыл написать
Dim nom as long
- это и есть номер случайной записи с которой нужно читать файл
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.12.2004, 11:50:16
    #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, 12:26:38
    #32809311
Программист-Любитель
Программист-Любитель
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение случайной записи из текстового файла
Эх плоховато я на VB работу с файлами знаю... Кабы C или C++...

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

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

В общем помог как говориться...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.12.2004, 12:28:39
    #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:32:23
    #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, 13:14:35
    #32809467
Программист-Любитель
Программист-Любитель
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение случайной записи из текстового файла
Вот и суксесс! :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Чтение случайной записи из текстового файла / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 377ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1669994]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 49ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 244ms
total:  377ms
x
x
Закрыть


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