'判断字符是否为a-z,A-Z,0-9中的一个
Function ChrCompare(chr As String) As Boolean
If chr Like "[a-z]" Or _
chr Like "[A-Z]" Or _
chr Like "[0-9]" Then
ChrCompare = True
Else
ChrCompare = False
End If
End Function
'提取字符串中的英语和数字
Function GetStr(str As String) As String
Dim i As Integer
Dim s As String
GetStr = ""
For i = 1 To Len(str)
s = Mid(str, i, 1)
If ChrCompare(s) Then
GetStr = GetStr & s
End If
Next
End Function
excel提取字符串中的英语和数字
发表评论
热门文章
-
OneNice简洁大方且开源免费的WordPress主题 17114 阅读
-
Bootstrap4显示和隐藏元素 5076 阅读
-
mysql批量去除重复记录 4165 阅读
-
OneNice Pro简洁且强大的WORDPRESS主题 4130 阅读
-
-
loadjs - javascript动态载入css和js文件 2092 阅读
-
BT宝塔中安装nodejs 2026 阅读
-
github无法加载或不显示图片问题 1910 阅读