ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как вычислить количество строк в RichTextBox?
74 сообщений из 74, показаны все 3 страниц
  все  
Как вычислить количество строк в RichTextBox?
    #36939761
SEOMR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SEOMR
Гость
Перечитал много информации, но так и не нашел способа вычислить количество строк в RichTextBox.
Буду признателен вам за помощь.
...
Рейтинг: 0 / 0
05.11.2010, 23:20
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36939772
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
michael R
Участник
а пустая строка тоже считается ?

подсчитай количество VBCRLF
...
Рейтинг: 0 / 0
05.11.2010, 23:28
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36939780
SEOMR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SEOMR
Гость
А можно немного по-подробней.
Я только недавно занялся изучением ВБ, да и RichTextBox до этого не был нужен.
Основная цель, для которой мне нужен RichTextBox - это удобное добавление в Listbox списка сайтов, на данный же момент все элементы добавляются прямо в Listbox из файла.
...
Рейтинг: 0 / 0
05.11.2010, 23:40
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36939785
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
michael R
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
dim Arr()
Arr= split(RTF1.text,VBCRLF)
for i= 0  to UBOUND(ARR)
  if ARR(i)<>VBCRLF THEN
      LIST1.ADDITEM TRIM(ARR(i))
  END IF
next i

можно просто убрать пустые строки из текста заранее
ну примерно так
...
Рейтинг: 0 / 0
05.11.2010, 23:46
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36939802
SEOMR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SEOMR
Гость
Спасибо все работает.
...
Рейтинг: 0 / 0
06.11.2010, 00:13
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36939909
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
что то никто и не спросил, что такое RichTextBox, видимо все знают?
Я вот ни разу не использовал, подскажите люди добрые, что это??? зачем нужно??
...
Рейтинг: 0 / 0
06.11.2010, 09:01
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36939954
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
michael R
Участник
Эндрю

а по названию трудно догадаться ?
или с английского перевести
...
Рейтинг: 0 / 0
06.11.2010, 10:58
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36939966
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
michael R, жизнь же пошла, запутаться можно, есть же соки Рич )
Ну знаю я перевод:
Rich
прил.
богатый (жирный, ценный, пряный, завышенный)
ничего не даёт, что за чудо??? с чем его едят?? почему не знаю??
...
Рейтинг: 0 / 0
06.11.2010, 11:14
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36939991
Фотография alex77755
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex77755
Участник
Посмотри внимательно список контролов - будешь очень удивлён
...
Рейтинг: 0 / 0
06.11.2010, 11:43
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36939994
Фотография alex77755
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex77755
Участник
Это на панели "Элементы управления" "Другие элементы"
...
Рейтинг: 0 / 0
06.11.2010, 11:45
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36939998
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
michael R
Участник
Эндрю

имеется ввиду расширенный TextBox
то есть Техт с добавочными средствами
...
Рейтинг: 0 / 0
06.11.2010, 11:51
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36940019
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
michael R,

Они идут строго по алфавиту, увы RichTextBox у меня нет
есть на букву R:
RealPlayer G2 Control
RefEdit.Ctrl
RegWizCtrl
RemoteDesktopClientHost Class
и всё!!!
...
Рейтинг: 0 / 0
06.11.2010, 12:23
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36940022
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ципихович Эндрю,

вот это для начала
...
Рейтинг: 0 / 0
06.11.2010, 12:27
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36940025
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro,

говорю же ещё раз:
увы RichTextBox у меня нет
есть на букву R:
RealPlayer G2 Control
RefEdit.Ctrl
RegWizCtrl
RemoteDesktopClientHost Class
и всё!!!
...
Рейтинг: 0 / 0
06.11.2010, 12:32
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36940047
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ципихович Эндрю,

тогда че пристал?
...
Рейтинг: 0 / 0
06.11.2010, 12:52
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36940050
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro, уже отстал!!
Думал, может какие подводные камни есть, что то туплю
...
Рейтинг: 0 / 0
06.11.2010, 12:53
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36940053
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ципихович ЭндрюShocker.Pro, уже отстал!!
Думал, может какие подводные камни есть, что то туплю
конечно тупишь
все у тебя есть, ищи лучше
...
Рейтинг: 0 / 0
06.11.2010, 12:57
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36940073
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro, ну нет же и там, пытался добавить Additional Conrols …
А там всё тот же список, есть на букву R:
RealPlayer G2 Control
RefEdit.Ctrl
RegWizCtrl
RemoteDesktopClientHost Class
и всё!!!
...
Рейтинг: 0 / 0
06.11.2010, 13:18
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36940075
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ципихович Эндрю,

