1

Тема: VBS: Функция замены диакритических знаков схожими латинскими знаками

Нашёл функцию замены, но результат работы совсем не устраивает.


Option Explicit
Function EliminarAcentos(text)
    Dim i, s1, s2
    s1 = "ÁÀÉÈÍÏÓÒÚÜáàèéíïóòúüñçâ"
    s2 = "AAEEIIOOUUaaeeiioouunca"
    If Len(text) <> 0 Then
        For i = 1 To Len(s1)
            text = Replace(text, Mid(s1,i,1), Mid(s2,i,1))
        Next
    End If
    EliminarAcentos = text
End Function

WScript.Echo EliminarAcentos("Á")

В итоге на выходе получаю двойное "AA", а нужно одно А.

2

Re: VBS: Функция замены диакритических знаков схожими латинскими знаками

Сохранил код в UTF-16, запустил, на выходе только A. В коде проблем не вижу.

3

Re: VBS: Функция замены диакритических знаков схожими латинскими знаками

Спасибо.