Коды символов

[Алексей.Ф.]

Здравствуйте, уважаемые участники форума.
У меня такой вопрос.
Имеется текст, на иностранном языке (греческом), набранный определённым шрифтом.
Чтобы этот текст правильно отображался в некотором приложении, необходимо поменять шрифт. Но, в греческом языке, если просто выделить текст, допустим, в Worde, и сменить шрифт, часть букв не отображаются. Я сделал такую простенькую программку, которая определяет код символа в разных шрифтах и при необходимости, если эти коды не совпадают, меняет код символа и таким образом, текст любым шрифтом отображается правильно. Всё хорошо, пока используются не Юникодные шрифты. А вот если взять Юникодный,то функция, которая возвращает код символа: Asc(String) или AscW(String), для любого символа выдаёт значение 63! Получается, что узнать код таких символов средствами VB невозможно:cry:. Кто знает как тут можно выкрутиться? Помогите, очень надо!!!

[Andrey Fedorov]

Смотреть тебе надо функцию StrConv...

[tyomitch]

63 -- это код вопросительного знака. Т.е. символа, который подставляется при преобразовании из Юникода в ANSI вместо непереводимых символов.

[Алексей.Ф.]

Смотреть тебе надо функцию StrConv...

Давно уже смотрел. Но, ничего она не конвертирует.

[Алексей.Ф.]

63 -- это код вопросительного знака. Т.е. символа, который подставляется при преобразовании из Юникода в ANSI вместо непереводимых символов.

Так как всё-таки, увидеть код юникодных символов?

[Andrey Fedorov]

Смотреть тебе надо функцию StrConv...

Давно уже смотрел. Но, ничего она не конвертирует.

Дык по твоему, в таком случае нафига она - для красоты?

Изначально у тебя символы в чем? В текстовом файле али как?
Куда их выводить хочешь - в TextBox?

[alibek]

Так как всё-таки, увидеть код юникодных символов?

Если ты не понял, переведу ответ tyomitch-а. В этот момент это УЖЕ не unicode-символы, а знак вопроса.

[Andrey Fedorov]

Так как всё-таки, увидеть код юникодных символов?

Если ты не понял, переведу ответ tyomitch-а. В этот момент это УЖЕ не unicode-символы, а знак вопроса.

Да я понял.

На его месте я бы дал кусочек кода с примером откуда берутся данные и куда их надо девать - так чтобы было ясно не только телепатам, на каком месте у него гробится unicode... А так - телепатируем...

[alibek]

А я и не тебе это говорил

[Алексей.Ф.]

Дык по твоему, в таком случае нафига она - для красоты?

Изначально у тебя символы в чем? В текстовом файле али как?
Куда их выводить хочешь - в TextBox?

Текст в текстовом файле или в текстбоксе или в РичТекстБоксе.
Допустим текст на греческом языке, набранный юникодным шрифтом.
Кладём строчку из файла или текстбокса или рич текстбокса в переменную:

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


Dim mytext As String
mytext = RichTextBox1.Text
RichTextBox2.Text = StrConv(mytext, vbFromUnicode)


и получаются какие-то крякозябры. Моожет я что не так делаю?

[Алексей.Ф.]

Так как всё-таки, увидеть код юникодных символов?

Если ты не понял, переведу ответ tyomitch-а. В этот момент это УЖЕ не unicode-символы, а знак вопроса.

То, что это уже не символы, а знаки вопроса, и так понятно.
Не понятно, как увидеть код юникодных символов (любых).

[Andrey Fedorov]

Не понятно, как увидеть код юникодных символов (любых).

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

Dim m() As Byte, s As String

s = "Текстик"
m = s


Сможешь посмотреть содержимое массива?

[Andrey Fedorov]

Моожет я что не так делаю?

См ниже что ты делаешь:

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

