半角全角互转函数[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> 

VBS中StrConv 函数

StrConv 函数返回按指定类型转换的 Variant (String)。语法StrConv(string, conversion, LCID)StrConv 函数的语法有下面的命名参数:部分说明s...
  • tianyi_lee
  • tianyi_lee
  • 2008年11月11日 23:05
  • 2640

VB常用字符串函数

1. ASC(X),Chr(X):转换字符字符码   [格式]:   P=Asc(X) 返回字符串X的第一个字符的字符码   P=Chr(X) 返回字符码等于X的字符   [范例]:   (1)P=C...
  • wjb9921
  • wjb9921
  • 2007年09月21日 12:03
  • 3190

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

用JS和VBS实现全角半角相互转换/**********************************************************************************...
  • flynetcn
  • flynetcn
  • 2007年07月06日 16:26
  • 1134

用JS把全角转换为半角

 一、用JS把全角转换成半角(不能转换标点符号)onkeyup="javascript:var t = ; with(this.value) { for (var i = 0; i />二、用JS把全...
  • flynetcn
  • flynetcn
  • 2007年07月02日 17:28
  • 3241

各种版本的matlab下载地址(另有Visual C++的下载地址)

http://hi.baidu.com/northhujia/blog/item/2bd1e51f77a152f5e0fe0bac.html/cmtid/d21d5a4a50b0462209f7ef3...
  • tianjsg
  • tianjsg
  • 2009年06月13日 23:33
  • 525

VB常用字符串函数

1. ASC(X),Chr(X):转换字符字符码   [格式]:   P=Asc(X) 返回字符串X的第一个字符的字符码   P=Chr(X) 返回字符码等于X的字符   [范例]:   (1)P=C...
  • wjb9921
  • wjb9921
  • 2007年09月21日 12:03
  • 3190

JavaScript数字全角半角转换

///全角空格为12288,半角空格为32 ///其他字符半角(33-126)与全角(65281-65374)的对应关系是:均相差65248 //半角转换为全角函数 function ToDBC...
  • long511703
  • long511703
  • 2015年04月16日 10:56
  • 1407

js实现全角半角检测的方法

//全角半角校验 function issbccase(strTmp) { for (var i=0; i 128){ return true; break; } ...
  • fifteen718
  • fifteen718
  • 2017年07月04日 19:37
  • 768

JS/JQ截取字符串长度的函数处理不同半角全角英文字符功能

// str 截取长度为 len function MySubStr(str,len){ var len2 = len; var str2 = ""; var ch = '';...
  • iewter7774
  • iewter7774
  • 2015年05月19日 21:46
  • 980

JS实现全半角转换和去空格

最近在写开题报告,发现PDF中的文字复制出来会各种凌乱:标点全半角不定、各种空格莫名其妙的多。太影响复制粘贴了。 用js写了个解决问题的办法,基本就是用正则表达式替换。为了能方便的加入新标点转换,做...
  • pouloghost
  • pouloghost
  • 2013年12月07日 15:03
  • 1915
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:半角全角互转函数[JS版 VBS版]
举报原因:
原因补充:

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