Отображение UTF-8 в TextBox

@Saliery · Регистрация: 27.01.2013

Студворк — интернет-сервис помощи студентам

Здравствуйте! Есть TXT-файл с диакритическими знаками в UTF-8, при попытке вывести их в TextBox, появляются знаки вопроса. Пробовал Ричтекстбокс, тоже самое.
Полночи просидел в интернете, пытался найти решение, так толком не нашёл ничего.
Подскажите, пожалуйста, как быть.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Dim barBuffer() As Byte
Dim sarLines() As String
 
Dim lngCounter As Long
 
Dim strText As String
 
Open App.Path & "\msg.txt" For Binary Access Read As #1
 
ReDim barBuffer(FileLen(App.Path & "\msg.txt") - 1)
Get #1, , barBuffer
Close #1
 
If (barBuffer(0) = &HEF And barBuffer(1) = &HBB And barBuffer(2) = &HBF) Then
strText = Mid(barBuffer, 3)
Else
strText = barBuffer
End If
 
sarLines = Split(strText, vbNewLine)
 
For lngCounter = LBound(sarLines) To UBound(sarLines)
barBuffer = sarLines(lngCounter) & vbNewLine
txtmsg.Text = barBuffer
Next lngCounter

@Genn55 · 31.05.2019, 15:30

Попробуйте применить шрифт Lucida Sans Unicode или подобный с поддержкой Unicode в свойствах Font

@Saliery · 31.05.2019, 17:13 **[ТС]**

Genn55, не сработало; пробовал Lucida Sans Unicode и @Arial Unicode MS

@Genn55 · 31.05.2019, 18:03

У меня в свое время сработало,но данные я брал из блокнота.

@Saliery · 31.05.2019, 18:04 **[ТС]**

Genn55, понятно
но у меня данные из файла

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

@Genn55 · 31.05.2019, 18:20

Нет не будет.Проблема в том,что VB делает двойное преобразование кодировки.Первая зависит от системных настроек,а вторая в свою.Гдето читал уже точно не помню.Выход предлагался: записывать из буфера в массив,тогда таких преобразований не происходит.Я не проверял, по этому ничего не скажу.

@Saliery · 31.05.2019, 19:24 **[ТС]**

Ещё есть такой вариант рабочий (проверял!):

Visual Basic
1
RichTextBox.LoadFile App.Path & "\msg.txt"

но у RichTextBox не настраивается цвет шрифта, поэтому этот метод не совсем хорош.

@The trick · 31.05.2019, 20:40

Стандартный текстбокс не держит юникод. Используй другой, есть юникодные аналоги.

Сообщение от Saliery

но у RichTextBox не настраивается цвет шрифта, поэтому этот метод не совсем хорош.

Настраивается:

Visual Basic
1
2
    RichTextBox1.SelColor = vbRed
    RichTextBox1.SelText = "Test"

@Saliery · 31.05.2019, 21:22 **[ТС]**

Сообщение от The trick

Настраивается:

это выделенный текст
а изначально-то я ведь не могу весь текст сделать каким-то цветом отличным от чёрного?

Добавлено через 4 минуты

Сообщение от The trick

есть юникодные аналоги.

спасибо, буду разбираться
без бутылки не компилируется их проект

Dragokas · 13.06.2020, 17:32

Сообщение от Saliery

спасибо, буду разбираться
без бутылки не компилируется их проект

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

Твик .reg:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
Windows Registry Editor Version 5.00
 
[HKEY_CLASSES_ROOT\VisualBasic.Project\shell\runas]
"HasLUAShield"=""
 
[HKEY_CLASSES_ROOT\VisualBasic.Project\shell\runas\command]
@="\"C:\\Program Files (x86)\\Microsoft Visual Studio\\VB98\\vb6.exe\" \"%1\""
 
[HKEY_CLASSES_ROOT\VisualBasic.ProjectGroup\shell\runas]
"HasLUAShield"=""
 
[HKEY_CLASSES_ROOT\VisualBasic.ProjectGroup\shell\runas\command]
@="\"C:\\Program Files (x86)\\Microsoft Visual Studio\\VB98\\vb6.exe\" \"%1\""

(появится "Запуск от имени админа" по ПКМ к .vbp)

+ конкретно для для CommonControls там битая ссылка на TLB,
поэтому просто смотришь какой файл:

и через Browse... выбираешь его. Он в папке OLEGuids.

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

Если по какой-то причине IDE выдает сбой при попытке регистрации TLB, можешь кинуть его в System32 (SysWow64) и заюзать мою тулзу: Как правильно зарегистрировать TLB ?

@Saliery · 19.06.2020, 23:59 **[ТС]**

Dragokas, спасибо большое!

Новые блоги и статьи Все статьи Все блоги /
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

Отображение UTF-8 в TextBox

Решение

Решение

@Genn55 413 / 250 / 118 Регистрация: 26.12.2012 Сообщений: 787
	31.05.2019, 15:30
	Попробуйте применить шрифт Lucida Sans Unicode или подобный с поддержкой Unicode в свойствах Font 1

@Saliery 9 / 9 / 4 Регистрация: 27.01.2013 Сообщений: 451
	31.05.2019, 17:13 [ТС]
	Genn55, не сработало; пробовал Lucida Sans Unicode и @Arial Unicode MS 0

@Genn55 413 / 250 / 118 Регистрация: 26.12.2012 Сообщений: 787
	31.05.2019, 18:03
	У меня в свое время сработало,но данные я брал из блокнота. 1

@Saliery 9 / 9 / 4 Регистрация: 27.01.2013 Сообщений: 451
	31.05.2019, 18:04 [ТС]
	Genn55, понятно но у меня данные из файла может быть, другой какой-нибудь контрол будет поддерживать это? свет клином не сошёлся на текст боксе 0

@Genn55 413 / 250 / 118 Регистрация: 26.12.2012 Сообщений: 787
	31.05.2019, 18:20
	Нет не будет.Проблема в том,что VB делает двойное преобразование кодировки.Первая зависит от системных настроек,а вторая в свою.Гдето читал уже точно не помню.Выход предлагался: записывать из буфера в массив,тогда таких преобразований не происходит.Я не проверял, по этому ничего не скажу. 1

@Saliery 9 / 9 / 4 Регистрация: 27.01.2013 Сообщений: 451
	19.06.2020, 23:59 [ТС]
	Dragokas, спасибо большое! 0