Public Sub Main()
    Dim s As String, m() As Byte, i As Long
    s = "Проверочка"
   
    m = s
    Debug.Print vbCrLf & "=========="
    For i = 0 To UBound(m) Step 2
        Debug.Print Mid$(s, i \ 2 + 1, 1), m(i + 1), m(i)
    Next i
   
    m = StrConv(s, vbFromUnicode)
   
    Debug.Print vbCrLf & "----------"
    For i = 0 To UBound(m)
        Debug.Print Mid$(s, i + 1, 1), m(i), Asc(Mid$(s, i + 1, 1))
    Next i
End Sub

[Алексей.Ф.]

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

Dim m() As Byte, s As String

s = "Текстик"
m = s


Сможешь посмотреть содержимое массива?

См ниже что ты делаешь:

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

Public Sub Main()
    Dim s As String, m() As Byte, i As Long
    s = "Проверочка"
   
    m = s
    Debug.Print vbCrLf & "=========="
    For i = 0 To UBound(m) Step 2
        Debug.Print Mid$(s, i \ 2 + 1, 1), m(i + 1), m(i)
    Next i
   
    m = StrConv(s, vbFromUnicode)
   
    Debug.Print vbCrLf & "----------"
    For i = 0 To UBound(m)
        Debug.Print Mid$(s, i + 1, 1), m(i), Asc(Mid$(s, i + 1, 1))
    Next i
End Sub

Если не трудно, можешь поподробней?
Я, честно говоря, в слабовато волоку.

[Andrey Fedorov]

Если не трудно, можешь поподробней?
Я, честно говоря, в слабовато волоку.

Ну куда уж подробней - тут аж кусок кода показывающий что происходит. Ну может кто другой еще объяснить сможет - не знаю...

[Алексей.Ф.]

Ну куда уж подробней - тут аж кусок кода показывающий что происходит. Ну может кто другой еще объяснить сможет - не знаю...

Ну, хотя бы , прокомментируй, то, что ты привёл. Не все ж кандидаты VB наук. А то, зачем мне этот кусок кода, если я всё равно не разберусь, как его использовать.
Пожалста.

[Andrey Fedorov]

А ты сам разберись - это же самый примитив, азы.
Ну не жевать же все до кашицы...

[Konst_One]

автору: почитай это http://vbstreets.ru/VB/Articles/66364.aspx

[Алексей.Ф.]

А ты сам разберись - это же самый примитив, азы.
Ну не жевать же все до кашицы...

Когда я разобрался, понял, что делал тоже самое, только проще.
Но, это не решает проблемы. Пока используются русские или латинские символы, всё отлично. Я это и писал в первом сообщении темы. Но, когда начинаю использовать любой другой шрифт (греческий и т.д.), то он вместо кода символа, выдаёт код вопросительного знака!

[Konst_One]

Dim mytext As String
mytext = RichTextBox1.Text

вот тут уже все и преобразуется

PS
RichTextBox1.TextRTF - вернет тебе твои коды символов , но парсить самому придется

[Andrey Fedorov]

Я это и писал в первом сообщении темы. Но, когда начинаю использовать любой другой шрифт (греческий и т.д.), то он вместо кода символа, выдаёт код вопросительного знака!

Ну и какой CharSet у фонта у тебя выставлен при этом?

[Алексей.Ф.]

автору: почитай это http://vbstreets.ru/VB/Articles/66364.aspx

Как я понял из этой статьи, решить мой вопрос с помощью VB или невозможно или очень сложно:

...
Поддержка Юникода в VB6 как будто бы есть: хранение и обработка юникодных строк допускается безо всяких ограничений.

Хотя основа VB6 – технология COM/ActiveX – также позволяет передавать в свойствах и методах классов юникодные строки без ограничений, ни один из контролов в стандартной поставке VB6 этой возможностью не пользуется. Чтобы вводить и выводить юникодные строки, нужно либо заморачиваться с API, либо пользоваться контролами третьих фирм (платными и/или бажными)...

[Алексей.Ф.]

