| Вопрос: Как подсчитать сколько в text1.text строк | Добавлено: 26.03.06 15:08 |
Автор вопроса:  Billi Gates | ICQ: 242-026-281 |
|
Вася Пупкин
Сергей Петушков Eporo [root] sne итого 5 строк! А как подсчитать сколько строк в тексте программным путём? |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа: [root] Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #1 | Добавлено: 26.03.06 15:19 |
|
Option Explicit
Private Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, lParam As Any) As Long Private Const EM_GETLINECOUNT = &HBA Private Sub Command1_Click() ' Число строк в текстовом окне Label1 = SendMessage(Text1.hWnd, EM_GETLINECOUNT, 0, 0) End Sub |
||
|
Номер ответа: 2 Автор ответа:  Billi Gates ICQ: 242-026-281 Вопросов: 25 Ответов: 57 |
Профиль | | #2 | Добавлено: 26.03.06 16:33 |
| спасибо [root] | ||
|
Номер ответа: 3 Автор ответа: [root]Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #3 | Добавлено: 26.03.06 16:46 |
|
всегда рад помочь
|
||
|
Номер ответа: 4 Автор ответа: [root]Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #4 | Добавлено: 26.03.06 19:34 |
|
Еще вариант:
Dim str As String
str = Text1 Label1 = UBound(Split(str, vbCrLf)) + 1 |
||
|
Номер ответа: 5 Автор ответа: Billi GatesICQ: 242-026-281 Вопросов: 25 Ответов: 57 |
Профиль | | #5 | Добавлено: 26.03.06 19:44 |
| да, я тоже такой нашёл, только я контрол использовал, но всёравно спасибо! | ||
|
Номер ответа: 6 Автор ответа: ПавелАдминистратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #6 | Добавлено: 26.03.06 21:01 |
|
Отличайте строки от абзацев... Первый код считает строки, второй
абзацы. |
||
|
Номер ответа: 7 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #7 | Добавлено: 26.03.06 23:01 |
Павел, ты про "мягкие" переводы строк? с ними даже блокнот в ХР глючит хуже чем в 98й... 
|
||
Страница: 1 |