А он не на букву R
И если, как в том анекдоте про прапорщика, не можешь догадаться, как выяснить нужную библиотеку, то надо прыгать перечитай весь список - найдешь.
...
Рейтинг: 0 / 0
06.11.2010, 13:20
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36940077
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro, пока я ищу можете отдохнуть и там вроде сегодня день мужчин, с праздником
...
Рейтинг: 0 / 0
06.11.2010, 13:23
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36940078
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ципихович Эндрюпока я ищу
А пока реклама:
Ципихович Эндрю - идеальное средство для брутфорса!
...
Рейтинг: 0 / 0
06.11.2010, 13:26
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36940086
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro, я не знаю, что такое брутфорс, но пояснять не нужно
Я же Гугл в закладки на ИЕ поставил
Так и есть Микрософт он как Гугл везде
Microsoft RichTextBox Control, version 6.0
Ну добавил, его пытаюсь перетащить на форму
Получаю
Субъект не имеет доверия для указанного действия?????
Доверие??? где его взять???
...
Рейтинг: 0 / 0
06.11.2010, 13:34
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36940092
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Полный перебор (или метод «грубой силы» от англ. brute force) — метод решения задачи путем перебора всех возможных вариантов. Сложность полного перебора зависит от количества всех возможных решений задачи. Если пространство решений очень велико, то полный перебор может не дать результатов в течение нескольких лет или даже столетий.
Я столько не проживу
...
Рейтинг: 0 / 0
06.11.2010, 13:37
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36940186
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
michael R
Участник
Хм......
кстати у меня в Word тоже не перетаскивается RichTextBox
но он особо сильно то и не нужно
...
Рейтинг: 0 / 0
06.11.2010, 15:32
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36940196
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
michael R, мне нравится, что я не один такой
...
Рейтинг: 0 / 0
06.11.2010, 15:45
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36940199
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
тогда вопрос к автору:
Как же так у Вас перетаскивается????
...
Рейтинг: 0 / 0
06.11.2010, 15:46
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36940207
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ципихович Эндрютогда вопрос к автору:
Как же так у Вас перетаскивается????
А автор про ворд ничего и не говорил.
...
Рейтинг: 0 / 0
06.11.2010, 15:58
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36940212
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
michael R
Участник
Ципихович Эндрю michael R, мне нравится, что я не один такой

нет Эндрю
ты опять в гордом одиночестве
...
Рейтинг: 0 / 0
06.11.2010, 16:02
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36940228
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
michael R, ты опять в гордом одиночестве
Почему, у Вас перетаскивается??
...
Рейтинг: 0 / 0
06.11.2010, 16:18
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36940244
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
michael R
Участник
это потому что я волшебное слово знаю
...
Рейтинг: 0 / 0
06.11.2010, 16:33
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36940258
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
michael R, пожалуйста, что ли?
не уж то Оклиптик
...
Рейтинг: 0 / 0
06.11.2010, 16:48
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36940458
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
michael R
Участник
Эндрюmichael R, пожалуйста, что ли?

нет заклятие это очень сильное
и танцы с бубном возле компьютера
очень здорово помогает
...
Рейтинг: 0 / 0
06.11.2010, 22:25
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36940645
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
michael R, у нас нету музыкального магазина, чтобы купить бубон
...
Рейтинг: 0 / 0
07.11.2010, 05:32
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36942781
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
michael R, ну уж подскажите своё заклятие, бубон и маракасики я нашёл!!!!!!!
...
Рейтинг: 0 / 0
08.11.2010, 16:01
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36942859
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
michael R
Участник
Эндрю в чём проблема?

делаешь форму в Word
подключаешь свой RichTextBox
выделяешь форму что бы была активной
и на форме рисуешь контроль

