主题：还是字符串操作的问题

1、不排除标点符号（英文的标点符号）

Dim s As String = "这是数字123:89+7-5=这是小写英文abc,d:rejgkb这是大写英文?ACU,FGNK.GNFK"
Dim s2,s3 As String
For I As Integer = 0 To Len(s)-1
    s2 = s.SubString(i,1)
    If Asc(s2) > 0
        s3 = s3 & s2
    End If
Next
Output.show(s3)

2、排除标点符号：

Dim s As String = "这是数字123:89+7-5=这是小写英文abc,d:rejgkb这是大写英文?ACU,FGNK.GNFK"
Dim s2,s3 As String
For I As Integer = 0 To Len(s)-1
    s2 = s.SubString(i,1)
    If Asc(s2) > 47 And Asc(s2) < 58 OrElse Asc(s2) > 64 And Asc(s2) < 91 OrElse Asc(s2) > 96 And Asc(s2) < 123
        s3 = s3 & s2
    End If
Next
Output.show(s3)