| Вопрос: RTF-Syntax | Добавлено: 20.04.07 13:15 |
Автор вопроса:  popzow
|
|
Вот если я в rtf-box русскими буквами, что- либо впишу и посмотрю этот fail в Editor, то там будет-
{\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl{\f0\fswiss\fcharset204{\*\fname Arial;}Arial CYR;}{\f1\fswiss\fcharset0 Arial;}} {\*\generator Msftedit 5.41.15.1507;}\viewkind4\uc1\pard\lang1049\f0\fs20\'f6\lang1031\f1\par } вот буква ц отобразилась как 'f6. Я бы хотел бы такую функцию повторить.Может кто знает как это реализовать? В принципе я нашел как выйти на язык lang1049, то что это русский и не какой другой, а вот как конкретную букву к такой форме ('f6-ц) привязать не знаю. Может кто- нибудь поможет, подскажет? Мне бы не только для русского, а вообще общую функцию, как это происходит. Спасибо. |
| Ответы | Всего ответов: 9 |
|
Номер ответа: 1 Автор ответа:  Viper ICQ: 249094859 Вопросов: 0 Ответов: 310 |
Профиль | | #1 | Добавлено: 20.04.07 14:10 |
| f6 - это и есть буква "ц" в Hex-виде | ||
|
Номер ответа: 2 Автор ответа: popzow Вопросов: 6 Ответов: 20 |
Профиль | | #2 | Добавлено: 20.04.07 14:23 |
| Это уже очень хорошо. Вот бу еще функцию перевода с буквы в "Hex", было бы вообще хорошо (А то моя почему-то не сработала). Большое спасибо. | ||
|
Номер ответа: 3 Автор ответа: popzowВопросов: 6 Ответов: 20 |
Профиль | | #3 | Добавлено: 20.04.07 17:20 |
|
А то я вот эту функцию использовал, а она на русские буквы не подходит.
Dim Decnum As String
Dim NextHexDigit As Double Dim HexNum As String  ecnum = CStr(Asc("ц" )
HexNum = "" While CDbl(Decnum) <> 0 NextHexDigit = CDbl(Decnum) - (Int(CDbl(Decnum) / 16) * 16) If NextHexDigit < 10 Then HexNum = Chr(Asc(CStr(NextHexDigit))) & HexNum Else HexNum = Chr(Asc("A" + NextHexDigit - 10) & HexNum
End If ecnum = CStr(Int(CDbl(Decnum) / 16))
End While If HexNum = "" Then HexNum = "0" txtZeichencode.Text = HexNum Exit Sub Кто знает помогите с правильной функцией. |
||
|
Номер ответа: 4 Автор ответа: GSerg Вопросов: 0 Ответов: 1876 
|
Профиль | | #4 | Добавлено: 20.04.07 18:20 |
|
Проведено сканирование.
Моск не обнаружен. Функция hex(). |
||
|
Номер ответа: 5 Автор ответа: popzowВопросов: 6 Ответов: 20 |
Профиль | | #5 | Добавлено: 20.04.07 20:59 |
| Я всего лишь начинающий програмист. Извеняюсь если что не так спросил. | ||
|
Номер ответа: 6 Автор ответа: ViperICQ: 249094859 Вопросов: 0 Ответов: 310 |
Профиль | | #6 | Добавлено: 21.04.07 07:31 |
|
Если девайс моск таки есть, то просьба к автору прокомментировать свой код с целью пояснить что же он таки делает и почему он это делает именно так а не иначе. А то после строки Decnum = CStr(Asc("ц" ) |
||
|
Номер ответа: 7 Автор ответа: popzowВопросов: 6 Ответов: 20 |
Профиль | | #7 | Добавлено: 21.04.07 13:40 |
| Да я только начинающий, нашел давно функцию в интернете, пользовался особо не задумываясь, главное срабатывала на латинский алфавит. А как правильно то будет. | ||
|
Номер ответа: 8 Автор ответа: GSergВопросов: 0 Ответов: 1876
|
Профиль | | #8 | Добавлено: 21.04.07 14:04 |
|
Ты и читать не умеешь при этом...
Функция hex()
|
||
|
Номер ответа: 9 Автор ответа: popzowВопросов: 6 Ответов: 20 |
Профиль | | #9 | Добавлено: 21.04.07 14:40 |
|
Hex преобразует нормальное число в hexидецимальное. и не может преобразовать букву в ето число, а в MsgBox(Hex(Asc("ц")) не выдает нужного результата.
|
||
Страница: 1 |