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