Dim s As String, s1 As String Dim i As Long s = "(中华人民共和国-北京/*上海ABX)"For i = 1 To Len(s) If StrConv(Mid(s, i, 1), vbWide) = Mid(s, i, 1) And StrConv(Mid(s, i, 1), vbNarrow) = Mid(s, i, 1) Then s1 = s1 & Mid(s, i, 1) ElseIf (Asc(Mid(s, i, 1)) >= 65 And Asc(Mid(s, i, 1)) <= 90) Or (Asc(Mid(s, i, 1)) >= 97 And Asc(Mid(s, i, 1)) <= 122) Then s1 = s1 & Mid(s, i, 1) End If Next Debug.Print s1
扫描每一个字符,判断它的ASCII码所在区间
Dim s As String, s1 As String Dim i As Long s = "(中华人民共和国-北京/*上海ABX)" For i = 1 To Len(s) if Mid(s, i, 1) ="(" or ")" then ...... 使用or或者case去掉里面的不要的字符!] 在vb里面我在一些书上看到一个汉字也是一个字符,一个西文字也是一个字符 可是在一些地方我也看到了一个汉字是2个字符,具体怎么也不晓得,请相关人员帮我看看!
replace(sStringSource,")","")
我是要去掉标点符号数字,只留中文和字母,还有没有什么快捷的办法
Dim i As Long
s = "(中华人民共和国-北京/*上海ABX)"For i = 1 To Len(s)
If StrConv(Mid(s, i, 1), vbWide) = Mid(s, i, 1) And StrConv(Mid(s, i, 1), vbNarrow) = Mid(s, i, 1) Then
s1 = s1 & Mid(s, i, 1)
ElseIf (Asc(Mid(s, i, 1)) >= 65 And Asc(Mid(s, i, 1)) <= 90) Or (Asc(Mid(s, i, 1)) >= 97 And Asc(Mid(s, i, 1)) <= 122) Then
s1 = s1 & Mid(s, i, 1)
End If
Next
Debug.Print s1
Dim i As Long
s = "(中华人民共和国-北京/*上海ABX)"
For i = 1 To Len(s)
if Mid(s, i, 1) ="(" or ")" then ......
使用or或者case去掉里面的不要的字符!]
在vb里面我在一些书上看到一个汉字也是一个字符,一个西文字也是一个字符
可是在一些地方我也看到了一个汉字是2个字符,具体怎么也不晓得,请相关人员帮我看看!