以A，E，I，

Question

替换带有变音符号Á，É，Í，...的字母的脚本您能告诉我在此脚本中需要更改以获取此输出吗？

“的输出为阿赛兰迪亚”

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阿赛兰迪亚

Answer 1

如果你是幸运的（可比代码页/编码脚本和控制台），加入

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

会给你：

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

更新WRT评论：

主要代码：

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))