请选择 进入手机版 | 继续访问电脑版
设为首页收藏本站

共享社区

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

搜索
热搜: 活动 交友 discuz
查看: 990|回复: 4

[分享] 提取数字的自定义函数

[复制链接]

12

主题

59

帖子

188

积分

排长

Rank: 2

威望
4
金钱
294
贡献
5
发表于 2015-10-24 14:54:05 | 显示全部楼层 |阅读模式
将此加载项加载即可使用。
提取数字.gif

提取数字.zip

7.29 KB, 下载次数: 10

回复

使用道具 举报

4

主题

45

帖子

87

积分

排长

Rank: 2

威望
0
金钱
146
贡献
2
发表于 2015-11-12 10:06:44 | 显示全部楼层
共享社区张少同 发表于 2015-11-6 17:28
Function tishu(str As String) As String
'函数由张少同用正则于2013-11-27编写
Dim reg As Object

Function tishu(Srg As String, Optional n As Integer = False)
     Dim i As Integer
     Dim s, MyString As String
     Dim Bol As Boolean
     
     For i = 1 To Len(Srg)
         s = Mid(Srg, i, 1)
         If n = 1 Then
             Bol = Asc(s) < 0
         ElseIf n = 2 Then
             Bol = s Like "[a-z,A-Z, ,.,_,*,$,/,+,-]"
         ElseIf n = 0 Then
             Bol = s Like "[0-9,.,-,*,$,/,+,-]"
         End If
         If Bol Then MyString = MyString & s
     Next
     tishu = MyString
End Function
回复 支持 1 反对 0

使用道具 举报

75

主题

115

帖子

173

积分

管理员

Rank: 9Rank: 9Rank: 9

威望
0
金钱
259
贡献
0
发表于 2015-11-6 17:28:31 | 显示全部楼层
Function tishu(str As String) As String
'函数由张少同用正则于2013-11-27编写
Dim reg As Object
Set reg = CreateObject("vbscript.regexp")
With reg
    .Global = True
    .Pattern = "\D"
   tishu = .Replace(str, "")
End With
Set reg = Nothing
End Function
回复 支持 反对

使用道具 举报

82

主题

113

帖子

184

积分

信息监察员

Rank: 9Rank: 9Rank: 9

威望
1
金钱
356
贡献
2
发表于 2015-11-14 19:35:06 | 显示全部楼层
Public Function 提取数字(S As String) As String
Dim char As String
Dim i As Integer
提取数字 = ""
For i = 1 To Len(S)
char = Mid(S, i, 1)
If char Like "#" Then
   提取数字 = 提取数字 & char
End If
Next
End Function
Public Function 提取字母(S As String) As String
Dim char As String
Dim i As Integer
提取字母 = ""
For i = 1 To Len(S)
char = Mid(S, i, 1)
If (char Like "[A-Z]" Or char Like "[a-z]") Then
   提取字母 = 提取字母 & char
End If
Next
End Function
Public Function 提取数字和字母(S As String) As String
Dim char As String
Dim i As Integer
提取数字和字母 = ""
For i = 1 To Len(S)
char = Mid(S, i, 1)
If (char Like "#" Or char Like "[A-Z]" Or char Like "[a-z]") Then
   提取数字和字母 = 提取数字和字母 & char
End If
Next
End Function
菜鸟也来跟一贴
回复 支持 反对

使用道具 举报

39

主题

125

帖子

142

积分

排长

Rank: 2

威望
0
金钱
253
贡献
0
发表于 2015-11-25 01:07:04 | 显示全部楼层
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|共享社区 ( 京ICP备15025663号-2  

GMT+8, 2018-12-11 08:11 , Processed in 0.185100 second(s), 25 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表