用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="转换" οnclick="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="转换" οnclick="vbscript:vbstxt.value=changejiaostr(vbstxt.value,0)">