и всё
...
Рейтинг: 0 / 0
08.11.2010, 16:23
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36942867
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
michael Rделаешь форму в Word
подключаешь свой RichTextBox
выделяешь форму что бы была активной
и на форме рисуешь контроль
по мне, так это правильный способ
а что вы с ЦЭ умудряетесь делать неправильно, чтобы получить ошибку?
...
Рейтинг: 0 / 0
08.11.2010, 16:26
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36942913
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
michael R, имею я форму с Тоолбокса тащу на форму Лэйбл, пожалуйста, с Тоолбокса тащу на форму RichTextBox получаю "Субъект не имеет доверия для выполнения указанного действия"!!!!!
Что не так???
...
Рейтинг: 0 / 0
08.11.2010, 16:37
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36942994
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
michael R
Участник
Shocker.Pro по мне, так это правильный способ
а что вы с ЦЭ умудряетесь делать неправильно, чтобы получить ошибку?

а почему это вы?
и кто такие вы или мы ?

у меня работает
...
Рейтинг: 0 / 0
08.11.2010, 17:03
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36942999
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
michael Rу меня работает
michael R 6 ноя 10, 15:32Хм......
кстати у меня в Word тоже не перетаскивается RichTextBox
но он особо сильно то и не нужно
...
Рейтинг: 0 / 0
08.11.2010, 17:05
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36943053
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro, так у Вас тоже когда тащите на форму RichTextBox получаете "Субъект не имеет доверия для выполнения указанного действия"??????????
...
Рейтинг: 0 / 0
08.11.2010, 17:28
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36943057
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
michael R
Участник
Shocker.Pro
дальше читай мои сообщения
у меня работает


Эндрю
да не тяни ты
просто нарисуй на форме
...
Рейтинг: 0 / 0
08.11.2010, 17:29
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36943059
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
у меня работает любым способом
...
Рейтинг: 0 / 0
08.11.2010, 17:30
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36943069
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
michael R, ну пусть это будет не тяни, выделил, тащу, то есть перемещаю и сообщение

(микрофон на работе)
...
Рейтинг: 0 / 0
08.11.2010, 17:35
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36943115
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
michael R
Участник
Эндрю
на читай
http://forums.esri.com/Thread.asp?c=93&f=992&t=141065


Shocker.Pro
это проблема с установками в регистратуре
у меня на некоторых компах действительно не работает(не работало)
...
Рейтинг: 0 / 0
08.11.2010, 17:52
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36959796
SEOMR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SEOMR
Гость
И опять возник вопрос по RichTextBox.
Как вытащить из него построчно элементы и добавить их в массив я понял, а как заполнить RichTextBox построчно своим массивом?
...
Рейтинг: 0 / 0
16.11.2010, 16:00
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36959802
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
michael R
Участник
ну так же по аналогии
просто добавлять символ перехода строки в цикле в самом RichTextBox-е (VBCrlF)
...
Рейтинг: 0 / 0
16.11.2010, 16:02
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36960641
SEOMR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SEOMR
Гость
А можно пример, так как я вероятно что-то делаю неправильно, так как у меня выдает только последний символ массива.
...
Рейтинг: 0 / 0
16.11.2010, 23:04
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36960673
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
SEOMRА можно пример, так как я вероятно что-то делаю неправильно, так как у меня выдает только последний символ массива.
а можно пример неправильно сделанного?
А лучше просто пройдись пошаговым выполнением и 100% найдешь проблему
...
Рейтинг: 0 / 0
16.11.2010, 23:34
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36962004
SEOMR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SEOMR
Гость
Вообщем, перечитал все по RichTextBox, но не нашел ничего, что помогло бы, также по аналогии получилось сделать только кривовато.
Вот код:
авторDim b As String
Dim a() As String
a() = Split(RTF1.Text, vbCrLf)
b = a(0)
For i = 1 To UBound(a)
b = b & Chr(13) & a(i)
Next i
RTF2.Text = b

Как то же самое сделать, но не так криво?
...
Рейтинг: 0 / 0
17.11.2010, 15:55
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36962015
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
SEOMR,

а что не нравится в этом коде?
...
Рейтинг: 0 / 0
17.11.2010, 15:57
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36962039
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: SEOMR
> Как то же самое сделать, но не так криво?


Ну сделай Replace и замени vbCrLf на vbCr.

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
17.11.2010, 16:05
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36962057
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Игорь Горбонос> Автор: SEOMR
> Как то же самое сделать, но не так криво?


Ну сделай Replace и замени vbCrLf на vbCr.



