• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.0
软件大小:62.5M
更新时间:5-24

按键精灵iOS版
立即下载

软件版本:1.3.3
软件大小:29.2M
更新时间:06-14

按键精灵Mac版
立即下载

软件版本:1.1.0
软件大小:12.3M
更新时间:12-29

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
返回列表 12345678» / 21
发新话题 回复该主题

[分享脚本] 提取字符串数字,中文,字母 [复制链接]

1#
大家写脚本的时候都会遇到要识别地图跟坐标,这个时候提取字符串就很重要了.

下面的给的函数可以直接调用,返回值就是过滤好的字符串了
  1. Function ENumber(str)'提取数字
  2. Dim i
  3. ENumber = ""
  4. For i = 1 To Len(str)
  5. If 58 > Asc(Mid(str, i, 1)) > 47 Then
  6. ENumber = ENumber & Mid(str, i, 1)
  7. End If
  8. Next
  9. End Function


  10. Function EChinese(str)'提取中文
  11. Dim i
  12. EChinese = ""
  13. For i = 1 To Len(str)
  14. If - 2049 > Asc(Mid(str, i, 1)) > - 20320 Then
  15. EChinese = EChinese & Mid(str, i, 1)
  16. End If
  17. Next
  18. End Function


  19. Function ELetter(str)'提取所有大小写字母
  20. Dim i
  21. ELetter = ""
  22. For i = 1 To Len(str)
  23. If 91 > Asc(Mid(str, i, 1)) > 64 Or 123 > Asc(Mid(str, i, 1)) > 96 Then
  24. ELetter = ELetter & Mid(str, i, 1)
  25. End If
  26. Next
  27. End Function


  28. Function ELLetter(str)'提取小写字母
  29. Dim i
  30. ELLetter = ""
  31. For i = 1 To Len(str)
  32. If 123 > Asc(Mid(str, i, 1)) > 96 Then
  33. ELLetter = ELLetter & Mid(str, i, 1)
  34. End If
  35. Next
  36. End Function


  37. Function ECLetter(str)'提取大写字母
  38. Dim i
  39. ECLetter = ""
  40. For i = 1 To Len(str)
  41. If 91 > Asc(Mid(str, i, 1)) > 64 Then
  42. ECLetter = ECLetter & Mid(str, i, 1)
  43. End If
  44. Next
  45. End Function
复制代码
如果觉得对你有帮助,请把你的鲜花留下,给作者更多的动力分享更好的代码

最后编辑383698358 最后编辑于 2016-04-21 22:09:46
代写各种脚本 : 电脑-安卓-IOS-模拟器 ; 游戏-办公-网页等

联系QQ82591558


2#

学习学习

3#

415345

4#

把你的鲜花留下,

5#

1111111111111

6#

考虑考虑

7#

大家写脚本的时候都会遇到要识别地图跟坐标,这个时候提取字符串就很重要了.

8#

学习提取字符串

9#

111111111111111

10#

提取字符串数字,中文,字母修改

11#

看看先

12#

hhhhhhhhhhhhhhhhhhhhhhhhhhh

13#

gjvfgjjbv

14#


15#

谢谢楼主分享

人的梦想是不会终结的!!!
16#

非常需要

17#

1231231231

18#

...................

19#

该内容需您回复才可浏览

20#

提取字符串

发新话题 回复该主题