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

本文介绍了一个使用JavaScript (JS) 和Visual Basic Script (VBS) 实现的全角字符与半角字符相互转换的方法。该方法提供了一个函数changejiaostr,它接受两个参数:待转换的字符串和一个标记,标记用于指定转换方式。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

用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="123abc123abc" 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="123abc123abc" id=vbstxt>
<input type=button value="转换" onclick="vbscript:vbstxt.value=changejiaostr(vbstxt.value,0)">
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值