насколько я понял, вопрос стоит так:
автора как заполнить RichTextBox построчно своим массивом?
это как раз реализовано

ЗЫ: Автор, почитай правила, используй правильные тэги для кода
...
Рейтинг: 0 / 0
17.11.2010, 16:12
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36962152
SEOMR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SEOMR
Гость
Shocker.ProSEOMR,

а что не нравится в этом коде?

Массивом-то заполнить я могу, но при реализации этого, возник еще вопрос:

А как дописать в RichTextBox текст, в какую-нибудь произвольную строку или в конец текста?

При RichTextBox1.Text произойдет замена текста, а иногда нужно именно дописать.
...
Рейтинг: 0 / 0
17.11.2010, 16:40
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36962165
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
SEOMRShocker.ProSEOMR,

а что не нравится в этом коде?

Массивом-то заполнить я могу, но при реализации этого, возник еще вопрос:

А как дописать в RichTextBox текст, в какую-нибудь произвольную строку или в конец текста?

При RichTextBox1.Text произойдет замена текста, а иногда нужно именно дописать.

А что по вашему вот это:
Код: plaintext
b = b & Chr( 13 ) & a(i)
цитата из вашего кода
...
Рейтинг: 0 / 0
17.11.2010, 16:45
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36962190
SEOMR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SEOMR
Гость
Shocker.ProSEOMRпропущено...


Массивом-то заполнить я могу, но при реализации этого, возник еще вопрос:

А как дописать в RichTextBox текст, в какую-нибудь произвольную строку или в конец текста?

При RichTextBox1.Text произойдет замена текста, а иногда нужно именно дописать.

А что по вашему вот это:
Код: plaintext
b = b & Chr( 13 ) & a(i)
цитата из вашего кода

немного протупил ) в конец текста понятно как, а если надо на определенную строку?
...
Рейтинг: 0 / 0
17.11.2010, 16:52
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36962198
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
SEOMRнемного протупил ) в конец текста понятно как, а если надо на определенную строку?ну вставляете внутрь цикла условие, когда i достигнет определенного значения.
...
Рейтинг: 0 / 0
17.11.2010, 16:55
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36962248
SEOMR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SEOMR
Гость
Shocker.ProSEOMRнемного протупил ) в конец текста понятно как, а если надо на определенную строку?ну вставляете внутрь цикла условие, когда i достигнет определенного значения.

То есть опять надо брать массив, присваивать каждый элемент массива переменной b, а далее при определенном i присвоить еще и нужный элемент?!

Меня во всем этом коде смущает одно: не будет ли он медленный при 10000 и более строк? Может есть способы по рациональнее?
...
Рейтинг: 0 / 0
17.11.2010, 17:15
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36962284
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
SEOMRТо есть опять надо брать массив, присваивать каждый элемент массива переменной b, а далее при определенном i присвоить еще и нужный элемент?!

Меня во всем этом коде смущает одно: не будет ли он медленный при 10000 и более строк? Может есть способы по рациональнее?
будет
тогда можно в цикле InStr-ом найти нужную строку и сделать конкатенацию один раз
...
Рейтинг: 0 / 0
17.11.2010, 17:23
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36962357
SEOMR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SEOMR
Гость
В общем реализовал таким образом:

авторDim b, b1, d, d1 As String
Dim a() As String
Dim c As Integer
a() = Split(RTF1.Text, vbCrLf)
b = a(0)
For i = 1 To UBound(a)
b = b & Chr(13) & a(i)
Next i
RTF2.Text = b

Ну и если нужно добавить какую-нибудь строку после определенного элемента массива

авторd = InputBox("Введите строку, после которой вставляем элемент массива")
d1 = InputBox("Введите элемент массива, который необходимо вставить")
If InStr(1, b, "d") <> 0 Then
c = InStr(1, b, d)
b = Replace(b, d, d & Chr(13) & d1, 1, 1)
Else: MsgBox ("Вы ввели несуществующую строку")
End If
RTF2.Text = b

