Значит открываю я текстовый файл
- Код: Выделить всё
Dim FnTxt,
FnTxt = FreeFile()
Open "general.txt" For Input As FnTxt
Нужно считать именно вторую строку данного текстого файла.
Заранее благодарю
Счмтывание данных из текстового файа
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 5
• Страница 1 из 1
- Smith68
- Обычный пользователь
-
- Сообщения: 92
- Зарегистрирован: 02.09.2005 (Пт) 19:08
- Откуда: Тамбов, Моршанск
Счмтывание данных из текстового файа
Smith68 » 04.06.2006 (Вс) 22:31
Очень срочно!!!
Значит открываю я текстовый файл
Нужно считать именно вторую строку данного текстого файла.
Заранее благодарю
Значит открываю я текстовый файл
Нужно считать именно вторую строку данного текстого файла.
Заранее благодарю
Вчера на работе получил производственную травму: ударил палец о палец.
- vvs_adm
- Гуру
-
- Сообщения: 1492
- Зарегистрирован: 03.02.2005 (Чт) 3:45
- Откуда: оттуда ;)
vvs_adm » 04.06.2006 (Вс) 22:38
Очень срочно, пока не забанили - В ПОИСК 
Ну если правда очень прям срочно - считай сначала первую, а потом вторую...
Ну если правда очень прям срочно - считай сначала первую, а потом вторую...
Никогда не откладывай на завтра то, что можно ... отложить на послезавтра!
- vvs_adm
- Гуру
-
- Сообщения: 1492
- Зарегистрирован: 03.02.2005 (Чт) 3:45
- Откуда: оттуда ;)
vvs_adm » 04.06.2006 (Вс) 22:58
Тут написано, как прочитать одну строку
Читай две, первую игнорируй.
Читай две, первую игнорируй.
Никогда не откладывай на завтра то, что можно ... отложить на послезавтра!
- vvs_adm
- Гуру
-
- Сообщения: 1492
- Зарегистрирован: 03.02.2005 (Чт) 3:45
- Откуда: оттуда ;)
vvs_adm » 04.06.2006 (Вс) 23:02
Этот код распечатает все строки файла, тебе же нужна вторая... Изменить, я надеюсь, труда не составит?MSDN писал(а):Dim TextLine
Open "TESTFILE" For Input As #1 ' Open file.
Do While Not EOF(1) ' Loop until end of file.
....Line Input #1, TextLine ' Read line into variable.
....Debug.Print TextLine ' Print to the Immediate window.
Loop
Close #1 ' Close file.
Никогда не откладывай на завтра то, что можно ... отложить на послезавтра!
Сообщений: 5
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: AhrefsBot и гости: 101