Office中国论坛/Access中国论坛

标题: [求助]请教如何提取字符串中的数字？ [打印本页]

作者: acred 时间: 2003-7-15 18:27
标题: [求助]请教如何提取字符串中的数字？
请问，如果要把一个字符串中的数字提取出来应该怎么做？（字符串长度不定，其中包含的数字的位数也是不定的）；日期又如何做呢？

作者: 竹笛 时间: 2003-7-15 22:08
字符串最长有多少字符？

作者: acred 时间: 2003-7-15 22:15
不超过50

举例来说：1.氯丙嗪300mg/日，2.氟哌啶醇癸酸酯100mg，这两个数据都是文本格式的，数字的位置都不一致，我需要分别提取300和100，并转换为数字格式保存。

谢谢！

[此贴子已经被作者于2003-7-15 14:23:46编辑过]

作者: 竹笛 时间: 2003-7-16 00:42
我用一个笨办法：
用MID$()和IsNumeric函数结合使用吧

dim strName'要判断的文本
dim i as integer
dim x as string'注意这里是string型，最后您还要转换为integer

for i =1 to 50
if IsNumeric(MID(strName,i,1)) =true then
x=x & MID(strName,i,1)
end if

next i

以上未经测试，您试试吧。估计问题应该不大。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)