半角<=>全角互转函数[JS版 VBS版]

【 来源：[NB联盟] 作者：小竹 更新时间：2004-05-11 | 字体：大 中 小】

<script>
/*
****************************
* 　　　 半角<=>全角 　　　*
*         [NB联盟]         * 
*     Writer  YuPing       *
****************************
*　参数说明:
*  str:要转换的字符串
*  flag:标记，为０时半转全，为非０时全转半
*  返回值类型：字符串
****************************
*/
function DBC2SBC(str,flag) {
 var i;
 var result='';
 if (str.length<=0) {alert('字符串参数出错');return false;}
  for(i=0;i<str.length;i++) 
  { str1=str.charCodeAt(i);
    if(str1<125&&!flag)
     result+=String.fromCharCode(str.charCodeAt(i)+65248);
     else
     result+=String.fromCharCode(str.charCodeAt(i)-65248);
  }
 return result;
 }
 //示例：
alert(DBC2SBC("AＡabc",0));
document.write(DBC2SBC("abcdefg",0))
</script>
<input type=text value="abcdefg" id=txt><input type=button value="变" onclick=txt.value=DBC2SBC(txt.value)>

<script language="vbscript">
'****************************
'* 　　　 半角<=>全角 　　　*
'*         [NB联盟]         * 
'*     Writer  YuPing       *
'****************************
'*　参数说明:
'*  str:要转换的字符串
'*  flag:标记，为０时半转全，为非０时全转半
'*  返回值类型：字符串
'****************************
function DBC2SBC(str,flag) 
 dim i
 if len(str)<=0 then 
     msgbox '字符串参数出错'
     exit function
 end if
    for i=1 to len(str)
    str1=asc(mid(str,i,1))
     if str1>0 and str1<=125 and not flag then 
       dbc2sbc=dbc2sbc&chr(asc(mid(str,i,1))-23680)
     else
       dbc2sbc=dbc2sbc&chr(asc(mid(str,i,1))+23680)
     end if
    next
end function
'示例：
alert(dbc2sbc("ＡＢ",1))
</script>

• 转载请注明来源：IT学习者 网址：http://www.itlearner.com/ 向您的朋友推荐此文章
• 文章关键词:  函数 
• 特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系我们，我们会尽快予以更正。

• 上一篇：中华人民共和国班级花名册
• 下一篇：网页中的最后修改日期
• 查看2004年05月的文章归档
• 关闭 | 打印 | 保存