系列数字提取函数
时 间:2011-03-04 00:00:00
作 者:羽扇子君 ID:15117 城市:铁岭
摘 要:类似于Office打印中的页范围提取
如:"20405,7,1-3,20304-20306"分析结果为:20405,20407,20401,20402,20403,20304,20305,20306
正 文:
Function theNumsAnalysis(TempString As String) As Variant '数字分析
'作用: 分析 TempString 的内容,以方便处理有关系或连续的数字 (类似于Office打印中的页范围)
'参数: TempString 以“,”、“-”分隔的字符串.如:"20405,7,1-3,20304-20306"分析结果为:20405,20407,20401,20402,20403,20304,20305,20306
'返回值:- Null 没有内容时,返回null
' - 下标从0开始的1维数组
Dim theTemp As Variant, theTemp1 As Variant, theTemp2 As Variant, varitm As Variant, i As Integer, j As Long, FirstLen As Byte
Dim Temp1 As String, Temp2 As String, MinusLen As Byte
If Isnull(TempString) Then 'Null值情况
theNumsAnalysis = Null
Exit Function
End If
theTemp = Split(TempString, ",")
If InStr(theTemp(0), "-") > 0 Then '如果包含"-"
theTemp1 = Trim(Left(theTemp(0), InStr(theTemp(0), "-") - 1)) '取出"-"前面的内容
Else
theTemp1 = theTemp(0)
End If
FirstLen = Len(theTemp1)
For Each varitm In theTemp
If InStr(varitm, "-") > 0 Then
MinusLen = InStr(varitm, "-") '得到"-"位置
Temp2 = Trim(Right(varitm, Len(varitm) - MinusLen))
Temp1 = Right(Trim(Left(varitm, MinusLen - 1)), Len(Temp2))
For j = Val(Temp1) To Val(Temp2)
If i = 0 Then
theTemp2 = Left(theTemp1, FirstLen - Len(Temp2)) & j
Else
theTemp2 = theTemp2 & "," & Left(theTemp1, Abs(FirstLen - Len(Temp2))) & j
End If
i = i + 1
Next j
Else
If i = 0 Then
theTemp2 = Left(theTemp1, Len(theTemp1) - Len(varitm)) & varitm
Else
theTemp2 = theTemp2 & "," & Left(theTemp1, Len(theTemp1) - Len(varitm)) & varitm
End If
End If
i = i + 1
Next varitm
theNumsAnalysis = Split(theTemp2, ",")
End Function
调用试例:
Function a()
Dim theTemp1 As Variant
theTemp1 = theNumsAnalysis("20405,7,1-3,20304-20306")
MsgBox Join(theTemp1, "、")
End Function
Access软件网QQ交流群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)