逐梦论坛 - Powered by Discuz! Board

标题: [VB] [原创]如何滤去英文文本中的中文 [打印本页]

作者: 398829134 时间: 2007-12-1 15:55 标题: [原创]如何滤去英文文本中的中文

private sub command1_click()
dim s$, i%, t$

for i = 1 to len(text1.text)
      t = mid(text1.text, i, 1)
      if asc(t) > 0 then '在vb中，中文的ascii值总是负值
         s = s + t
      end if
next

msgbox s
end sub

欢迎光临逐梦论坛 (http://temp2023.zhumeng.org/)