Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Считывание из текстового файла 
V
    Опции темы
Anton1440
Дата 19.9.2012, 11:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 17.9.2012

Репутация: нет
Всего: нет



Как из текстового файла считать определённую строку? Я только могу считать первые, присвоив переменным значения этих строк, надеюсь понятно объяснил.
PM MAIL   Вверх
Akina
Дата 19.9.2012, 11:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



Цитата(Anton1440 @  19.9.2012,  12:14 Найти цитируемый пост)
надеюсь понятно объяснил

Нет.

Что такое "строка" в данном конктретном случае?
Как идентифицируется нужная строка?


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Anton1440
Дата 19.9.2012, 11:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 17.9.2012

Репутация: нет
Всего: нет



Ну набрали текст, нажали enter - одна строка готова, ещё что-то набрали, снова жмакнули enter - у нас две строки, вот как-то так. Ну вот я и имел ввиду нажатие кнопки ENTER (перевод строки).

Добавлено @ 11:30
Код

Text1.Text = "" 
 F = FreeFile 
Open App.Path & "\Справка.txt" For Input As #F 
Do Until EOF(F) 
Line Input #F, MyText 
 Text1.Text = Text1.Text & MyText & vbCrLf 
Loop 
 Close #F 

ну вот эта процедурка считывает все строки из файла и как бы вносит их в текстбокс. (text1.multiline = true)

Добавлено @ 11:31
мне кажется я понял как это сделать, но лучше подскажите

Это сообщение отредактировал(а) Akina - 19.9.2012, 13:20
PM MAIL   Вверх
Anton1440
Дата 19.9.2012, 11:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 17.9.2012

Репутация: нет
Всего: нет



Оооо да я это сделал! x - номер строки

Код

a = 1
Text1.Text = ""
F = FreeFile
Open "C:\ñïðàâêà.txt" For Input As #F
Do Until EOF(F)
Line Input #F, MyText
If a = x Then Text1.Text = MyText
a = a + 1
Loop
Close #F

пфууу, элементарно!

Это сообщение отредактировал(а) Anton1440 - 21.9.2012, 17:22
PM MAIL   Вверх
Данкинг
Дата 19.9.2012, 20:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130



Anton1440, вообще я подумал про подобный код, но потом решил, что это слишком уж криво. 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Anton1440
Дата 20.9.2012, 06:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 17.9.2012

Репутация: нет
Всего: нет



Цитата(Данкинг @ 19.9.2012,  20:56)
Anton1440, вообще я подумал про подобный код, но потом решил, что это слишком уж криво.

А как тогда нормально сделать? Не подскажите?
PM MAIL   Вверх
Akina
Дата 20.9.2012, 07:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



Не вижу в том ничего особенно кривого. Если не считать того, что в принципе не обрабатываются ошибки (скажем, файл отсутствует) или нештатные ситуации (в файле меньше строк, чем необходимо). 
А альтернативы есть - например, делать через FileSystemObject...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
vbCrLf
Дата 21.9.2012, 13:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 54
Регистрация: 3.5.2006
Где: Севастополь

Репутация: 1
Всего: 1



Ну и можно было бы прекратить чтение файла, когда искомая строка найдена.
PM MAIL ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0960 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.