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 |