[正则]谁能给个把全角数字１２３４５转为半角数字12345的函数表达式？

HonestQiao

原帖由 hightman 于 2005-11-29 22:16 发表
耍酷了，我也发一个，一句话，比较全，也能替换大部分全角符号为半角符号，不支持汉字数字替换．

但在效率上没有过多的考虑，有兴趣的可以比较试试，代码如下：

[code]
$str = "０１２３ＡＢＣ＼＂， ...

这个还要看是NFSA还是DFSA，NFSA一般化费时间多一些。

HonestQiao

提供一个js或者vs版本的，绝对好用，把下面的代码直接拷贝到test.html，查看就可以看到绝好的实际效果。

1. <script>
   
2. /*
   
3. ****************************
   
4. * 　　　 半角<=>全角 　　　*
   
5. * [NB联盟] *
   
6. * Writer YuPing *
   
7. ****************************
   
8. *　参数说明:
   
9. * str:要转换的字符串
   
10. * flag:标记，为０时半转全，为非０时全转半
    
11. * 返回值类型：字符串
    
12. ****************************
    
13. */
    
14. function DBC2SBC(str,flag) {
    
15. var i;
    
16. var result='';
    
17. if (str.length<=0) {alert('字符串参数出错');return false;}
    
18. for(i=0;i<str.length;i++)
    
19. { str1=str.charCodeAt(i);
    
20. if(str1<125&&!flag)
    
21. result+=String.fromCharCode(str.charCodeAt(i)+65248);
    
22. else
    
23. result+=String.fromCharCode(str.charCodeAt(i)-65248);
    
24. }
    
25. return result;
    
26. }
    
27. //示例：
    
28. alert(DBC2SBC("AＡabc",0));
    
29. document.write(DBC2SBC("abcdefg",0))
    
30. </script>
    
31. <input type=text value="abcdefg" id=txt><input type=button value="变" onclick=txt.value=DBC2SBC(txt.value)>
    
32. 
    
33. 
    
34. <script language="vbscript">
    
35. '****************************
    
36. '* 　　　 半角<=>全角 　　　*
    
37. '* [NB联盟] *
    
38. '* Writer YuPing *
    
39. '****************************
    
40. '*　参数说明:
    
41. '* str:要转换的字符串
    
42. '* flag:标记，为０时半转全，为非０时全转半
    
43. '* 返回值类型：字符串
    
44. '****************************
    
45. function DBC2SBC(str,flag)
    
46. dim i
    
47. if len(str)<=0 then
    
48. msgbox '字符串参数出错'
    
49. exit function
    
50. end if
    
51. for i=1 to len(str)
    
52. str1=asc(mid(str,i,1))
    
53. if str1>0 and str1<=125 and not flag then
    
54. dbc2sbc=dbc2sbc&chr(asc(mid(str,i,1))-23680)
    
55. else
    
56. dbc2sbc=dbc2sbc&chr(asc(mid(str,i,1))+23680)
    
57. end if
    
58. next
    
59. end function
    
60. '示例：
    
61. alert(dbc2sbc("ＡＢ",1))
    
62. </script>

复制代码