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

Open stFaile For Input Access Read As #1
While Not EOF(1)
Line Input #1, MyString
... код ...
Wend

Надо определить последнею строку, не обрабатывать!!!
Первую определяю через if , а как последнею?
Делаю под проектом Акса в VB.
...
Рейтинг: 0 / 0
01.07.2004, 13:27:02
| Ответить | Цитировать | Написать  
Работа с файлом!!!
    #32585134
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
под строкой ты понимаешь CR+LF ?
т.е. файл текстовый ?
...
Рейтинг: 0 / 0
01.07.2004, 13:31:01
| Ответить | Цитировать | Написать  
Работа с файлом!!!
    #32585143
Alexus12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexus12
Участник
1 уйди от старого while..wend к продвинутому do while..exit do..loop until

2 посмотри на оператор и функцию seek

3 хотя в твоем случае (2) вряд ли поможет
объясни идею задачи
...
Рейтинг: 0 / 0
01.07.2004, 13:33:02
| Ответить | Цитировать | Написать  
Работа с файлом!!!
    #32585151
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Открываем файл, читаем его до конца, подсчитываем строчки. Для ускорения делаем ввод в переменную, описанную как string*1. Закрываем, открываем второй раз, и теперь можно использовать if.
...
Рейтинг: 0 / 0
01.07.2004, 13:35:16
| Ответить | Цитировать | Написать  
Работа с файлом!!!
    #32585178
Alexus12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexus12
Участник
Тогда уж легче
открыть один раз
прочитать все в массив
(1 строка - 1 элемент)
и уже ничего не читая и не if-ля
просто бегать по массиву

если файл не 2 Гб, конечно
...
Рейтинг: 0 / 0
01.07.2004, 13:43:26
| Ответить | Цитировать | Написать  
Работа с файлом!!!
    #32585186
Вадим_tv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вадим_tv
Гость
Shuhard

Да файл текстовый под строкой понимаю CR+LF

То что файл до конца прочитать это да, можно даже во временую таблу загныть, для перееменной болшой файл 4 тыс. строк с лишним, но хочется быстрее
А на счет Do while ... loop, возможно и так, но вроде While ... Wend щустрее !?!
...
Рейтинг: 0 / 0
01.07.2004, 13:45:42
| Ответить | Цитировать | Написать  
Работа с файлом!!!
    #32585222
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
Вадим_tvShuhard

Да файл текстовый под строкой понимаю CR+LF

То что файл до конца прочитать это да, можно даже во временую таблу загныть, для перееменной болшой файл 4 тыс. строк с лишним, но хочется быстрее
А на счет Do while ... loop, возможно и так, но вроде While ... Wend щустрее !?!
Вадим мы не можем понять суть проблемы
- ты доехал циклом до конца файла
- в буфере осела последняя строка - OutString

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
OutString=""
Do While Not EOF(Canal)  ' Цикл до конца файла
 
    MyChar = Input( 1 , #Canal)
If (MyChar <> Chr( 10 )) Then     ‘ есть удобная константа vbLf
    OutString = OutString & MyChar 
                                else
    OutString=""
end if
Loop
...
Рейтинг: 0 / 0
01.07.2004, 13:56:50
| Ответить | Цитировать | Написать  
Работа с файлом!!!
    #32586188
Анатолий ( Киев )
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анатолий ( Киев )
Гость
While Not EOF(1)
Line Input #1, MyString

Но ведь после считывания последней строки файл уже в EOF.
Проверяйте IF EOF(1) Then, и всё.
...
Рейтинг: 0 / 0
01.07.2004, 22:34:36
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Работа с файлом!!!
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32586188&tid=1673474]:
 0ms
get settings:
 5ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 190ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 58ms
get tp. blocked users:
 1ms
others: 190ms
total:  472ms
созд. / загр.: 472ms
x
x
Закрыть


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