如何过滤除英文字母、下划线和数字以外的字符？？？
原字符串：abc123你好！
滤除后符串：abc123
[解决办法]
本帖最后由 bcrun 于 2012-12-29 19:37:58 编辑
function getit(s as string ) as string
dim c as string
dim i as long
for i=1 to len(s)
c=mid(s,i,1)
select case c
case "A" to "Z","a" to "z","0" to "9"
getit=getit & c
end select
next
end function
