| Вопрос: Перевод строки из AT команды модемав читаемы текст | Добавлено: 17.11.10 14:57 |
Автор вопроса:  maxis | Web-сайт: нет)
|
|
Послал через GSM модем команду проверки баланса,получил вот что:
+CUSD: 0,"00360033002E003200370070002E0020002A003500320035002A0035002300200417043D0430043A043E043C044C044204350441044C002004320020043104350437043B0438043C04380442043D043E043C00200053004D0053002D04470430044204350021002000330440002F04340435043D044C",72 Как преобразовать в читаемый русский? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  maxis Вопросов: 9 Ответов: 45 |
Web-сайт: Профиль | | #1 | Добавлено: 17.11.10 15:56 |
|
Ответ найден
Private Function USSDConv(lpStr As String) As String  im i As Long
USSDConv = String$(Len(lpStr) \ 4, 0) For i = 0 To Len(USSDConv) - 1 Mid$(USSDConv, i + 1, 1) = ChrW$(CLng("&H" & Mid$(lpStr, i * 4 + 1, 4))) Next i End Function /close |
||
|
Номер ответа: 2 Автор ответа: Winand Вопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #2 | Добавлено: 17.11.10 22:46 |
| Интересно, такой цикл с mid рабтает быстрее, чем добавлять в цикле по символу к строке? | ||
Страница: 1 |