经典算法
不规则的字符串中提取日期数据
2015-02-02 14:37:50
文件类型 : rar
文件版本 : access2003
简要说明 : 如何从不规则的字符串中提取需要的数据？比如表字段中有大量数据，字段数据是不规则的，那么如何才能从这数据中提取年月？

如何从不规则的字符串中提取需要的数据？比如表字段中有大量数据，字段数据是不规则的，那么如何才能从这数据中提取年月？

如：有的显示的是ABCDE2010030015，有的则是ABED20100306123,就是英文字母不是统一位数日期数字也不统一,但是只需要取数字的前六位即可，前六位就是年月，如下图，

 

 

解决方法：（用自定义函数方式）

 '使用方法:GetNumberPart([字段名称])

Function GetNumberPart(Expression As Variant) As Variant     Dim lngI As Long          GetNumberPart = Null          For lngI = 1 To Len(Nz(Expression))         If IsNumeric(Mid(Expression, lngI, 1)) Then             GetNumberPart = Mid(Expression, lngI, 6)             Exit For         End If     Next End Function

 

 

首页