Страница: 1 |
Вопрос: Перевод строки из AT команды модемав читаемы текст | Добавлено: 17.11.10 14:57 |
Автор вопроса: ![]() |
Послал через GSM модем команду проверки баланса,получил вот что:
+CUSD: 0,"00360033002E003200370070002E0020002A003500320035002A0035002300200417043D0430043A043E043C044C044204350441044C002004320020043104350437043B0438043C04380442043D043E043C00200053004D0053002D04470430044204350021002000330440002F04340435043D044C",72 Как преобразовать в читаемый русский? |
Ответы | Всего ответов: 2 |
Номер ответа: 1 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() Вопросов: 9 Ответов: 45 |
Web-сайт: Профиль | Цитата | #1 | Добавлено: 17.11.10 15:56 |
Ответ найден
Private Function USSDConv(lpStr As String) As String ![]() 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 Автор ответа: ![]() ![]() ![]() ![]() Вопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | Цитата | #2 | Добавлено: 17.11.10 22:46 |
Интересно, такой цикл с mid рабтает быстрее, чем добавлять в цикле по символу к строке? |
Страница: 1 |
|