| Вопрос: Как подсчитать количество строк в TXT | Добавлено: 22.11.02 16:20 |
Автор вопроса:  Неясов_Андрей | Web-сайт: fans.saturn-fc.ru | ICQ: 674522 |
 я не помню!!! 8)!!!
|
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Андрей Щёкин [darxeth] ICQ: 161560107 Вопросов: 9 Ответов: 52 |
Web-сайт: Профиль | | #1 | Добавлено: 22.11.02 19:59 |
|
Если есть строковая переменная, содержащая эти строки (скажем, Str): NumLines = Ubound(Split(Str,vbCrLf)) Нумеруются с нуля. |
||
|
Номер ответа: 2 Автор ответа:  CaS ICQ: 165551179 Вопросов: 10 Ответов: 124 |
Web-сайт: Профиль | | #2 | Добавлено: 22.11.02 20:39 |
|
Dim a as integer open "Файл" for input as #1 do until eof(1) input #1, peremennaya a=a+1 loop close #1 |
||
|
Номер ответа: 3 Автор ответа:  CaSICQ: 165551179 Вопросов: 10 Ответов: 124 |
Web-сайт: Профиль | | #3 | Добавлено: 22.11.02 20:40 |
|
Dim A as integer open "File" for input as #1 do until eof(1) input #1,peremennaya A=A+1 loop close #1 |
||
|
Номер ответа: 4 Автор ответа: CaSICQ: 165551179 Вопросов: 10 Ответов: 124 |
Web-сайт: Профиль | | #4 | Добавлено: 22.11.02 20:40 |
|
Dim A as integer open "File" for input as #1 do until eof(1) input #1,peremennaya A=A+1 loop close #1 |
||
|
Номер ответа: 5 Автор ответа:  ГАТВопросов: 2 Ответов: 117 |
Web-сайт: Профиль | | #5 | Добавлено: 23.11.02 05:26 |
|
Если речь идет о TextBox, то этот вопрос обсуждался совсем недавно здесь или на http://bbs.VBStreets.ru/ посмотри предыдущие топики. |
||
Страница: 1 |