[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

返回列表

逐梦网｜逐梦论坛 |联系我们 |Archiver|WAP|

GMT+8, 2024-4-29 13:31, Processed in 0.019527 second(s), 6 queries, Gzip enabled.

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

[收藏此主题] [关注此主题的新回复]

[通过 QQ、MSN 分享给朋友]