vbscript - 将字母替换为变音符号 Á、É、Í、... 的脚本由 A、E、I、

Question

您能告诉我需要对此脚本进行哪些更改才能获得此输出吗？

“输出是 Acailandia”

Function EliminarAcentos(texto)

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

EliminarAcentos = texto

End Function

c:> cscript script1 Açailândia

Answer 1

如果你幸运的话(脚本和控制台的可比代码页/编码)，添加

1. â 到 s1 和 a 到 s2
2. “输出为”到命令行

会给你:

cscript 36728122.vbs "The output is Açailândia"
The output is Acailandia

更新评论:

主要代码:

WScript.Echo EliminarAcentos(WScript.Arguments(0))

完整代码:

Option Explicit

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

WScript.Echo EliminarAcentos(WScript.Arguments(0))