На сколько этот код рационален?
...
Рейтинг: 0 / 0
17.11.2010, 17:52
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36962403
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
я ведь просил почитать правила

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Dim b, b1, d, d1 As String
Dim a() As String
Dim c As Integer
a() = Split(RTF1.Text, vbCrLf)
b = a( 0 )
For i =  1  To UBound(a)
b = b & Chr( 13 ) & a(i)
Next i
RTF2.Text = b

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
d = InputBox("Введите строку, после которой вставляем элемент массива")
d1 = InputBox("Введите элемент массива, который необходимо вставить")
If InStr( 1 , b, "d") <>  0  Then
c = InStr( 1 , b, d)
b = Replace(b, d, d & Chr( 13 ) & d1,  1 ,  1 )
Else: MsgBox ("Вы ввели несуществующую строку")
End If
RTF2.Text = b
...
Рейтинг: 0 / 0
17.11.2010, 18:11
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36962427
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
то есть под строкой вы подразумевали не НОМЕР строки, а ее содержание.
Ну значит можно и так
...
Рейтинг: 0 / 0
17.11.2010, 18:24
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36962428
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Shocker.Proто есть под строкой вы подразумевали не НОМЕР строки, а ее содержание.
Ну значит можно и так
только строкам придется быть уникальными.
...
Рейтинг: 0 / 0
17.11.2010, 18:24
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36962433
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
michael R
Участник
Код: plaintext
Chr( 13 )
маловато будет

Код: plaintext
Chr( 13 ) & Chr( 10 )
или просто VBCRLF
...
Рейтинг: 0 / 0
17.11.2010, 18:28
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36962436
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
michael R
Участник
а блин
не увидел что ещё страница ответов есть
...
Рейтинг: 0 / 0
17.11.2010, 18:29
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36962839
SEOMR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SEOMR
Гость
Написал прогу, суть которой в обрезке адреса ссылок до уровня главной страницы.

Скорость вышла довольно неплохая.
10 К урлов за 4 сек.
20 К урлов за 20 сек
30 К урлов за 45 сек.

Не могу понять в чем причина столь неравномерного увеличения времени, необходимого на обработку большего количества урлов? Я был уверен, что если 10 К обрабатывает 4 сек, то 20 К будет обрабатывать 8 сек, но не тут-то было.
...
Рейтинг: 0 / 0
18.11.2010, 00:17
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36962853
пробуй камнем
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пробуй камнем
Гость
SEOMR,
количество переходит в новое качество.
ЗЫ: кофейная гуща закончилась, - не получается определить, откуда программа данные берет.
...
Рейтинг: 0 / 0
18.11.2010, 00:34
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36962877
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
SEOMRНаписал прогу, суть которой в обрезке адреса ссылок до уровня главной страницы.

Скорость вышла довольно неплохая.
10 К урлов за 4 сек.
20 К урлов за 20 сек
30 К урлов за 45 сек.

Не могу понять в чем причина столь неравномерного увеличения времени, необходимого на обработку большего количества урлов? Я был уверен, что если 10 К обрабатывает 4 сек, то 20 К будет обрабатывать 8 сек, но не тут-то было.

Куда складывается результат?
если конкатенируется в строковую переменную - то все понятно
...
Рейтинг: 0 / 0
18.11.2010, 01:05
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36965167
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
michael R
Участник
10 К урлов за 4 сек.
20 К урлов за 20 сек
30 К урлов за 45 сек.

-----------------------

скорость конечно убиться

обрезание до имени домейна лучше через регулярные выражения(тем более у тебя их сотни тысяч)
а склеивание текста в цикле лучше через CopyMemory или класс на основе этой функции
...
Рейтинг: 0 / 0
19.11.2010, 01:43
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36965169
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
michael Rскорость конечно убиться
обрезание до имени домейна лучше через регулярные выражения(тем более у тебя их сотни тысяч)
а склеивание текста в цикле лучше через CopyMemory или класс на основе этой функции
регулярка вряд ли сработает быстрее, по крайней мере значительно.
Что касается конкатенации - тут Антонарий выкладывал вполне прилично работающий класс Concat.cls. Сам испытывал, прирост скорости бешеный.
...
Рейтинг: 0 / 0
19.11.2010, 01:50
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36965839
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
michael R
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
178.
179.
180.
181.
182.
183.
184.
185.
186.
187.
188.
189.
190.
191.
192.
193.
194.
195.
196.
197.
198.
199.
200.
201.
202.
203.
204.
205.
206.
207.
208.
209.
210.
211.
212.
213.
214.
215.
216.
217.
218.
219.
220.
VERSION  1 . 0  CLASS
BEGIN
  MultiUse = - 1   'True
  Persistable =  0   'NotPersistable
  DataBindingBehavior =  0   'vbNone
  DataSourceBehavior  =  0   'vbNone
  MTSTransactionMode  =  0   'NotAnMTSObject
END
Attribute VB_Name = "cStringBuilder"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

' ======================================================================================
' Name:     vbAccelerator cStringBuilder
' Author:   Steve McMahon (steve@vbaccelerator.com)
' Date:     1 January 2002
'
' Copyright © 2002 Steve McMahon for vbAccelerator
' --------------------------------------------------------------------------------------
' Visit vbAccelerator - advanced free source code for VB programmers
' http://vbaccelerator.com
' --------------------------------------------------------------------------------------
'
' VB can be slow to append strings together because of the continual
' reallocation of string size.  This class pre-allocates a string in
' blocks and hence removes the performance restriction.
'
' Quicker insert and remove is also possible since string space does
' not have to be reallocated.
'
' Example:
' Adding "http://vbaccelerator.com/" 10,000 times to a string:
' Standard VB:   34s
' This Class:    0.35s
'
' ======================================================================================

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
      (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
Private m_sString As String
Private m_iChunkSize As Long
Private m_iPos As Long
Private m_iLen As Long

Public Property Get length() As Long
   length = m_iPos \  2 
End Property

Public Property Get Capacity() As Long
   Capacity = m_iLen \  2 
End Property

Public Property Get ChunkSize() As Long
   ' Return the unicode character chunk size:
   ChunkSize = m_iChunkSize \  2 
End Property

Public Property Let ChunkSize(ByVal iChunkSize As Long)
   ' Set the chunksize.  We multiply by 2 because internally
   ' we are considering bytes:
   m_iChunkSize = iChunkSize *  2 
End Property

Public Property Get ToString() As String
   ' The internal string:
   If m_iPos >  0  Then
      ToString = Left$(m_sString, m_iPos \  2 )
   End If
End Property

Public Property Let TheString(ByRef sThis As String)
Dim lLen As Long
   
   ' Setting the string:
   lLen = LenB(sThis)
   If lLen =  0  Then
      'Clear
      m_sString = ""
      m_iPos =  0 
      m_iLen =  0 
   Else
      If m_iLen < lLen Then
         ' Need to expand string to accommodate:
         Do
            m_sString = m_sString & Space$(m_iChunkSize \  2 )
            m_iLen = m_iLen + m_iChunkSize
         Loop While m_iLen < lLen
      End If
      CopyMemory ByVal StrPtr(m_sString), ByVal StrPtr(sThis), lLen
      m_iPos = lLen
   End If
   
End Property

Public Sub Append(ByRef sThis As String)
Dim lLen As Long

   ' Append an item to the string:
   lLen = LenB(sThis)
   If (m_iPos + lLen) > m_iLen Then
      m_sString = m_sString & Space$(m_iChunkSize \  2 )
      m_iLen = m_iLen + m_iChunkSize
   End If
   CopyMemory ByVal UnsignedAdd(StrPtr(m_sString), m_iPos), ByVal StrPtr(sThis), lLen
   m_iPos = m_iPos + lLen
   
End Sub

Public Sub AppendByVal(ByVal sThis As String)
   Append sThis
End Sub

Public Sub Insert(ByVal iIndex As Long, ByRef sThis As String)
Dim lLen As Long
Dim lPos As Long
Dim lSize As Long
   
   ' is iIndex within bounds?
   If (iIndex *  2  > m_iPos) Then
      Err.Raise  9 
   Else
   
      lLen = LenB(sThis)
      If (m_iPos + lLen) > m_iLen Then
         m_sString = m_sString & Space$(m_iChunkSize \  2 )
         m_iLen = m_iLen + m_iChunkSize
      End If
      
      ' Move existing characters from current position
      lPos = UnsignedAdd(StrPtr(m_sString), iIndex *  2 )
      lSize = m_iPos - iIndex *  2 
      
      ' moving from iIndex to iIndex + lLen
      CopyMemory ByVal UnsignedAdd(lPos, lLen), ByVal lPos, lSize
      
      ' Insert new characters:
      CopyMemory ByVal lPos, ByVal StrPtr(sThis), lLen
      
      m_iPos = m_iPos + lLen
   
   End If
   
End Sub
Public Sub InsertByVal(ByVal iIndex As Long, ByVal sThis As String)
   Insert iIndex, sThis
End Sub

Public Sub Remove(ByVal iIndex As Long, ByVal lLen As Long)
Dim lSrc As Long
Dim lDst As Long
Dim lSize As Long

   ' is iIndex within bounds?
   If (iIndex *  2  > m_iPos) Then
      Err.Raise  9 
   Else
      ' is there sufficient length?
      If ((iIndex + lLen) *  2  > m_iPos) Then
         Err.Raise  9 
      Else
         ' Need to copy characters from iIndex*2 to m_iPos back by lLen chars:
         lSrc = UnsignedAdd(StrPtr(m_sString), (iIndex + lLen) *  2 )
         lDst = UnsignedAdd(StrPtr(m_sString), iIndex *  2 )
         lSize = (m_iPos - (iIndex + lLen) *  2 )
         CopyMemory ByVal lDst, ByVal lSrc, lSize
         m_iPos = m_iPos - lLen *  2 
      End If
   End If
End Sub

Public Function Find(ByVal sToFind As String, _
   Optional ByVal lStartIndex As Long =  1 , _
   Optional ByVal compare As VbCompareMethod = vbTextCompare _
   ) As Long
Dim lInstr As Long
   If (lStartIndex >  0 ) Then
      lInstr = InStr(lStartIndex, m_sString, sToFind, compare)
   Else
      lInstr = InStr(m_sString, sToFind, compare)
   End If
   If (lInstr < m_iPos \  2 ) Then
      Find = lInstr
   End If
End Function

Public Sub HeapMinimize()
Dim iLen As Long
   
   ' Reduce the string size so only the minimal chunks
   ' are allocated:
   If (m_iLen - m_iPos) > m_iChunkSize Then
      iLen = m_iLen
      Do While (iLen - m_iPos) > m_iChunkSize
         iLen = iLen - m_iChunkSize
      Loop
      m_sString = Left$(m_sString, iLen \  2 )
      m_iLen = iLen
   End If
   
End Sub
Private Function UnsignedAdd(Start As Long, Incr As Long) As Long
' This function is useful when doing pointer arithmetic,
' but note it only works for positive values of Incr

   If Start And &H80000000 Then 'Start < 0
      UnsignedAdd = Start + Incr
   ElseIf (Start Or &H80000000) < -Incr Then
      UnsignedAdd = Start + Incr
   Else
      UnsignedAdd = (Start + &H80000000) + (Incr + &H80000000)
   End If
   
End Function
Private Sub Class_Initialize()
   ' The default allocation: 8192 characters.
   m_iChunkSize =  670000  '16384
End Sub

вот собственно класс для склеивания текста
m_iChunkSize = 670000 '16384
можно менять буффер до 1-2 Г
...
Рейтинг: 0 / 0
19.11.2010, 13:11
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36965846
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
michael R
Участник
код взять начиная с Option Explicit

2Г наверно много будет но 1Г наверно возьмёт
чем больше буффер тем быстрее но зажирается память

использовать
метод Append склеить
метод ToString получить значение
метод TheString присвоение
...
Рейтинг: 0 / 0
19.11.2010, 13:15
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36965854
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
michael R
Участник
Shocker.Pro

для большого количества записей регулярка сработает очень даже ничего
а товарищу именно нужно много записей обработать
...
Рейтинг: 0 / 0
19.11.2010, 13:19
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36966190
SEOMR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SEOMR
Гость
Спасибо за код.
Но мне в нем придется долго разбираться.
...
Рейтинг: 0 / 0
19.11.2010, 15:38
| Ответить | Цитировать | Написать  
Как вычислить количество строк в RichTextBox?
    #36966248
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
michael R
Участник
SEOMR

не надо разбираться
код засунь в модуль класс(есть такая штука в VB)
в основном коде создаёшь обьект через NEW на этот класс(имя твоего класса так как ты его назвал)
и вперёд с песней

можно и с регуляркой сделать для скорости
только точно нужно знать что именно ты хочешь получить
...
Рейтинг: 0 / 0
19.11.2010, 16:04
| Ответить | Цитировать | Написать  
74 сообщений из 74, показаны все 3 страниц
  все  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как вычислить количество строк в RichTextBox?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]