Dim mytext As String
mytext = RichTextBox1.Text

вот тут уже все и преобразуется

Попробуй.

[Andrey Fedorov]

Как я понял из этой статьи, решить мой вопрос с помощью VB или невозможно или очень сложно

Не читая этой статьи (совершенно не нужной для данного вопроса) скажу - что решить можно. Тебе нужен просто вывод? В TextBox сойдет?

Кусочек "греческого" файла выложи...

[Andrey Fedorov]

Но, когда начинаю использовать любой другой шрифт (греческий и т.д.), то он вместо кода символа, выдаёт код вопросительного знака!

Ну не "любой другой", а шрифт другой кодовой страницы, отличный от текущей локали.

[Konst_One]

что пробовать

если ты желаешь писать юникодную программу, в которой можно вводить в неком твоем контроле текст на разных языках в одном документе, то тебе по-любому придется разбираться с юникодом. простых решений на этом пути тебя не ждет, а подводных камней будет много

PS
позволю себе еще раз выложить эту полезную ссылку, которую я уже выкладывал когда-то: http://www.cyberactivex.com/UnicodeTutorialVb.htm

[Andrey Fedorov]

если ты желаешь писать юникодную программу, в которой можно вводить в неком твоем контроле текст на разных языках в одном документе, то тебе по-любому придется разбираться с юникодом. простых решений на этом пути тебя не ждет, а подводных камней будет много

Судя по его первому письму требуется лишь отображение, а это достаточно просто. Правда тут пускай сам уточняет что конкретно ему нужно - что на входе и что должно быть на выходе...

[Konst_One]

согласен, вывод сделать проще, чем ввод, но автор похоже так и не может нам огаласить свою задачу

[Алексей.Ф.]

Попробую объяснить ещё раз.
Имеется текст достаточно большого объёма, набранный не кириллицей и не латиницей (в данном конкретном случае, на греческом, но это не важно, потому что есть и другие тексты, на других языках).
Мне необходимо открыть этот текст с помощью одной программы, но, когда открываю этот текст, часть символов отображается неправильно. Тексты же набранные другим шрифтом (в данном случае шрифт Symbol) отображаются правильно. Мне необходимо поменять шрифт в тексте. Если просто взять, к примеру в Worde, и сменить шрифт, то, опять же, часть символов не отображается. Вручную набирать заново - на каждый текст будет уходить по 3-4 недели.
Для некоторых фонтов я делал так: с помощью функции Asc узнавал код символов у обоих шрифтов и программа подменяла код символа одного шрифта на на другой:

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

Dim ch As String, pos1 As Long, qq As String, v1 As String, w1 As String
pos = 1
pos1 = 1
rt = RichTextBox1.Text
For pos = 1 To Len(rt)
rb = Mid(rt, pos, 1)
v = Asc(rb)
If v = 121 Or v = 118 Or v = 113 Then
If v = 121 Then w = 113
If v = 118 Then w = 86
If v = 113 Then w = 121
Else
w = v
End If

For pos1 = 1 To Len(rct)
rct1 = Mid(rct, pos1, 1)
v1 = v1 + rct1
ch = ChrW(Val(v1))
Next pos1
RichTextBox2.Text = RichTextBox2.Text + ch

Но, для многих фонтов, ка я уже писал, такая фишка не проходит!
А нужно мне всё это для того, чтобы можно было проанализировать любой текст, на любом языке на предмет частоты встречаемости слов в данном тексте и сортировки слов по частоте встречаемости в тексте.
Есть такая программка, но, она как я сказал, понимает не все шрифты. Вот такая беда. Я и подумал, что сделать программу, которая меняет шрифты, проще, чем ту, которая анализирует текст по частоте встречаемости слов. Оказалось не проще.

[tyomitch]

Объясняем ещё раз.
Если приложить нам тестовый пример, и не полагаться на нашу телепатию, то дело сразу же пойдёт гораздо быстрее.