| Вопрос: Шрифт | Добавлено: 23.06.09 18:03 |
Автор вопроса:  ☺♣FIO♣☺
|
| Ответы | Всего ответов: 18 |
|
Номер ответа: 16 Автор ответа:  ☺♣FIO♣☺ Вопросов: 35 Ответов: 160 |
Профиль | | #16 | Добавлено: 05.07.09 12:35 |
| я это понял, но думал есть альтернатива...... | ||
|
Номер ответа: 17 Автор ответа: катя Вопросов: 0 Ответов: 32 |
Профиль | | #17 | Добавлено: 14.07.09 10:50 |
|
# 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 |
||
|
Номер ответа: 18 Автор ответа: БогданВопросов: 0 Ответов: 14 |
Профиль | | #18 | Добавлено: 15.07.09 08:22 |
| То .нет а нужно именно на vb6 | ||