逐梦论坛 » 编程开发 » [原创]如何滤去英文文本中的中文

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

查看完整版本: [原创]如何滤去英文文本中的中文