返回列表 发帖

[VB] [原创]如何滤去英文文本中的中文

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

返回列表

Powered by Discuz! 7.2   论坛QQ群:逐梦论坛群

© 2001-2021 Comsenz Inc. 鲁公网安备 37120302000001号