VBNet - Форум - Шрифт

Вопрос: Шрифт Добавлено: 23.06.09 18:03

Автор вопроса: ☺♣FIO♣☺

Есть текстовый редактор на vb(тр). При открытии файла с другой кодировкой или шрифтом, в тр отображаются куча прямоугольников. Как можно распознать шрифт или кодировку автомотически???
Ответить

Ответы Всего ответов: 18

Номер ответа: 1 Автор ответа: ☺♣FIO♣☺ Вопросов: 35 Ответов: 160	Профиль \| \| #1	Добавлено: 23.06.09 18:13
	нкы Ответить

Номер ответа: 2 Автор ответа: AntiOxygene (MegaDefender) Вопросов: 2 Ответов: 107	Web-сайт: safetyAV.narod.ru Профиль \| \| #2	Добавлено: 23.06.09 18:15
	Ну если ты ехе открываешь в "тр", там же исходники на вб не будут. ТХТ, РТФ, ЦФГ и т.д. Ответить

Номер ответа: 3 Автор ответа: ☺♣FIO♣☺ Вопросов: 35 Ответов: 160	Профиль \| \| #3	Добавлено: 23.06.09 18:17
	Ну если ты ехе открываешь в "тр", там же исходники на вб не будут. ТХТ, РТФ, ЦФГ и т.д. Чего?? Ответить

Номер ответа: 4 Автор ответа: ☺♣FIO♣☺ Вопросов: 35 Ответов: 160	Профиль \| \| #4	Добавлено: 23.06.09 18:18
	тр - текстовый редактор на vb Ответить

Номер ответа: 5 Автор ответа: ☺♣FIO♣☺ Вопросов: 35 Ответов: 160	Профиль \| \| #5	Добавлено: 23.06.09 18:19
	Ну я EXE и не собираюсь открывать!!! Ответить

Номер ответа: 6 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #6	Добавлено: 26.06.09 08:26
	Что такое твой тр объясни, вася! Ответить

Номер ответа: 7 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #7	Добавлено: 26.06.09 08:27
	Контрол какой?! Ответить

Номер ответа: 8 Автор ответа: AntiOxygene (MegaDefender) Вопросов: 2 Ответов: 107	Web-сайт: safetyAV.narod.ru Профиль \| \| #8	Добавлено: 26.06.09 12:10
	Текстовый редактор. Не понятно, зачем писать ТР, если есть блокнот, в образов. целях? Ответить

Номер ответа: 9 Автор ответа: ☺♣FIO♣☺ Вопросов: 35 Ответов: 160	Профиль \| \| #9	Добавлено: 26.06.09 12:32
	Это сделанный мной текстовый редактор с шифратором. Ответить

Номер ответа: 10 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| \| #10	Добавлено: 27.06.09 14:50
	Кодировки обычно распознаются частотным анализом. Ответить

Номер ответа: 11 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #11	Добавлено: 27.06.09 15:11
	Дооо. Фурьем))) Ответить

Номер ответа: 12 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| \| #12	Добавлено: 27.06.09 17:38
	Фурье незачем. Просто среднеквадратичное отклонение. Ответить

Номер ответа: 13 Автор ответа: $@ny@PG ICQ: 468469477 Вопросов: 71 Ответов: 196	Профиль \| \| #13	Добавлено: 27.06.09 21:22
	Как все запутанно %-) Ответить

Номер ответа: 14 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #14	Добавлено: 28.06.09 08:36
	А ты как хотел? Ответить

Номер ответа: 15 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602	Профиль \| \| #15	Добавлено: 28.06.09 11:48
	Public Class Convertions Private Shared Encodings As System.Text.Encoding() Shared Sub New() Encodings = New System.Text.Encoding() { _ System.Text.Encoding.GetEncoding(1251), _ System.Text.Encoding.GetEncoding("koi8-R"), _ System.Text.Encoding.UTF8, _ System.Text.Encoding.Unicode _ } End Sub Public Shared Function GetRussianText(ByVal sourceData As Byte()) As String Return GetRussianText(sourceData, Nothing) End Function Public Shared Function GetRussianText(ByVal sourceData As Byte(), ByRef Encoding As Text.Encoding) As String Dim Counts = New Integer(Encodings.Length - 1) {} Dim Texts = New String(Encodings.Length - 1) {} For i = 0 To Encodings.Length - 1 Dim Text = Encodings(i).GetString(sourceData) Texts(i) = Text Dim Count = 0 For Each C In Text If C = "а"c OrElse C = "А"c OrElse C = "о" OrElse C = "О" Then Count += 1 End If Next Counts(i) = Count Next Dim Max = Counts.Max Dim MaxPos = Array.IndexOf(Counts, Max) Encoding = Encodings(MaxPos) Return Texts(MaxPos) End Function End Class Ответить

Страница: 1 | 2 |