Можно ли RTB текст перекрасить, на стадии переменной?..

[cashman]

Можно ли RTB текст перекрасить, на стадии переменной?..
Т.е.

Код: Выделить всё

Open "***.txt" For Input As #1
Do Until EOF(1)
    Line Input #1, txt
                ' где-то здесь вставка (см ниже)
        alltxt = alltxt + txt + vbCrLf
    Loop
Close #1

А вставка фильтрует текст (не важно как) и некоторые строки (txt) уже на стадии вставки по строкам у некоторых txt менять цвет.
После чего готовое alltxt вставляем в RTB (уже некоторые строки крашенные).
Это возможно? или надо уже после того как вставил, используя Поиск?

[tyomitch]

Можно, если использовать свойство TextRTF.
Тогда и саму переменную нужно формировать в виде RTF.

[cashman]

Эта переменная съедает больше памяти?
Как использовать (или где включить) это свойство TextRTF?

[tyomitch]

Эта переменная съедает больше памяти?

Ненамного.

Как использовать (или где включить) это свойство TextRTF?

Просто присвоить ему нужный текст в виде RTF.

Открой WordPad, набери чего-нибудь, сохрани в RTF, посмотри как это устроено, и генерируй такое же сам Это не сложнее, чем с HTML, просто несколько непривычно поначалу.

[cashman]

Это просто ужас!..
А нет чего-нибудь проще, как установка цвета переменной (строки) в момент вставки ее из файли?..

[KiloGraf]

Это просто ужас!..

...а ты как думал? И альтернативы, похоже нет!

И с Rich синтаксисом по аккуратней, а то под Win9x криво текст отображаться будет!

[cashman]

придется видимо:
1) вставлить нужный текст
2) искать некоторые строки:
- устанавливать длинну
- выделять
- перекрашивать

Вопрос по последнему пункту. Как перекрасить?..

[Ruslan Demidow]

придется видимо:
1) вставлить нужный текст
2) искать некоторые строки:
- устанавливать длинну
- выделять
- перекрашивать

Вопрос по последнему пункту. Как перекрасить?..

Код: Выделить всё

    With RTB
        .SelColor = lColor 'где lColor значение цвета
     End With


Открой по F2 окно и набери vbRed - увидишь ещё несколько значений цвета.
Остальные цвета можно получить или комбинированием RGB или просто задав число типа Long.