【VBA研究】VBA从字符串中取出数据信息的函数
2014-05-13 17:21
302 查看
作者：iamlaosong
一个简单的函数，从包含有数字信息的字符串中取出这个数据，利用VAL函数将字符串转换为数值，该函数或略数字字符串后面的字母和汉字信息，所以，只要把数字前面的字母和汉字信息去掉就行了。
'函数，从字符串“ABC123456.78DEF”中取出数据
Function mydata(mystring As String) As Double
Dim i, k As Integer
i = 1
k = Len(mystring)
Do Until Val(Mid(mystring, i, 1)) > 0 Or i > k
i = i + 1
Loop
If i <= k Then
mydata = Val(Right(mystring, Len(mystring) - i + 1))
Else
mydata = 0
End If
End Function
一个简单的函数，从包含有数字信息的字符串中取出这个数据，利用VAL函数将字符串转换为数值，该函数或略数字字符串后面的字母和汉字信息，所以，只要把数字前面的字母和汉字信息去掉就行了。
'函数，从字符串“ABC123456.78DEF”中取出数据
Function mydata(mystring As String) As Double
Dim i, k As Integer
i = 1
k = Len(mystring)
Do Until Val(Mid(mystring, i, 1)) > 0 Or i > k
i = i + 1
Loop
If i <= k Then
mydata = Val(Right(mystring, Len(mystring) - i + 1))
Else
mydata = 0
End If
End Function
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- oracle函数+过程，解析字符串信息作为字段，并动态更新数据表
- VC从数据库取出日期格式数据时，总是自动添加"上午下午"字符串
- [C] sprintf 函数的用法 -> 各种类型的数据构造成字符串
- C语言sscanf()函数：从字符串中读取指定格式的数据
- sql创建表+查询表名，表空间信息+数据类型+函数length,trim,to_date
- 把我的对YUV数据修改亮度，对比度，灰度的函数共享。色度研究当中。
- php取出字符串（包括汉字）首字母函数
- 编写一函数，由实参传来一个字符串，统计此字符串中字母、数字、空格和其它字符的个数，在主函数中输入字符串以及输出上述结果。 只要结果，别输出什么提示信息。
- 预备研究主题：给出经纬度范围（矩形或圆形）快速从大批量经纬度中按批量取出信息点
- 【VBA研究】利用DateAdd函数取上月或上年同期的日期
- 把我的对YUV数据修改亮度，对比度，灰度的函数共享。色度研究当中。
- 第14章 结构和其他数据形式 14.7 向函数传递结构信息
- eval解析JSON中的注意点 在JS中将JSON的字符串解析成JSON数据格式，一般有两种方式： 1.一种为使用eval()函数。 2. 使用Function对象来进行返回解析。 使用eval
- C语言snprintf()函数：将格式化的数据写入字符串—sprintf()
- Matlab中xlsread 函数读取excel表格数据或者字符串
- mysql从时间字符串中取出日期数据
- 【VBA研究】VBA自定义函数参数类型不符的错误
- 查询Mysql的数据架构信息研究
- sprintf()函数：将格式化的数据写入字符串
- Afx全局函数 数据类型 字符串转化函数