28,391
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
newhandtoo 2005-12-28
- 打赏
- 举报
'过滤非中文字符
function validatechinese(str)
dim re,str1,str2,i
set re=new regexp
re.Pattern="^[\u4e00-\u9fa5]+$"
for i=1 to len(str)
str1=mid(str,i,1)
validatechinese=re.Test(str1)
if validatechinese=true then
str2=str2&str1
end if
next
str=str2
return str
end function
function validatechinese(str)
dim re,str1,str2,i
set re=new regexp
re.Pattern="^[\u4e00-\u9fa5]+$"
for i=1 to len(str)
str1=mid(str,i,1)
validatechinese=re.Test(str1)
if validatechinese=true then
str2=str2&str1
end if
next
str=str2
return str
end function
meizz 2005-12-28
- 打赏
- 举报
<SCRIPT LANGUAGE="JavaScript">
<!--
var str = "如sf何sdf提ds取f一dsf段d字fds符f串d里ds的fds中sd文f汉字";
str = str.replace(/[^\u4e00-\u9fa5]/g, "");
alert(str);
//-->
</SCRIPT>
VBS里一样有正则表达式。
<!--
var str = "如sf何sdf提ds取f一dsf段d字fds符f串d里ds的fds中sd文f汉字";
str = str.replace(/[^\u4e00-\u9fa5]/g, "");
alert(str);
//-->
</SCRIPT>
VBS里一样有正则表达式。
