Получить построчно текст из RTB

[Ruslan Demidow]

Вот, понадобилось мне из RichTextBox (в дальнейшем RTB) построчно получить текст.
Думется нет ничего проще.
Есть функция которая получает через посылку сообщений EM_GETLINE RTB. С английским языком всё нормально. Могу получить любую строку, но вот с русским текстом всё сложнее. Возвращает абракадабру вместо русских слов и букв.
Почему, не пойму. Как побороть - тоже не знаю.
Может подскажет кто-нибудь?

[Jenizix]

а может попробовать искать символ конца строки??? ( vbCrLF ) если что...

[Jenizix]

а RTB твой?, ну тоесть он у тебя на форме лежит или в другой проге?

[Alex Mals]

Решения не знаю, но есть две версии, попробуй
1. StrConv vbUnicode и обратно
2. послать EM_SETTEXTMODE с параметром ... or TM_SINGLECODEPAGE,
помогает в некоторых случаях получить русский текст вместо всякого г...

[Ruslan Demidow]

а может попробовать искать символ конца строки??? ( vbCrLF ) если что...

Нет, это не пройдёт.
Текст в RTB может быть отформатирован по разному в разных строках (выравнивание по левому, правому краю или по центру).
Если забирать просто текст - то не будет понятно какая строка как отформатирована.
У меня задумка такая: забираю одну строку текста из RTB. Смотрю как эта строка отформатирована (это легко. Ведь пожно найти эту строку в RTB и посмотреть .SelAlignment). После этого програмными средствами форматируем строку текста так как нам надо (убираем или добавляем пробелы там где надо). И сохраняем обычный, но уже отформатированный текст.

[Ruslan Demidow]

а RTB твой?, ну тоесть он у тебя на форме лежит или в другой проге?

RTB мой. Лежит у меня на форме.

[Ruslan Demidow]

Решения не знаю, но есть две версии, попробуй
1. StrConv vbUnicode и обратно

Пробовал. Нифига.
Вот исходный текст.
=========================
Пpивет Ivan,
01 маp 2005 ты писал(а) по поводу *эха жива?. *
IS>Здpавия желаю Ruslan
AV>>>>>>>А что это у тебя в тиpлайне за базе pидеp такой завёлся?
RD>>>>>> Да так... Звеpёк домашний...
=========================

А вот тот текст, что я получаю на выходе
=========================
p825B Ivan,
01 <0p 2005 BK ?8A0;(0) ?> ?>2>4C *ME0 6820?. *
IS>4p028O 65;0N Ruslan
AV>>>>>>> GB> MB> C B51O 2 B8p;09=5 70 1075 p845p B0:>9 702Q;AO?
RD>>>>>> 0 B0:... 25pQ: 4><0H=89...
==========================

А вот процедура, которая возвращает мне текст из RTB

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

Function GetText() As String
    Dim s As String
    Dim nLen As Long
    Dim nChar As Long
    Dim LinesCount As Long
    Dim i As Long, sTemp As String
    Const nLine = 2
LinesCount = SendMessage(RTBedit.hwnd, EM_GETLINECOUNT, &O0, &O0)
If LinesCount = 1 And Len(Trim$(RTBedit.Text)) = 0 Then
    GetText = vbNullString
    Exit Function
End If

sTemp = vbNullString

For i = 0 To LinesCount
    nChar = SendMessage(RTBedit.hwnd, EM_LINEINDEX, i, ByVal 0&)
If nChar <> -1 Then
    nLen = SendMessage(RTBedit.hwnd, EM_LINELENGTH, nChar, ByVal 0&)
    If nLen < 2 Then nLen = 2
    s = String$(2, 0)
    CopyMemory ByVal s, nLen, 2
    s = s & String$(nLen - 2, 0)
    nLen = SendMessage(RTBedit.hwnd, EM_GETLINE, i, ByVal s)
   
    s = left$(s, nLen)
    Debug.Print s
    sTemp = sTemp & s & vbCrLf
Else
    sTemp = sTemp & vbCrLf
End If
Next i
GetText = sTemp
End Function


2. послать EM_SETTEXTMODE с параметром ... or TM_SINGLECODEPAGE,
помогает в некоторых случаях получить русский текст вместо всякого г...

Это как? Пример можно?

[Ruslan Demidow]

Странно. Не первый день уже уведомлений об ответе по электронке не получаю. Приходится заходить на форум по нескольку раз на дню, чтобы отследить ответы.
Может где подкрутить нужно?
Так что прошу прощения, если отвечаю с большим опозданием.

[CodeName33]

А если вручную найти строку RTB, выделить её, и послать WM_COPY. Она будет в буфере и можо её вставить куда угодно.

[Ruslan Demidow]

А если вручную найти строку RTB, выделить её, и послать WM_COPY. Она будет в буфере и можо её вставить куда угодно.

А если у пользователя в это время в буфере что-нибудь лежит? Не пойдёт. Хотелось бы по-человечески это сделать.
Вот ведь. Строку получить могу. Форматирование получить могу. А вот русский текст в приемлемом виде получить не могу.

[Ruslan Demidow]

Ну так чего? Никто не подскажет?
Сколько обитаю на форуме - мало кто имеет дело с RTB или старается как можно меньше его использовать.

[Rody66]

Полностью аналогичная проблема, может быть через 6 лет появилось решение?