VBA(excel). Перекодировка строк символов UNICODE

Гость19 лет в сервисе
Данные заказчика будут вам доступны после подачи заявки
29.12.2005

С Новым Годом!

пример : задан текст:

123-йгшщ89

и две строки символов - правила перекодировки:

-йцукенгшщзх89

-qwertyuiop[vm

должно получится

123-quiovm

Вызов перекодировочной функции или программы

должен быть возможен из VBA(EXCEL)

например

textNew=TRANSLATE(text,str1,str2)

но сам перекодировщик должен быть не на VBA

Техзадание наиболее точно отражено в применяемой

сейчас функции VBA(excel) см ниже

Должно работать так же но примерно на порядок быстрее чем

нижеприведенный код VBA

Предпочтительно с использованием DLL

Оплата по готовому результату после тестирования

==============

Function mTR(p1 As String, p2 As String, Optional p3 As String = "") As String

Dim x As Single, x2 As Single, x3 As Single, lenp1 As Single, s3 As String, ss As String

lenp1 = Len(p1): mTR = p1

If p2 = "" Then Exit Function

If lenp1 = 0 Then Exit Function

If lenp1 = 1 Then If InStr(p2, p1) = 0 Then Exit Function

x3 = Len(p3): x2 = Len(p2)

If x2 = 1 Then If x3

For x = 1 To lenp1

If InStr(p2, Mid(p1, x, 1)) > 0 Then

x2 = InStr(p2, Mid(p1, x, 1))

If x2

If Mid(p2, x2, 1)

End If

Next

If ss = "1" Then mTR = Replace(mTR, ChrW(5555), "")

End Function

VBA