- 小精灵商业作者
- 1390367
- 2097
- 0
- 479 朵
- 11363 个
- 911 个
- 80400
- 2013-08-23
|
1#
t
T
发表于 2016-04-06 18:25
|
|只看楼主
大家写脚本的时候都会遇到要识别地图跟坐标,这个时候提取字符串就很重要了. 下面的给的函数可以直接调用,返回值就是过滤好的字符串了- Function ENumber(str)'提取数字
- Dim i
- ENumber = ""
- For i = 1 To Len(str)
- If 58 > Asc(Mid(str, i, 1)) > 47 Then
- ENumber = ENumber & Mid(str, i, 1)
- End If
- Next
- End Function
- Function EChinese(str)'提取中文
- Dim i
- EChinese = ""
- For i = 1 To Len(str)
- If - 2049 > Asc(Mid(str, i, 1)) > - 20320 Then
- EChinese = EChinese & Mid(str, i, 1)
- End If
- Next
- End Function
- Function ELetter(str)'提取所有大小写字母
- Dim i
- ELetter = ""
- For i = 1 To Len(str)
- If 91 > Asc(Mid(str, i, 1)) > 64 Or 123 > Asc(Mid(str, i, 1)) > 96 Then
- ELetter = ELetter & Mid(str, i, 1)
- End If
- Next
- End Function
- Function ELLetter(str)'提取小写字母
- Dim i
- ELLetter = ""
- For i = 1 To Len(str)
- If 123 > Asc(Mid(str, i, 1)) > 96 Then
- ELLetter = ELLetter & Mid(str, i, 1)
- End If
- Next
- End Function
- Function ECLetter(str)'提取大写字母
- Dim i
- ECLetter = ""
- For i = 1 To Len(str)
- If 91 > Asc(Mid(str, i, 1)) > 64 Then
- ECLetter = ECLetter & Mid(str, i, 1)
- End If
- Next
- End Function
复制代码 如果觉得对你有帮助,请把你的鲜花留下,给作者更多的动力分享更好的代码
|