Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: Как указать строку для считывания для Open /Input Добавлено: 24.09.08 12:59  

Автор вопроса:  busha
Input считывает строки их текстового файла сверху вниз
а как сделать, чтобы он считывал строки снизу вверх,
т.е. считывать предыдущую строку?

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 



Администратор

ICQ: 278109632 

Вопросов: 42
Ответов: 3949
  Web-сайт: domkratt.com
 Профиль | | #1 		Добавлено: 24.09.08 13:03
Никак. Считать в массив строк, а потом обрабатывать с конца.

Ответить

Номер ответа: 2
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #2 Добавлено: 24.09.08 14:08
  1.  
  2.     Dim FileRows() As String
  3.     ReDim FileRows(0)
  4.     Open "Твой.txt" For Input Access Read As 1
  5.         FileRows(0) = Input(LOF(1), 1)
  6.     Close
  7. '    If Right$(FileRows(0), 1) = vbLf Then FileRows(0) = Left$(FileRows(0), Len(FileRows(0)) - 2)
  8.     FileRows = Split(FileRows(0), vbCrLf)
  9.     MsgBox FileRows(UBound(FileRows) - 1) & vbCr & _
  10.            FileRows(UBound(FileRows) - 2) & vbCr & _
  11.            FileRows(UBound(FileRows) - 3)

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам