Гость
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проверка строки на цвет / 9 сообщений из 9, страница 1 из 1
16.07.2012, 15:00
    #37880685
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка строки на цвет
Всем доброго дня !!
Как можно проверить строку на содержания в ней
слов высвечиваемыми другим цветом(например красным)

Спасибо.
...
Рейтинг: 0 / 0
16.07.2012, 15:05
    #37880698
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка строки на цвет
Строка сферическая в вакууме?
...
Рейтинг: 0 / 0
16.07.2012, 15:11
    #37880705
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка строки на цвет
Нет конечно !!
Допустим я их уже выкрасил в каком-то RichTextBox - е
И в цикле хочу перебирать ...
Код: vbnet
1.
2.
3.
4.
arr=Split(text.text,VBCrLf)
For i=0 to UBound(arr)-1
if arr(i)    .....
.....
...
Рейтинг: 0 / 0
16.07.2012, 15:11
    #37880706
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка строки на цвет
> Автор: Valeriu
> слов высвечиваемыми другим цветом(например красным)

Я бы начал с записи макроса, который делает часть букв в ячейке другого цвета. После чего производил-бы обратную
операцию.
бежал по ячейкам

в каждой ячейке бежал по символам и смотрел на цвет символа

как только определялся, например красный цвет, делал нужные действия.

P.S. Капец задание. Причем нет никакой возможности ускорить в такой постановке задачи. Поговори с составителями этого
файла, пусть в отдельном столбце делают пометки, так можно будет автофильрром отобрать и скорость обработки вырастет в
сотни раз.

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
16.07.2012, 15:14
    #37880709
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка строки на цвет
> Автор: Valeriu
> Нет конечно !!
> Допустим я их уже выкрасил в каком-то RichTextBox - е

Прикольно, я думал это в екселе, а тут намного проще
Получаешь RTF-текст и в нем ищешь тэг отвечающий за цвет, дальше ищешь закрывающий тэг. Всё

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
16.07.2012, 15:17
    #37880713
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка строки на цвет
Valeriu Нет конечно !!
Допустим я их уже выкрасил в каком-то RichTextBox - е
И в цикле хочу перебирать ...
Код: vbnet
1.
2.
3.
4.
arr=Split(text.text,VBCrLf)
For i=0 to UBound(arr)-1
if arr(i)    .....
.....

Если это RTB, то проверять нужно его методами: SelStart, SelLength, SelColor. Правда я понятия не имею, что вернется, если выделить слово, где все буквы разноцветные. Наверное цвет первой буквы.
...
Рейтинг: 0 / 0
16.07.2012, 15:19
    #37880719
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка строки на цвет
Игорь ГорбоносПолучаешь RTF-текст и в нем ищешь тэг отвечающий за цвет, дальше ищешь закрывающий тэг. Всё
Если текста много, то rtf кодируется так, что открывающих-закрывающих тегов не найдешь.
...
Рейтинг: 0 / 0
16.07.2012, 15:21
    #37880727
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка строки на цвет
> Автор: Antonariy
> Если текста много, то rtf кодируется так, что открывающих-закрывающих тегов не найдешь.

т.е. новый тэг установки цвета будет завершать работу предыдущего тэга :D

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
16.07.2012, 15:33
    #37880766
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка строки на цвет
Спасибо всем...
В Gambas-е хотел это делать.
Думал по аналогии. Не тут-то было.
Все ровно спасибо. Достучусь как нибудь.
Попробую на забугорском форуме.
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проверка строки на цвет / 9 сообщений из 9, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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