口袋社区-Poke The BBS - Powered by Discuz! Board

标题: vb-将一串字符中所有中文剔出来 [打印本页]

作者: 最美我中文 时间: 2008-8-2 16:13 标题: vb-将一串字符中所有中文剔出来

放置两个Text，一个Button

Private Sub Command1_Click()

Dim a As String
For i = 1 To Len(Text1.Text)
a = Mid(Text1.Text, i, 1)
If Asc(a) > 0 Then
If a = Chr(10) Then
Text2.Text = Text2.Text + vbCrLf
End If
a = ""
Text2.Text = Text2.Text + a
Else
Text2.Text = Text2.Text + a
End If
Next
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub

作者: liuyanghejerry 时间: 2008-8-2 18:07

原来是利用ASC码的顺序做文章了……

作者: 最美我中文 时间: 2008-8-2 18:48

那是。如果一个汉字一个汉字的判断那就等着死机吧

今天放出那个TMED GSC的时候因为汉化没法把字写全了从口袋吧整全中文汉化时突发奇想想出来的这个小东西

作者: 深红喷火龙 时间: 2008-9-11 13:21

汉字asc传回小于零的值吗？

[ 本帖最后由深红喷火龙于 2008-9-11 13:22 编辑 ]

作者: cedar_ren 时间: 2008-9-12 16:53

汉字好像没有ASC II.

作者: youd 时间: 2008-9-12 19:22

对，因此如果用ASCII判断汉字，只要表里没有就成

作者: 最美我中文 时间: 2008-9-12 21:58

引用:

原帖由 深红喷火龙 于 2008-9-11 13:21 发表
汉字asc传回小于零的值吗？

VB确实是这样的

作者: 深红喷火龙 时间: 2008-9-13 16:31

没弄过汉字的，我以为都在256以后的说

作者: 最美我中文 时间: 2008-9-15 00:57

不信试试Msgbox Asc("最")

欢迎光临口袋社区-Poke The BBS (https://www.poketb.com/)