Перевод HEX в TXT - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Перевод HEX в TXT (Макросы/Sub)

Перевод HEX в TXT

cOBA43

Дата: Пятница, 03.07.2015, 09:36 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Столкнулся с проблемой перевода HEX в TXT (например код C4EDE5EFF0EEEFE5F2F0EEE2F1EA в текст Днепропетровск) в экселевском файле. Поиски в интернете не дали результатов, а так как я не программист то прошу у вас помощи.

Ответить

KSV

Дата: Пятница, 03.07.2015, 10:12 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 770

Репутация: 255 ±

Замечаний: 0% ±

Excel 2013

как вариант:
[vba]

Код

Sub Test()
     Dim i&, a$, b$
     a = "C4EDE5EFF0EEEFE5F2F0EEE2F1EA"
     For i = 1 To Len(a) Step 2
         b = b & Chr$(Val("&H" & Mid$(a, i, 2)))
     Next
End Sub

[/vba]

KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333

Ответить

SLAVICK

Дата: Пятница, 03.07.2015, 10:37 | Сообщение № 3

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Вот

[vba]

Код

Function HexToText(HexText As String)
'http://bytes.com/topic/access/answers/754639-hex-text-ascii-conversion
Dim varHex As Variant, intCounter As Integer
Dim T, strString As String

varHex = Split(HexText, "0d0a")

For intCounter = LBound(varHex) To UBound(varHex)
    For T = 1 To Len(varHex(intCounter)) Step 2
      strString = strString & Chr$(Val("&H" & Mid$(varHex(intCounter), T, 2)))
    Next
      varHex(intCounter) = strString
      strString = ""
Next
HexToText = Join(varHex, Chr(10))
End Function

[/vba]
Взял тут

KSV, опередил.

К сообщению приложен файл: 5007813.xlsm (16.6 Kb)

Иногда все проще чем кажется с первого взгляда.

Сообщение отредактировал SLAVICK - Пятница, 03.07.2015, 10:38

Ответить

cOBA43

Дата: Пятница, 03.07.2015, 11:08 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Спасибо - функция это то что нужно!!!!
hands

Ответить

cOBA43

Дата: Пятница, 08.03.2019, 12:05 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Цитата SLAVICK, 03.07.2015 в 10:37, в сообщении № 3 ()

Function HexToText(HexText As String)
'http://bytes.com/topic/access/answers/754639-hex-text-ascii-conversion
Dim varHex As Variant, intCounter As Integer
Dim T, strString As String

varHex = Split(HexText, "0d0a")

For intCounter = LBound(varHex) To UBound(varHex)
    For T = 1 To Len(varHex(intCounter)) Step 2
    strString = strString & Chr$(Val("&H" & Mid$(varHex(intCounter), T, 2)))
    Next
    varHex(intCounter) = strString
    strString = ""
Next
HexToText = Join(varHex, Chr(10))
End Function

Подскажите почему она не работает в Access от office 365

Ответить

Перевод HEX в TXT (Макросы/Sub)

Страница 1 из 1
1