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
