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

原创 2007年10月02日 16:11:00

<script>
/*
****************************
*     半角<=>全角    *
****************************
* 参数说明:
* str:要转换的字符串
* flag:标记,为0时半转全,为非0时全转半
* 返回值类型:字符串
****************************
*/
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("AAabc",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:标记,为0时半转全,为非0时全转半
'* 返回值类型:字符串
'****************************
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("AB",1))
</script> 

PB中全角与半角互转函数

  • 2011年12月27日 21:29
  • 1KB
  • 下载

全角半角互转 c#

  • 2013年06月08日 10:57
  • 41KB
  • 下载

C++全角与半角互转

1.全角:指一个字符占用两个标准字符位置。汉字字符和规定了全角的英文字符及国标GB2312-80中的图形符号和特殊字符都是全角字符。一般的系统命令是不用全角字符的,只是在作文字处理时才会使用全角字符。...

字符串半角全角互转详解

全角和半角之间的互相转换。  ASCII的一些知识。 \n 回车换行   \t 横向跳到下一制表位置   \v 竖向跳格   \b 退格   \r 回车   \f 走纸换页   \\ ...

半角、全角 字符串互转\提取中文或数字

/*   半角字符串转全角 */ if   exists   (select   *   from   dbo.sysobjects   where   id   =   object_i...

js 实现 全角转半角

  • 2010年03月30日 14:45
  • 1007B
  • 下载

js判断数字,如果出现全角数字,将其转换为半角

//JS把全角转为半角的函数 function CtoH(str) { var result=""; for (var i = 0; i < str.length; i++){ if (str...

全角转半角

  • 2012年01月30日 13:22
  • 16KB
  • 下载

【叶子函数分享四十四】全角半角转换函数

【叶子函数分享四十四】全角半角转换函数
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:半角全角互转函数[JS版 VBS版]
举报原因:
原因补充:

(最多只允许输入30个字)