以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  还是字符串操作的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=28901)
--  作者：xvkewen
--  发布时间：2013/2/21 23:47:00
--  还是字符串操作的问题
小白弱弱的问一下，怎么只取字符串里的数字和字母，把其他字符一律移除？
--  作者：程兴刚
--  发布时间：2013/2/22 1:34:00
--  

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)

 

 
--  作者：lin_hailun
--  发布时间：2013/2/22 8:51:00
--  
 具体问题，才有具体操作，说说你要达到的效果，举例说明。
--  作者：飞
--  发布时间：2013/2/22 10:09:00
--  
正则
--  作者：xvkewen
--  发布时间：2013/2/22 12:36:00
--  

程版的第二种方案是我想要的效果；看来取此类字符通过比较ASCII 的值比较方便；谢谢了；