用JS和VBS实现全角半角相互转换

用JS和VBS实现全角半角相互转换
<script>
/*
**************************************************************************************
* 函数名：changejiaostr(str,flag)
* 参数说明：
* str:要转换的字符串
* flag:标记，为0时半角和全角互换，为1时字符串中的全角转半角，为2时字符串中的半角转全角。
* 返回值类型：字符串
* code by qifei
**************************************************************************************
*/

function changejiaostr(str,flag) {
var i;
var result='';
var changeflag=parseInt(flag);
if (isNaN(changeflag)==true || changeflag<0 || changeflag>2)
{
alert('转换选项设置错误');
return false;
}
if (str.length<=0)
{
alert('字符串参数错误');
return false;
}
for(i=0;i<str.length;i++)
{
str1=str.charCodeAt(i);
switch (changeflag)
{
case 0 :
if (str1<=125)
result+=String.fromCharCode(str.charCodeAt(i)+65248);
else
result+=String.fromCharCode(str.charCodeAt(i)-65248);
break;
case 1 :
if (str1>65248)
result+=String.fromCharCode(str.charCodeAt(i)-65248);
else
result+=str.charAt(i);
break;
case 2 :
if (str1<65248)
result+=String.fromCharCode(str.charCodeAt(i)+65248);
else
result+=str.charAt(i);
break;
}
}
return result;
}
</script>
<br>
<br>
js示例
<br>
<input type=text value="123abc１２３ａｂｃ" id=jstxt>
<input type=button value="转换" onclick="javascript:jstxt.value=changejiaostr(jstxt.value,0)">
<br>
<script language="vbscript">
'**************************************************************************************
'* 函数名：changejiaostr(str,flag)
'* str:要转换的字符串
'* flag:标记，为0时半角和全角互换，为1时字符串中的全角转半角，为2时字符串中的半角转全角。
'* 返回值类型：字符串
'* code by qifei
'**************************************************************************************

function changejiaostr(str,flag)
dim i
if VarType(flag)<>2 or flag<0 or flag>2 then
msgbox "转换选项设置错误"
exit function
end if
if len(str)<=0 then
msgbox "字符串参数错误"
exit function
end if
for i=1 to len(str)
str1=asc(mid(str,i,1))
select case flag
case 0
if str1>0 and str1<=125 then
changestr=changestr&chr(asc(mid(str,i,1))-23680)
else
changestr=changestr&chr(asc(mid(str,i,1))+23680)
end if
case 1
if str1<0 or str1>125 then
changestr=changestr&chr(asc(mid(str,i,1))+23680)
else
changestr=changestr&mid(str,i,1)
end if
case 2
if str1>0 and str1<=125 then
changestr=changestr&chr(asc(mid(str,i,1))-23680)
else
changestr=changestr&mid(str,i,1)
end if
end select
next
changejiaostr=changestr
end function
</script>
<br>
vbs示例
<br>
<input type=text value="123abc１２３ａｂｃ" id=vbstxt>
<input type=button value="转换" onclick="vbscript:vbstxt.value=changejiaostr(vbstxt.value,0)">