| Вопрос: Алгоритм разбора koi8-r | Добавлено: 01.10.06 15:50 |
Автор вопроса:  Neco | Web-сайт: neco.pisem.net | ICQ: 247906854 |
|
Не подскажете алгоритм для рабора этого?
Subject: =?koi8-r?B?8MzB1MXW?= |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  Neco ICQ: 247906854 Вопросов: 133 Ответов: 882 |
Web-сайт: Профиль | | #1 | Добавлено: 01.10.06 22:28 |
|
Закрываю вопрос
Private Function ParseSubject(ByVal str_old As String) As String
Try Dim rez As String = Trim(str_old) If rez.StartsWith("=?"  And rez.EndsWith("?=" Then
Dim arr() As String = Split(str_old, "?"
If arr.Length = 5 Then ' и никак иначе Dim buf() As Byte Select Case LCase(arr(1)) Case "koi8-r" buf = Convert.FromBase64String(arr(3)) buf = Encoding.Convert( _ Encoding.GetEncoding("koi8-r" , _
Encoding.Default, _ buf) rez = Encoding.Default.GetString(buf) End Select End If End If Return rez Catch ex As Exception Throw ex End Try End Function |
||
|
Номер ответа: 2 Автор ответа: CyRax   Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #2 | Добавлено: 02.10.06 03:12 |
| Смахивает на .NET | ||
|
Номер ответа: 3 Автор ответа: NecoICQ: 247906854 Вопросов: 133 Ответов: 882 |
Web-сайт: Профиль | | #3 | Добавлено: 02.10.06 11:10 |
|
он самый, но меня бы устроил даже ответ "сначала из base64 потом из koi8-r" (я методом тыка это обнаружил) ну и любая реализация на всём кроме асма.
Поэтому не суть. |
||
Страница: 1 |