200分,哪位高手帮忙把下面这段js代码转成vbs代码!急,在线等....

[phyllis2001]

function charPYStr(){
return '啊阿埃挨哎唉哀皑癌蔼矮艾碍爱隘鞍氨安俺按暗岸胺案肮昂盎凹敖熬翱袄傲奥懊澳芭捌扒叭吧钟表泻';
}

function ftPYStr(){
return '啊阿埃挨哎唉哀皚癌藹矮艾礙愛隘鞍氨安俺按暗岸胺案肮昂盎凹敖熬翺襖傲奧懊澳芭捌扒叭吧鐘錶潟';
}

function traditionalized(cc){
var str='';
for(var i=0;i<cc.length;i++){
if(charPYStr().indexOf(cc.charAt(i))!=-1)
str+=ftPYStr().charAt(charPYStr().indexOf(cc.charAt(i)));
else
str+=cc.charAt(i);
}
return str;
}

function simplized(cc){
var str='';
for(var i=0;i<cc.length;i++){
if(ftPYStr().indexOf(cc.charAt(i))!=-1)
str+=charPYStr().charAt(ftPYStr().indexOf(cc.charAt(i)));
else
str+=cc.charAt(i);
}
return str;
}

[rayFairy]

为什么要转？

[mymyal123]

只是做字符串处理，需要开200分

[ksn520]

function charPYStr()
return '啊阿埃挨哎唉哀皑癌蔼矮艾碍爱隘鞍氨安俺按暗岸胺案肮昂盎凹敖熬翱袄傲奥懊澳芭捌扒叭吧钟表泻'
end function


function ftPYStr()
return '啊阿埃挨哎唉哀皚癌藹矮艾礙愛隘鞍氨安俺按暗岸胺案肮昂盎凹敖熬翺襖傲奧懊澳芭捌扒叭吧鐘錶潟';
end function

function traditionalized(cc)
dim str
for i=0 to len(cc)-1
-------------------------------------------------
累，charat忘记是什么功能了
呵呵，不会了，楼下的继续

[phyllis2001]

to:mymyal123(风之森) ( ) 信

高手,既然那么简单,那忙一下啊!!`~~~

[phyllis2001]

哦,打错了,是帮一下,不是忙一下:(

[shanxing]

up

[白夜花寒]

<script language="vbscript">
function charPYStr()
charPYStr="啊阿埃挨哎唉哀皑癌蔼矮艾碍爱隘鞍氨安俺按暗岸胺案肮昂盎凹敖熬翱袄傲奥懊澳芭捌扒叭吧钟表泻"
end function

function ftPYStr()
ftPYStr="啊阿埃挨哎唉哀皚癌藹矮艾礙愛隘鞍氨安俺按暗岸胺案肮昂盎凹敖熬翺襖傲奧懊澳芭捌扒叭吧鐘錶潟"
end function

function traditionalized(cc)
dim str : str=""
for i=1 to len(cc)
if instr(charPYStr,mid(cc,i,1))<>0 then
str=str & mid(ftPYStr,instr(charPYStr,mid(cc,i,1)),1)
else
str=str & mid(cc,i,1)
end if
next
traditionalized=str
end function

a=traditionalized("liu钟表按暗岸")
alert(a)
</script>

[白夜花寒]

function simplized(cc)
dim str : str=""
for i=1 to len(cc)
if instr(ftPYStr,mid(cc,i,1))<>0 then
str=str & mid(charPYStr,instr(ftPYStr,mid(cc,i,1)),1)
else
str=str & mid(cc,i,1)
end if
next
simplized=str
end function